BOM各层级数量汇总

hxzang · 发表于 2015-1-22 16:34

各位高手，目前我们BOM中的数量为单级数量，再计算自制件和原材料数量需要一级级相乘，一张BOM表有几千行，计算很麻烦，请教各位是否有好的公式能直接得到各层级的数量，谢谢!具体请看附件！

例子

BOM层级汇总.rar (13.07 KB, 下载次数: 185)

feiren228 · 发表于 2015-1-22 16:46

层级相同的取最后一个吗？

hxzang · 发表于 2015-1-22 16:54

是的，谢谢！

feiren228 · 发表于 2015-1-22 17:15

hxzang 发表于 2015-1-22 16:54
是的，谢谢！

请测试》》》

Sub total()
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
r = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算最后一个工作表的非空行号
arr = [a2].Resize(r - 1, 5)
For i = 1 To UBound(arr)
d(Val(arr(i, 1))) = Val(arr(i, 3))
Next i
d1(0) = d(0)
For i = 2 To d.Count
d1(i - 1) = d(i - 1) * d1(i - 2)
Next
s1 = d.items
s2 = d1.items
For i = 1 To UBound(arr)
If Val(arr(i, 1)) = 0 Then
arr(i, 5) = arr(i, 3)
Else
arr(i, 5) = arr(i, 3) * d1(Val(arr(i, 1)) - 1)
End If
Next i
[a2].Resize(r - 1, 5) = arr
Application.ScreenUpdating = True
End Sub

复制代码

feiren228 · 发表于 2015-1-22 17:17

附件》》》

BOM层级汇总.rar (21.32 KB, 下载次数: 342)

yjh_27 · 发表于 2015-1-22 21:13

自定义函数

'*********************yjh_27*******************************************
'功能：对BOM数组按级别层次汇总
'函数名： BOMSum
'
'参数1： a BOM层级数组（范围）
'参数2： b BOM数量数组（范围）
'
'返回值： BOM汇总数组
'使用方法：kclmr = BOMSum(A,B)
'
Function BOMSum(a, b)
arr = a
brr = b
If UBound(arr) <> UBound(brr) Then BOMSum = CVErr(xlErrNA): Exit Function '汇总行数不相等，则返回错误值
Dim crr()
ReDim crr(10)
cj0 = arr(1, 1)
For i = 1 To UBound(arr)
cj = arr(i, 1)
If cj > UBound(crr) Then ReDim Preserve crr(cj + 5)
crr(cj) = brr(i, 1)
brr(i, 1) = crr(cj0)
For j = cj0 + 1 To cj
brr(i, 1) = brr(i, 1) * crr(j)
Next
Next
BOMSum = brr
End Function

复制代码

yjh_27 · 发表于 2015-1-22 21:14

参见附件。

aman1516 · 发表于 2015-1-23 14:24

yjh_27 发表于 2015-1-22 21:14
参见附件。

学习了！
拓展一下，如果下该物料一个订单数量，并对应知道各级物料的库存数，如何求各级物料最终实际需生产数量呢？

BOM层级汇总.rar (13.45 KB, 下载次数: 104)

aman1516 · 发表于 2015-1-23 14:28

yjh_27 · 发表于 2015-1-23 19:12

aman1516 发表于 2015-1-23 14:28

不知你的实际生产数是如何计算的。

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

[原创] BOM各层级数量汇总