[已解决]自动汇总

wgxfhi11

根据明细表，自动汇总数量，请帮忙，谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2016-5-5 16:24

重新改了下。

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     arr = Sheets("产品交接明细").[a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 8)
   
4.     crr = Sheets("新产品").[a1].CurrentRegion
   
5.    
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     Set d1 = CreateObject("scripting.dictionary")
   
8.     For i = 2 To UBound(crr): d1(crr(i, 1)) = crr(i, 3): Next
   
9.     For i = 3 To UBound(arr)
   
10.         x = UCase(arr(i, 3) & arr(i, 9)) '型号+客户为key
    
11.         If Len(x) > 0 And Not d.exists(x) Then
    
12.             n = n + 1: d(x) = n
    
13.             brr(n, 1) = arr(i, 3)
    
14.             brr(n, 2) = arr(i, 4)
    
15.             brr(n, 3) = arr(i, 9)
    
16.             brr(n, 8) = d1(arr(i, 3))
    
17.         End If
    
18.         p = d(x)
    
19.         c = IIf(arr(i, 2) = "仓库", 6, 7)
    
20.         If arr(i, 6) <> 0 Then brr(p, c) = brr(p, c) + arr(i, 6)
    
21.     Next
    
22.     If n > 0 Then [a3].Resize(n, 8) = brr
    
23. End Sub
    

复制代码

grf1973

请看附件。

wgxfhi11

grf1973 发表于 2016-5-5 11:42
请看附件。

你好，本月订单那一列，点击按钮后，为什么会被清除掉，麻烦你帮忙更改一下，谢谢，而且产量与订单欠数，怎么没有自动核算呀！

grf1973

应该是按钮之后，根据新表手工输入本月订单的吧？还是在哪里读取的？

wgxfhi11

grf1973 发表于 2016-5-5 15:03
应该是按钮之后，根据新表手工输入本月订单的吧？还是在哪里读取的？

你好，本月订单是手工录入的，还有上月欠单也是手工录入的，谢谢

grf1973

手工录入后就不要再去点按钮了。。。。后面的产量和欠数用公式搞搞就行了。

wgxfhi11

grf1973 发表于 2016-5-5 15:57
手工录入后就不要再去点按钮了。。。。后面的产量和欠数用公式搞搞就行了。

但是我们是要每天看更新数据，那不是每按一次，我就得要重新录入一次吗

grf1973

重新改了下。

wgxfhi11

grf1973 发表于 2016-5-5 16:24
重新改了下。

你好，为什么型号那一列会出现重复的数据呢，而且如果多点击几次按钮，数据是错误的，这样就达不到，数据更新了