根据BOM表计算物料需求清单

y1983y

各位大侠，目前在做一份生产计划物料需求清单，根据Bom表和计划数来进行计算。我会在遇到问题时向大家请教，同时也希望有相关经验的大侠给予提供指导，谢谢！

y1983y

Sub aa()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    With Sheet1
        r = .Range("a" & Rows.Count).End(xlUp).Row
        c = .Cells(1, Columns.Count).End(xlToLeft).Column
        arr = .Range("a1").Resize(r, c)
        ReDim brr(1 To UBound(arr) * c, 1 To 3)
        ii = 0
        For j = 3 To c
            For i = 3 To UBound(arr)
                If arr(i, j) <> "" And arr(2, j) <> "" Then
                    ii = ii + 1
                    brr(ii, 1) = arr(1, j)
                    brr(ii, 2) = arr(i, 2)
                    brr(ii, 3) = Val(arr(i, j)) * Val(arr(2, j))
                End If
            Next i
        Next j
    End With
    With Sheet2
        irow = .Range("a" & Rows.Count).End(xlUp).Row
        icol = .Cells(1, Columns.Count).End(xlToLeft).Column
        .Range("a2").Resize(irow, icol).ClearContents
        .Range("a2").Resize(ii, 3) = brr
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
End Sub
将原brr(ii, 3) = arr(i, j) 改为brr(ii, 3) = Val(arr(i, j)) * Val(arr(2, j))各位大侠，还有其他方法吗？欢迎指导，谢谢！

excel303

物料需求计算考虑各种库存就复杂了

y1983y

excel303 发表于 2020-1-30 12:27
物料需求计算考虑各种库存就复杂了

目前是根据各类库存Excel文档进行引用提取自动运算来达到相关物料需求