BOM循环计算问题，请有空的大神伸伸援手

liu-aguang

lzyxmj 发表于 2021-5-15 17:11
把d(arr(j, 2)) = d(arr(j, 1)) * arr(j, 3)改成d(arr(j, 2)) = d(arr(j, 2)) + d(arr(j, 1)) * arr(j, 3 ...

一般的BOM数据都是以递归方式定义的, 为了安全建议用递归解法处理, 这样使用代码具有应用普适性.
一些试图用循环处理递归问题的解法,稍不注意会出现bug.如上面有些解法,当BOM数据项位置变动一下就会出现错误解.个人认为,代码计算结果的准确性是第一位.

liu-aguang

再给一个完全安全的解法代码:

1. Dim arr, ar, n, df As Object
   
2. Sub BOM()
   
3.     Set df = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     For i = 3 To UBound(arr)
   
6.         If Not df.exists(arr(i, 1)) Then _
   
7.         Set df(arr(i, 1)) = CreateObject("scripting.dictionary")
   
8.         df(arr(i, 1))(arr(i, 2)) = i
   
9.     Next
   
10.     ReDim ar(1 To UBound(arr, 1), 1 To 2): n = 0
    
11.     Call subtab(df(Cells(1, "f").Value), Cells(1, "h").Value)
    
12.     [e3].Resize(UBound(arr, 1), 2) = ar
    
13. End Sub
    
14. 
    
15. Sub subtab(d, r)
    
16.     For Each k In d.keys
    
17.         n = n + 1: ar(n, 1) = k
    
18.         ar(n, 2) = ar(n, 2) + arr(d(k), 3) * r
    
19.         If df.exists(k) Then _
    
20.         Call subtab(df(k), r * arr(d(k), 3))
    
21.     Next
    
22. End Sub

复制代码

ivccav

计算物料还需要考虑库存量和需求日期，不然是不正确的。





BOM计算.zip (52.26 KB, 下载次数: 17)

2021-5-15 21:33 上传

点击文件名下载附件

cui26896

多位前辈出手，观摩学习了！

yjh_27

自定义函数。