[已解决]麻烦朋友帮我实现一下简单的查询和汇总功能

wuxingai

yty773436272 发表于 2011-12-21 23:07
朋友，不好意思，都怪我一时大意少弄了一列，我在计量单位后面（入库数量前面）加了一列，其它的代码我都 ...

arr2(8, n)表示第8列的数据，你现在在第8列增加新列，则将原
arr2(8, n)更改为arr2(9,n), arr2(9,n)更改为arr2(10,n),……依次改到最后一列，然后按需要增加新的一列arr2(8,n)
最后一句中 resize 12 更改为13，Sheets("统计表").Range("A4").Resize(n, 13) = Application.Transpose(arr2)

yty773436272

wuxingai 发表于 2011-12-22 08:06
arr2(8, n)表示第8列的数据，你现在在第8列增加新列，则将原
arr2(8, n)更改为arr2(9,n), arr2(9,n)更 ...

1. Sub cc()
   
2. Dim arr1, arr2(), r%, i%, n%, j%, m%
   
3. r = Sheets("汇总表").Range("A65536").End(xlUp).Row
   
4. arr1 = Sheets("汇总表").Range("A5:U" & r)
   
5. ReDim arr2(1 To 13, 1 To 1)
   
6. For i = 1 To UBound(arr1)
   
7. If IsError(Application.Match(arr1(i, 1), Application.Index(arr2, 1), 0)) Then
   
8. n = n + 1
   
9. ReDim Preserve arr2(1 To 13, 1 To n)
   
10. For j = 1 To 7
    
11. arr2(j, n) = arr1(i, j)
    
12. Next j
    
13. arr2(9, n) = arr1(i, 9)
    
14. arr2(10, n) = arr1(i, 15)
    
15. arr2(11, n) = (arr2(9, n) - arr2(10, n)) * arr2(6, n)
    
16. arr2(12, n) = arr1(i, 21)
    
17. arr2(13, n) = (arr2(10, n) - arr2(12, n)) * arr2(6, n)
    
18. Else
    
19. m = Application.Match(arr1(i, 1), Application.Index(arr2, 1), 0)
    
20. arr2(9, m) = arr2(9, m) + arr1(i, 9)
    
21. arr2(10, m) = arr2(10, m) + arr1(i, 15)
    
22. arr2(11, m) = (arr2(9, m) - arr2(10, m)) * arr2(6, m)
    
23. arr2(12, m) = arr2(12, m) + arr1(i, 21)
    
24. arr2(13, m) = (arr2(10, m) - arr2(12, m)) * arr2(6, m)
    
25. End If
    
26. Next i
    
27. Sheets("统计表").Range("A4:L65536").ClearContents
    
28. Sheets("统计表").Range("A4").Resize(n, 13) = Application.Transpose(arr2)
    
29. End Sub
    

复制代码

yty773436272

yty773436272 发表于 2011-12-22 12:48

谢谢你，我改好啦，统计表里能不能在下面显示一个“库存金额”和“在途商品金额”合计。物流和销售查询表里能不能几个命令查询时不相互影响，也就是说我查询产品编号不管后面其它命令有没有条件数据在里面都以产品编号的条件查询出来。查询表里能不能不要按钮，我利用数据有效性直接选择出来就显示，麻烦你帮我改改，其它都没有什么问题啦