计划单号根据分解跟进

pliming41

这个文件也是从论坛中下载的，我在计划中加上计划单号，需求就是计划单号根据BOM分解后，能在表格“按照父件结果”计划单号中同步输出。

3190496160

Sub 拆分bom()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("BOM")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "BOM为空": End
    ar = .Range("a1:c" & r)
End With
With Sheets("计划")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs < 2 Then MsgBox "计划为空": End
    br = .Range("a1:c" & rs)
End With
Dim arr()
ReDim arr(1 To UBound(ar) + UBound(ar), 1 To 4)
For I = 2 To UBound(br)
    If Trim(br(I, 3)) <> "" Then
        fj = br(I, 1)
        sl = br(I, 2)
        For s = 2 To UBound(ar)
            If Trim(ar(s, 1)) = Trim(fj) Then
                n = n + 1
                arr(n, 1) = ar(s, 2)
                arr(n, 2) = fj
                arr(n, 3) = sl * ar(s, 3)
                arr(n, 4) = br(I, 3)
            End If
        Next s
    End If
Next I
With Sheets("按照父件结果")
    ws = .Cells(Rows.Count, 1).End(xlUp).Row
    If ws > 1 Then .Range("a2:d" & ws) = Empty
    .[a2].Resize(n, UBound(arr, 2)) = arr
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

BOM与计划.rar (25.83 KB, 下载次数: 12)

2022-12-6 17:58 上传

点击文件名下载附件

pliming41

3190496160 发表于 2022-12-6 17:58

谢谢“春风化雨”朋友！我下载运行语句出现下标越界，就不知道怎么处理，烦请朋友再帮忙看看是什么原因，谢谢！！

3190496160

pliming41 发表于 2022-12-8 08:24
谢谢“春风化雨”朋友！我下载运行语句出现下标越界，就不知道怎么处理，烦请朋友再帮忙看看是什么原因， ...

再次测试，一切正常，

pliming41

3190496160 发表于 2022-12-8 08:27
再次测试，一切正常，

我重新测试，正常了，非常感谢 ！！