excel表格里的数据关联，库存自动减数量。

2024-11-28 01:45:53

推荐回答（4个）

回答（1）：

Private Sub Workbook_BeforePrint(Cancel As Boolean)    '工作簿打印前触发事件
    Dim rng As Range, c As Range
    Dim no As String, r As Long
    If ActiveSheet.Name = "货品出库表" Then    '如果打印 货品出货表
        Application.EnableEvents = False
        Set rng = Range([k7], [k7].End(xlDown))   '货品编码区域
        For Each c In rng
            no = c.Value
            On Error Resume Next
            r = Application.WorksheetFunction.Match(no, Sheets("库存汇总表").Range("A:A"), 0)
            If Not Err Then   '找到货号
                Sheets("库存汇总表").Cells(r, "F") = Sheets("库存汇总表").Cells(r, "F") + Cells(c.Row, "F")   '将货品出货表 的出货数量加到 库存汇总表 的出货数量
            End If
        Next c
        Application.EnableEvents = True
    End If
End Sub

用vba来处理。将上面的代码复制到 thisworbook模块中。

在excel中按F11，然后双击库存统计表（处理）下的thisworbook，最后将上面的代码粘贴到右边的窗格。

回答（2）：

如图=B3-SUMIF($E$3:$E$7,A3,$F$3:$F$7)

回答（3）：

亲，你的意思是出库自动增加，库存自动减少？

回答（4）：

上传表格或发给我，百度网盘升级了，打不开。