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

Question

用excel制作在同一个表格里分别制作了所有货品的库存表，另外一个表格里制作了出库表！
1、平时出库表要打印的，就想打印出库表的时候，汇总表格里的数量会关联起来自动减少！

2、表格下载链接：http://pan.baidu.com/s/1o65ITlC
听说上面百度网盘链接有的不能下载！现在提供另外一个微云链接！
http://mobile.qzone.qq.com/l?g=1357&sharekey=8c913d09fd13d2ea2ab5162592eb16e3

Answer 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，最后将上面的代码粘贴到右边的窗格。

追问

看着很高手的样子呀！我下载你发的表格 没有什么用呀！没变化。
麻烦高手能不能直接把表格做好发给我呢！
386814378

追答

你按了打印后就知道了。

追问

不好意思！我上了上面当了！我以为他空间里有！点了一下！没想到竟然采纳了！

追答

没关系，希望能帮到你。

Answer 2

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

Answer 3

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

你打开表格就明白了！
就是打印出库单的时候填一个数量，前面填的入库的总数量自动减少

追答

代码如下：

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧ThisWorkbook双击，右侧空白处粘贴下面的代码。关闭VBA窗口。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "货品出库表" Then
    Dim i As Integer
    Dim frg As Range
    With Sheets("库存汇总表")
        For i = 7 To ActiveSheet.Cells(21, "B").End(xlUp).Row
            Set frg = .Columns("B").Find(ActiveSheet.Cells(i, "B").Value)
            frg.Offset(0, 4).Value = frg.Offset(0, 4).Value + ActiveSheet.Cells(i, "F").Value
            frg.Offset(0, 7).Value = frg.Offset(0, 7).Value - ActiveSheet.Cells(i, "F").Value
        Next
    End With
End If
End Sub

Answer 4

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

你的邮箱呢?怎么发给你！

追答

点我的网名，看头像图片。这里不能发的，我都被禁好多次了。
微云也下不了，得有号和密码。

本回答被提问者采纳