MRP(VBA系列):3.汇总所有的物料每日需求

King_HEQ

已于 2024-03-19 11:32:57 修改

阅读量344

点赞数 9

文章标签： vba MRP

于 2024-03-19 10:57:48 首次发布

本文链接：https://blog.csdn.net/bosney/article/details/136835543

版权

这里是对系列2的数组做一个字典+数组的经典模式：汇总数据处理

Tips：所有代码都是为目前任职公司编写，极大概率不适合其他公司，在这里发布：首先是记录；其次才是分享，望理解！

代码：

d.RemoveAll
str = ""
k = 0
For i = 1 To UBound(crr)
    str = CStr(crr(i, 2))
    If d(str) = "" Then
        k = k + 1
        d(str) = k
        ReDim Preserve drr(1 To UBound(crr, 2) - 3, 1 To k)
        drr(1, k) = str
        drr(2, k) = crr(i, 5)
        For j = 6 To UBound(crr, 2)
            drr(j - 3, k) = crr(i, j)
        Next
    Else
        For j = 6 To UBound(crr, 2)
            drr(j - 3, d(str)) = drr(j - 3, d(str)) + crr(i, j)
        Next
    End If
Next

新的数组drr，就是物料的每日需求汇总!