MRP(VBA系列):6.SIOP：将PO的信息加入到Net后面

King_HEQ

已于 2024-03-19 11:33:59 修改

阅读量421

点赞数 7

文章标签： vba MRP 数据库

于 2024-03-19 11:24:55 首次发布

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

版权

本文详细描述了使用VBA脚本如何将两个Excel工作表中的数据合并，处理负数，调整行数，并根据PO数据进行格式转换的过程。作者通过创建数组和字典来实现数据的灵活操作。

摘要由CSDN通过智能技术生成

这个比较简单，就是将两个表格的信息组合起来。

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

效果图：

思维导图：

代码：

Sub SIOP()

Dim i, j, k, s, m, n, a
Dim arr, brr, crr(), drr(), err()
Dim d As New Dictionary


On Error Resume Next
arr = Sheets("PO").UsedRange
brr = Sheets("Net").UsedRange
'我们觉得横向会比较好
'先把负数的挑出来
m = 0
For i = 2 To UBound(brr)
    d(CStr(brr(i, 1))) = i
    s = 0
    For k = 7 To UBound(brr, 2)
        s = s + brr(i, k)
    Next