BOM各层级数量汇总

aman1516

yjh_27 发表于 2015-1-23 19:12
不知你的实际生产数是如何计算的。

上面例子订单数量是指 00 层的 C00000004 成品100个。
该列其它数据只不过是根据BOM用量展开的物料需求数，而非各物件的订单数量。
所以和物料清单用量不同，各个父项都看作是半成品，各子级部件的生产数量只相对于父项的生产数再乘以子级用量就行了

aman1516

然后再减去库存数，就是实际需生产数了。

yjh_27

aman1516 发表于 2015-1-23 22:43
然后再减去库存数，就是实际需生产数了。

与你的结果还是有出入

aman1516

yjh_27 发表于 2015-1-24 16:58
与你的结果还是有出入

不好意思，老师的是对的，示例中的数据手动计算一时录入有误。谢谢！
请问有无办法直接用VBA全部实现，而不需要用公式设定。
因为很多时候BOM是通过VBA查询、字典数组等方法调出的，再手动设定数组公式较为麻烦。

yjh_27

aman1516 发表于 2015-1-24 21:31
不好意思，老师的是对的，示例中的数据手动计算一时录入有误。谢谢！
请问有无办法直接用VBA全部实现，而 ...

sub 调用自定义函数是方便的

1. Sub aa()
   
2. Dim err()
   
3. r = Range("a" & Rows.Count).End(xlUp).Row
   
4. arr = Range("a2:a" & r)
   
5. crr = Range("c2:c" & r)
   
6. grr = Range("g2:g" & r)
   
7. dds = [L1]
   
8. 
   
9. err = BOMSum(arr, crr)
   
10. frr = err
    
11. For i = 1 To UBound(err)
    
12.     frr(i, 1) = err(i, 1) * dds
    
13. Next
    
14. hrr = BOMSum(arr, crr, grr, dds)
    
15. 
    
16. Range("e2").Resize(UBound(err), 1) = err
    
17. Range("f2").Resize(UBound(frr), 1) = frr
    
18. Range("h2").Resize(UBound(hrr), 1) = hrr
    
19. End Sub
    

复制代码

yjh_27

参见附件。

aman1516

yjh_27 发表于 2015-1-24 23:36
参见附件。

非常好，学习了

放弃需要勇气

太强大了，学习了。

lt0314

zhangjvhua

lt0314 发表于 2015-5-15 10:45

  直接调取原表格的汇总结果的吧