如何VBA 统计库存

月隐星寒

因每天都要处理大量数据，用公式函数卡慢不堪，所以向各位大神请教如何用VBA统计库存，具体要求写在库存表里，谢谢各位。

840205910

当你学习了字典后，这问题变得很简单

月隐星寒

840205910 发表于 2017-4-29 08:14
当你学习了字典后，这问题变得很简单

那该如何编码？大神可否帮忙？

840205910

新建 Microsoft Office Excel 2007 工作表.zip (25.6 KB, 下载次数: 183)

2017-4-29 10:27 上传

点击文件名下载附件

840205910

Private Sub CommandButton1_Click()

    Set d = CreateObject("scripting.dictionary")
    Arr = Sheet2.Range("a4:m" & Sheet2.[a65536].End(xlUp).Row)
    ReDim brr(1 To UBound(Arr), 1 To 4)
    For i = 1 To UBound(Arr)
        s = Arr(i, 7) & vbTab & Arr(i, 8) & vbTab & Arr(i, 9)
        If Not d.Exists(s) Then
            m = m + 1
            d(s) = ""
            brr(m, 1) = m
            brr(m, 2) = Arr(i, 7)
            brr(m, 3) = Arr(i, 8)
            brr(m, 4) = Arr(i, 9)
           
        End If
    Next
    Range("a4:d100") = ""
    [a4].Resize(m, 4) = brr
End Sub

840205910

Private Sub CommandButton2_Click()
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
    Arr = Sheet2.Range("a4:m" & Sheet2.[a65536].End(xlUp).Row)
    For i = 1 To UBound(Arr)
    s = Arr(i, 7) & vbTab & Arr(i, 8) & vbTab & Arr(i, 9)
    d(s) = d(s) + Arr(i, 10)
    Next
    brr = Sheet3.Range("a4:m" & Sheet3.[a65536].End(xlUp).Row)
    For i = 1 To UBound(brr)
    m = brr(i, 7) & vbTab & brr(i, 8) & vbTab & brr(i, 9)
    d1(m) = d1(m) + brr(i, 10)
    Next
crr = Sheet1.Range("a4:h" & Sheet1.[a65536].End(xlUp).Row)
For i = 1 To UBound(crr)
crr(i, 6) = d(crr(i, 2) & vbTab & crr(i, 3) & vbTab & crr(i, 4))
crr(i, 7) = d1(crr(i, 2) & vbTab & crr(i, 3) & vbTab & crr(i, 4))
crr(i, 8) = crr(i, 5) + crr(i, 6) - crr(i, 7)

Next
[a4].Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

xiangbaoan

附件仅供参考…………

月隐星寒

840205910 发表于 2017-4-29 10:29
Private Sub CommandButton2_Click()
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObj ...

大神，刚才那组代码我试过了，有新增项目后，点击按钮，库存表没有变化。

lzqmsy

你的问题解决没有?需要再帮忙吗?

月隐星寒

lzqmsy 发表于 2017-4-30 01:21
你的问题解决没有?需要再帮忙吗?

如肯帮忙，感激不尽。