树状结构BOM,需计算各层净需求（毛需求-库存-在线）

huihui1522

BOM的结构是树状结构,每个物料编码的层数不同,需要计算每层的净需求
每层子件要先算出该层毛需求，扣减子件的库存和在线数量后，用净需求再往下展开下层毛需求，类推下去

huihui1522

求大神用VBA程序实现

chengshanming

路过，与BOM有关帖子都顶一下！

yjh_27

见我的BOM帖子，BOMSum自定义函数mode=22

yjh_27

多层BOM底层原材料每周需求计算
http://club.excelhome.net/thread-1296251-1-1.html
(出处: ExcelHome技术论坛)

小花鹿

记个记号，抽空研究一下，感觉要用递归

yjh_27

楼主你这是作业吧？与5L的链接比较多了在线量，加在库存里就是了。
但你的净需求统一减库存在线，这库存在线减不完吗？

wuque214

顶一下，有空再看看，

wuque214

采用递归的方法实现，代码如下，供交流

1. Dim Arr_BOM, Arr_Demand, Arr_Stock
   
2. Dim Dic_temp, SkuTemp, DemandDate
   
3. Dim Arr_output
   
4. Sub test()
   
5. Arr_BOM = Range("H3:J34")
   
6. Arr_Demand = Range("A2:F5")
   
7. Arr_Stock = Range("L3:M26")
   
8. 
   
9. ReDim Arr_output(1 To 4, 1 To 1)
   
10. Arr_output(1, 1) = "Component"
    
11. Arr_output(2, 1) = "SKU"
    
12. Arr_output(3, 1) = "Shortage"
    
13. Arr_output(4, 1) = "Shortage Date"
    
14. 
    
15. Set Dic_temp = CreateObject("Scripting.Dictionary")
    
16. For C = LBound(Arr_BOM, 1) To UBound(Arr_BOM, 1)
    
17.     If Not Dic_temp.exists(Arr_BOM(C, 1)) Then
    
18.         Dic_temp(Arr_BOM(C, 1)) = ""
    
19.     End If
    
20. Next C
    
21. For B = 2 To UBound(Arr_Demand, 2)
    
22.     For A = 2 To UBound(Arr_Demand, 1)
    
23.         SkuTemp = Arr_Demand(A, 1)
    
24.         DemandDate = Arr_Demand(1, B)
    
25.         If Arr_Demand(A, B) > 0 Then
    
26.             Call Get_data(Arr_Demand(A, 1), Deduct_Stock(SkuTemp, 1, Arr_Demand(A, B)))
    
27.         End If
    
28.     Next A
    
29. Next B
    
30. Workbooks.Add
    
31. [A1].Resize(UBound(Arr_output, 2), UBound(Arr_output, 1)) = Application.Transpose(Arr_output)
    
32. End Sub
    
33. Private Function Get_data(PN, QTY)
    
34. For A = 1 To UBound(Arr_BOM, 1)
    
35.     If Arr_BOM(A, 1) = PN Then
    
36.         If Dic_temp.exists(Arr_BOM(A, 2)) Then
    
37.             Get_data = Get_data(Arr_BOM(A, 2), Deduct_Stock(Arr_BOM(A, 2), Arr_BOM(A, 3), QTY))
    
38.         Else
    
39.             ReDim Preserve Arr_output(1 To UBound(Arr_output, 1), 1 To UBound(Arr_output, 2) + 1)
    
40.             Arr_output(1, UBound(Arr_output, 2)) = Arr_BOM(A, 2)
    
41.             Arr_output(2, UBound(Arr_output, 2)) = SkuTemp
    
42.             Arr_output(3, UBound(Arr_output, 2)) = Deduct_Stock(Arr_BOM(A, 2), Arr_BOM(A, 3), QTY)
    
43.             Arr_output(4, UBound(Arr_output, 2)) = DemandDate
    
44.         End If
    
45.     End If
    
46. Next A
    
47. End Function
    
48. Private Function Deduct_Stock(PN, Usage, Demand_Qty)
    
49. For A = LBound(Arr_Stock, 1) To UBound(Arr_Stock, 1)
    
50.     If Arr_Stock(A, 1) = PN Then
    
51.         If Arr_Stock(A, 2) >= Usage * Demand_Qty Then
    
52.             Arr_Stock(A, 2) = Arr_Stock(A, 2) - Usage * Demand_Qty
    
53.             Deduct_Stock = 0
    
54.         Else
    
55.             Deduct_Stock = Usage * Demand_Qty - Arr_Stock(A, 2)
    
56.             Arr_Stock(A, 2) = 0
    
57.         End If
    
58.         Exit Function
    
59.     End If
    
60. Next A
    
61. Deduct_Stock = Usage * Demand_Qty
    
62. End Function
    

复制代码

huihui1522

wuque214 发表于 2017-3-12 21:33
采用递归的方法实现，代码如下，供交流

您好，可惜没有展示出中间层的净需求出来，