多级展开BOM成本计算

lizi007 · 发表于 2010-8-12 11:03

已知多级展开BOM、外购材料单价，求成本合计及单位成本，单位成本中的公式是不规则的，怎样用VBA完成单位成本中所有公式输入。

lizi007 · 发表于 2010-8-12 12:44

没人顶，自己来
Sub asf()
a = [a1].End(xlDown).Row
For i = 2 To a
If Cells(i, 3) = "外购件" Then
      Cells(i, 7).FormulaR1C1 = "=rc[-1]/rc[-3]"
   Else
   For j = i + 1 To a + 1
      If Right(Cells(j, 1), 1) <= Right(Cells(i, 1), 1) Then
      x = j - i - 1
      Exit For
      End If
   Next
      Cells(i, 7).FormulaR1C1 = "=sum(rc[-1]:r[" & x & "]c[-1])/rc[-3]"
End If
Next
End Sub

lizi007 · 发表于 2010-8-12 12:51

有谁共鸣!!!

蓝桥玄霜 · 发表于 2010-8-12 13:04

如果只有3级，还不是太复杂。
你的最多是几级？
A8、A9的"..3"应该是"...3"吧？

lizi007 · 发表于 2010-8-12 13:11

蓝桥先生一针见血
A8、A9的"..3"应该是"...3"
另外请教超过10级以上怎么处理呢？

thtfzhaobo · 发表于 2010-8-12 14:37

最好形成一些基础，才好保证多级处理，从我想到，一个是外购件及单价表（外购件名称、单价），另一个是BOM的对应关系表（自产件名称、下一级名称、用量），再对你的表格进行计算，多少级都无所谓。名称用编码更佳，可提高准确率。

zhu310112 · 发表于 2010-12-22 20:18

ddddddjhnjnjhnhh

绝地重生 · 发表于 2014-7-15 22:48

不错，比我菜鸟强点

		自动登录	找回密码
密码			免费注册