请大神老师们解惑

sypnksss

根据“入库明细”里的编号，在“汇总”里根据对应的料号汇总入库数量，计算未到数量。请问老师这样的例子要怎么写。


新建 Microsoft Excel 工作表 (2).rar (8.84 KB, 下载次数: 7)

2023-2-14 09:23 上传

点击文件名下载附件
附件

ykcbf1100

你入库数量和出库数量是根据什么规则来定的。
光看你的表，根本不知道怎么计算入库数量和出库数量。

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("入库明细")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "入库明细为空！": End
    ar = .Range("a1:c" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(Trim(ar(i, 1))) = d(Trim(ar(i, 1))) + ar(i, 3)
    End If
Next i
With Sheets("汇总")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs < 2 Then MsgBox "汇总表为空！": End
    .Range("d2:e" & r) = Empty
    br = .Range("a1:e" & r)
    For i = 2 To UBound(br)
        If Trim(br(i, 1)) <> "" Then
            If d.exists(Trim(br(i, 1))) Then
                br(i, 4) = d(Trim(br(i, 1)))
            End If
            br(i, 5) = br(i, 3) - br(i, 4)
        End If
    Next i
    .Range("a1:e" & r) = br
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

新建 Microsoft Excel 工作表 (2).rar (16.97 KB, 下载次数: 6)

2023-2-14 09:53 上传

点击文件名下载附件

太极拍天雄

练习一下！！！