多表汇总问题

dbg120

期末金额重复了一列，在厂家后面又多了这期末金额一列

dbg120

老师，您能不能把原始数据表里的单价不要了直接用金额替换这个单元格，库存表里的期初单价也不要了，您费心了！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   vs = [{"原始数据",8;"收入",9;"发出",13;"退料",9}]
   
7.   For k = 1 To UBound(vs)
   
8.     With Worksheets(vs(k, 1))
   
9.       r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.       c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
11.       arr = .Range("a2").Resize(r - 1, c)
    
12.       m = 0
    
13.       For i = 1 To UBound(arr)
    
14.         If Not d.exists(arr(i, 2)) Then
    
15.           ReDim brr(1 To 17)
    
16.           m = m + 1
    
17.           brr(1) = m
    
18.           For j = 2 To 5
    
19.             brr(j) = arr(i, j)
    
20.           Next
    
21.           brr(7) = arr(i, 7)
    
22.           brr(17) = arr(i, vs(k, 2))
    
23.         Else
    
24.           brr = d(arr(i, 2))
    
25.         End If
    
26.         If k = 1 Then
    
27.           brr(6) = brr(6) + arr(i, 6)
    
28.         Else
    
29.           brr(k * 2 + 5) = brr(k * 2 + 5) + arr(i, 6)
    
30.           brr(k * 2 + 6) = brr(k * 2 + 6) + arr(i, 8)
    
31.         End If
    
32.         d(arr(i, 2)) = brr
    
33.       Next
    
34.     End With
    
35.   Next
    
36.   
    
37.   brr = Application.Transpose(Application.Transpose(d.items))
    
38.   For i = 1 To UBound(brr)
    
39.     brr(i, 8) = brr(i, 6) * brr(i, 7)
    
40.     brr(i, 15) = brr(i, 6) + brr(i, 9) - brr(i, 11) + brr(i, 13)
    
41.     brr(i, 16) = brr(i, 8) + brr(i, 10) - brr(i, 12) + brr(i, 14)
    
42.   Next
    
43.   With Worksheets("库存")
    
44.     .UsedRange.Offset(2, 0).ClearContents
    
45.     .Columns(2).NumberFormatLocal = "@"
    
46.     .Range("a3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
47.   End With
    
48. End Sub
    

复制代码

chxw68

凑凑热闹。

dbg120

chxw68 发表于 2018-1-15 10:31
凑凑热闹。

老师，如果在原始数据表中新增物料统计结果不显示，在收入和发出中新增物料，统计结果也不显示，能给调整一下吗？谢谢！

dbg120

是只有在原始表中增加可以，只在收入中增加不显示在库存表中

chxw68

详见附件。

322344

dbg120 发表于 2018-1-15 10:00
这回对了，可是我说的20001808195振华怎么没有统计显示出来呢

那你要发你的文件给我了，我也不知道怎么回事，还有就是需要点我的消息回复 ，我才能收到 ，不然我是收不到消息的。

322344

dbg120 发表于 2018-1-15 10:03
我的意思是象这样的物料编码系统是不是识别不出来呀

可以识别出来，需要设置单元格为文本，不然数据库读出来的数据是数字格式，所以就显示不出来了。

322344

dbg120 发表于 2018-1-15 10:08
期末金额重复了一列，在厂家后面又多了这期末金额一列

这个需要清空表运行，我加一句话就好。