根据生产订单和BOM自动产生物料需求

zlmxzh

根据生产订单和BOM自动产生物料需求，根据物料的入库和出库来自动产生后续的物料到货时间和需求时间，请各位大侠帮忙，在线等

oοゞ妖→♂/mg

至少里边得有些基础数据吧

zlmxzh

不好意思，请帮忙

yiyiyicz

这个东西说明不是很清楚。另外，看样子是单级BOM，用函数应该可以
我不会函数，按照我的理解，用VBA做了一个，你试一下，是不是你的要求？

yiyiyicz

1. Sub tt()
   
2. Dim Bomrr, Brr, Lr
   
3. Dim BQrr, Planrr, RQrr
   
4. Dim D, T
   
5. Lr = Sheet1.Range("a65536").End(3).Row
   
6. Brr = Sheet1.Range("a4:h" & Lr)
   
7. ReDim Bomrr(1 To UBound(Brr), 1 To 3)
   
8. For i = 1 To UBound(Brr)
   
9.     Bomrr(i, 1) = Brr(i, 1)
   
10.     Bomrr(i, 2) = Brr(i, 5)
    
11.     Bomrr(i, 3) = Brr(i, 8)
    
12. Next i
    
13. Set D = CreateObject("Scripting.Dictionary")
    
14. For i = 1 To UBound(Bomrr)
    
15.     If Not D.Exists(Bomrr(i, 1)) Then
    
16.         D(Bomrr(i, 1)) = D(Bomrr(i, 1))
    
17.     End If
    
18. Next i
    
19. T = D.keys
    
20. 
    
21. Lr = Sheet2.Range("a65536").End(3).Row
    
22. Planrr = Sheet2.Range("a3:ai" & Lr)
    
23. 
    
24. Lr = Sheet3.Range("a65536").End(3).Row
    
25. RQrr = Sheet3.Range("a3:ai" & Lr)
    
26. 
    
27. ReDim BQrr(1 To UBound(RQrr) + 1, 1 To D.Count)
    
28. k = 1
    
29. For Each temp In T
    
30.     BQrr(1, k) = temp
    
31.     D(temp) = D(temp) + k
    
32.     k = k + 1
    
33. Next
    
34. For k = 1 To D.Count
    
35.     For i = 1 To UBound(RQrr) '如果bom单中物料项超过200项，下列遍历需要修改，避免时间过长
    
36.         For j = 1 To UBound(Bomrr)
    
37.             If BQrr(1, k) = Bomrr(j, 1) And RQrr(i, 3) = Bomrr(j, 2) Then
    
38.                 BQrr(i + 1, k) = Bomrr(j, 3)
    
39.             End If
    
40.         Next j
    
41.     Next i
    
42. Next k
    
43. 
    
44. For k = 1 To UBound(Planrr)
    
45.     For j = 1 To UBound(RQrr)
    
46.         'If Not BQrr(j + 1, D(Planrr(k, 1))) = "" Then
    
47.         For i = 5 To UBound(Planrr, 2)
    
48.              RQrr(j, i) = RQrr(j, i) + BQrr(j + 1, D(Planrr(k, 1))) * Planrr(k, i)
    
49.         Next i
    
50.         'End If
    
51.     Next j
    
52. Sheet6.Range("e3").Resize(UBound(RQrr), UBound(RQrr, 2)) = RQrr
    
53. Next k
    
54. 
    
55. Sheet3.Range("a3").Resize(UBound(RQrr), UBound(RQrr, 2)) = RQrr
    
56. End Sub
    

复制代码

yiyiyicz

按照附件，有猜测的成分
1，根据BOM和生产订单，可以自动计算出物料需求
注意，可以任意增减编辑BOM和生产订单两张表中的数据，但是格式不能变。假如BOM中行数太多，则速度会慢。
根据你的附件，BOM是单层BOM。因此程序只是处理了单层BOM。如果是多层BOM，必须采用多层BOM展开的计算
2，材料入库：手工填，用函数就行了
3，材料出库：手工，需求可以用函数将物料需求的数据转过来
函数操作不难，如果有问题，可以在函数版求助。

yiyiyicz

测试见附件，注意上面的说明

xrczld

也可以参考这个

26735619

yiyiyicz 发表于 2014-8-31 14:17
测试见附件，注意上面的说明

大神，为什么我加入BOM测试之后变成这样了？？