大家好，我是陈小虾，是一名自动化方向的IT民工。写博客是为了记录自己的学习过程，通过不断输出倒逼自己加速成长。但功能说明：由于水平有限，博客中难免会出现一些BUG，或者有更优方案恳请各位大佬不吝赐教！微信公众号：万能的Excel

功能说明：

1、根据每天的出库、入库记录，自动筛选出产品ID号

2、实时统计每个产品的库存状态

3、自动统计每个月产品总出库、入库数量

关注公众号：万能的Excel     并回复【进销表】获取源文件！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim d1 As Object, d2 As Object, arr, i As Integer, k, brr
    Set d1 = CreateObject("scripting.dictionary")
    Set d2 = CreateObject("scripting.dictionary")
    Set d3 = CreateObject("scripting.dictionary")
    
If (12 < Target.Rows) And (1 < Target.Columns < 11) Then

    arr = Range("c11").CurrentRegion
    For i = 2 To UBound(arr)
        If Len(arr(i, 3)) Then
            If d1(arr(i, 3)) = "" Then '如果是否有数据
                If arr(i, 5) = "入库" Then
                    d1(arr(i, 3)) = arr(i, 6) '如果该关键字第一次出现
                Else
                    d2(arr(i, 3)) = arr(i, 6)
                End If
                d3(arr(i, 3)) = arr(i, 2)
            Else '当该关键字出现了第二次以上
                If arr(i, 5) = "入库" Then
                    d1(arr(i, 3)) = d1(arr(i, 3)) + arr(i, 6) '如果该关键字第一次出现
                Else
                    d2(arr(i, 3)) = d2(arr(i, 3)) + arr(i, 6)
                End If
            End If
        End If
    Next i
    f = 12
    For Each k In d1.keys '遍历每一个关键字
        Cells(f, "l") = k
        Cells(f, "m") = d3(k)
        Cells(f, "n") = d1(k)
        Cells(f, "o") = d2(k)
        Cells(f, "p") = d1(k) - d2(k)
        f = f + 1
    Next k
    f = 0
End If
End Sub