多条件求和

让心无愧

要求：发货台账的所有数据是从MCI导出来的，当发货台账的日期和图号和MCI导出一致时，求和出库数，只要按按钮数据导入就会在相应的位置有满足条件的数据。要用VBA编程，不要用透视表，谢谢！具体见附件

zax010

字典+数组。

zax010

Sub zz()
    Dim d, ar, br, j%
    Set d = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    ar = Sheet1.Range("A1").CurrentRegion
    br = Sheet111.Range("B3").CurrentRegion
    For i = 2 To UBound(ar)
        d(ar(i, 5) & ar(i, 2)) = d(ar(i, 5) & ar(i, 2)) + ar(i, 10)
    Next
    For i = 2 To UBound(br)
        For j = 7 To UBound(br, 2)
            br(i, j) = d(br(i, 4) & br(1, j))
        Next
    Next
    Sheet111.Range("B3").CurrentRegion = br
    Application.ScreenUpdating = True
End Sub

zax010

多条件求和----求助.rar (76.54 KB, 下载次数: 45)

2017-4-8 13:07 上传

点击文件名下载附件

lsc900707

1. Private Sub CommandButton1_Click()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("MCI导出").[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         s = arr(i, 5) & arr(i, 2)
   
6.         d(s) = d(s) + arr(i, 10)
   
7.     Next
   
8.     brr = [b3].CurrentRegion
   
9.     For i = 2 To UBound(brr, 1)
   
10.         For j = 7 To UBound(brr, 2)
    
11.             brr(i, j) = d(brr(i, 4) & brr(1, j))
    
12.         Next
    
13.     Next
    
14.     [b3].CurrentRegion = brr
    
15. End Sub

复制代码

让心无愧

zax010 发表于 2017-4-8 13:07

谢谢你老师！！！

让心无愧

zax010 发表于 2017-4-8 13:07

谢谢你老师！！！

让心无愧

lsc900707 发表于 2017-4-8 14:58

谢谢你老师！！！

LMY123

字典学习中