[已解决]BOM分解计算需求

bracy · 发表于 2017-5-18 10:51

大灰狼1976 发表于 2017-5-17 12:42

非常感谢老师，代码很经典！另外麻烦老师看下后一个需求，谢谢！

bracy · 发表于 2017-5-24 16:08

大灰狼1976 发表于 2017-5-17 12:42

老师，经过导入生产数据使用后发现存在不同零件使用同一规格牌号的材料情况，所以需求子表应该是按规格牌号去除重复并合并数量，麻烦老师更新一下代码，谢谢~

大灰狼1976 · 发表于 2017-5-24 17:08

那么只能生成牌号规格与用量了，零件代码跟牌号规格不能匹配的话无法提取。

复制代码

bracy · 发表于 2017-5-26 15:24

大灰狼1976 发表于 2017-5-24 17:08
那么只能生成牌号规格与用量了，零件代码跟牌号规格不能匹配的话无法提取。

谢谢老师！就是需要材料的用量，因为存在不同零件共用同一规格牌号材料的情况。
PS.老师能抽时间加个注释吗？想学习一下，谢谢！

大灰狼1976 · 发表于 2017-5-26 16:21

前提是你懂字典的用法，不然是不太容易明白的。

Sub aaa()
Dim arr, brr, crr(1 To 1000, 1 To 2), i&, j&, d As Object, r&
Set d = CreateObject("scripting.dictionary") '字典
arr = Sheets(1).[a1].CurrentRegion '将BOM表数据装入数组
brr = Sheets(2).[a1].CurrentRegion '将产品需求数量表数据装入数组
For i = 2 To UBound(brr)
For j = 2 To UBound(arr)
If arr(j, 1) = brr(i, 1) Then '产品代号一致时
If Not d.exists(arr(j, 3)) Then '如果字典内没有此数据时
r = r + 1 '结果数组内行数加1
d(arr(j, 3)) = r '将产品代号所在的数组行编号装入字典
crr(r, 1) = arr(j, 3) '将牌号规格装入结果数组相应行的第一列
End If
crr(d(arr(j, 3)), 2) = crr(d(arr(j, 3)), 2) + brr(i, 2) * arr(j, 4) '将需求数量装入结果数组产品代号对应行的第二列
End If
Next j
Next i
Sheets(3).[b2].Resize(r, 2) = crr '输入至单元格区域
End Sub

复制代码

bracy · 发表于 2017-6-6 16:38

大灰狼1976 发表于 2017-5-26 16:21
前提是你懂字典的用法，不然是不太容易明白的。

谢谢老师！另外想问下，如果想在点按钮的时候清除掉前面计算的结果应该用什么语句？现在都是计算一次后手动删除再点。

大灰狼1976 · 发表于 2017-6-7 12:36

清除内容的代码为单元格区域.clearcontents，至于单元格区域需要你自己设定，我根据你的样本表做出来的不一定适用你的正式表格。

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