新手求助！入库单输完点保存自动汇总到入库单汇总表！

wntxk

点击“保存”，自动将数据汇总到“入库单汇总表”；

点击“新建”，清空已有数据重新输入；

另：入库单号能否设置自动，点击保存后自动变为下一个（No_F0002393点击保存后变为No_F0002394）.

TomingTang

1. Sub 汇总()
   
2.     Dim drow%, drow1%, i%, j%, k%, Arr, Brr(1 To 100, 1 To 10)
   
3.     j = 1
   
4.     With Worksheets("入库单输入与打印")
   
5.         drow = .[a4].End(4).Row
   
6.         Arr = .Range("a5:g" & drow)
   
7.         For i = 1 To UBound(Arr)
   
8.             Brr(j, 1) = .[e2]: Brr(j, 2) = .[b2]: Brr(j, 3) = .[b3]
   
9.             Brr(j, 4) = Arr(i, 6): Brr(j, 10) = Arr(i, 7)
   
10.             For k = 1 To 5
    
11.                 Brr(j, 4 + k) = Arr(i, 1)
    
12.             Next
    
13.             j = j + 1
    
14.         Next
    
15.         .[b2] = Left(.[b2], 7) & (--Right(.[b2], 4) + 1)
    
16.     End With
    
17. 
    
18.     With Worksheets("入库单汇总表")
    
19.         drow1 = .Cells(.Rows.Count, 1).End(3).Row
    
20.         .Cells(drow1 + 1, 1).Resize(j, 10) = Brr
    
21.     End With
    
22. 
    
23. End Sub

复制代码

需求汇总入库单.zip (27.63 KB, 下载次数: 108)

2014-11-27 14:05 上传

点击文件名下载附件

1. Sub 清除()
   
2.     With Worksheets("入库单输入与打印")
   
3.         Union(.Range("a5:g13"), .Range("b2:b3"), .Range("e2:e3")).ClearContents
   
4.     End With
   
5. End Sub
   

复制代码

wntxk

TomingTang 发表于 2014-11-27 14:05

首先非常感谢！
还有两个小问题：
1是汇总表里 规格型号 到 数量 这四列全部都变成 产品名称 了~;
2是能否做到点击“保存”后入库单号自动变成下一个，然后其他信息清空，不好意思之前表述错误~这样就可以直接把”新建“改成“清除”了。
还望再指教，万分感谢~~

TomingTang

1、不好意思，那个看错了，已经修改好了。（建议你以后求助，附件中有具体数据，方便写代码的人调试程序）；
2、已经在保存加入删除、订单号变下一个了；请查看。

1. Sub 汇总()
   
2.     Dim drow%, drow1%, i%, j%, k%, Arr, Brr(1 To 100, 1 To 10)
   
3.     j = 1
   
4.     With Worksheets("入库单输入与打印")
   
5.         drow = .[a4].End(4).Row
   
6.         Arr = .Range("a5:g" & drow)
   
7.         For i = 1 To UBound(Arr)
   
8.             Brr(j, 1) = .[e2]: Brr(j, 2) = .[b2]: Brr(j, 3) = .[b3]
   
9.             Brr(j, 4) = Arr(i, 6): Brr(j, 10) = Arr(i, 7)
   
10.             For k = 1 To 5
    
11.                 Brr(j, 4 + k) = Arr(i, k)
    
12.             Next
    
13.             j = j + 1
    
14.         Next
    
15.         .[b2] = Left(.[b2], 7) & (--Right(.[b2], 4) + 1)
    
16.         Union(.Range("a5:g13"), .Range("b3"), .Range("e2:e3")).ClearContents
    
17.     End With
    
18. 
    
19.     With Worksheets("入库单汇总表")
    
20.         drow1 = .Cells(.Rows.Count, 1).End(3).Row
    
21.         .Cells(drow1 + 1, 1).Resize(j, 10) = Brr
    
22.     End With
    
23. 
    
24. End Sub
    
25. 
    
26. 
    
27. Sub 清除()
    
28.     With Worksheets("入库单输入与打印")
    
29.         Union(.Range("a5:g13"), .Range("b2:b3"), .Range("e2:e3")).ClearContents
    
30.     End With
    
31. End Sub
    

复制代码

wntxk

TomingTang 发表于 2014-11-27 17:32
1、不好意思，那个看错了，已经修改好了。（建议你以后求助，附件中有具体数据，方便写代码的人调试程序）； ...

这就是我想要的效果，真是太棒了，万分感谢。取经了，下次会附数据上传的，再次感谢~！

wntxk

TomingTang 发表于 2014-11-27 17:32
1、不好意思，那个看错了，已经修改好了。（建议你以后求助，附件中有具体数据，方便写代码的人调试程序）； ...

你好，刚刚又发现了个新问题，怎么到了汇总表里合计这几行也汇总进去了呢？这个能解决么？
然后，点击保存清除的时候入库日期能不清除么~ 11.29最新.zip (21.05 KB, 下载次数: 36)

2014-11-29 15:42 上传

点击文件名下载附件

TomingTang

1. Sub 汇总()
   
2.     Dim drow%, drow1%, i%, j%, k%, Arr, Brr(1 To 100, 1 To 10)
   
3.     j = 1
   
4.     With Worksheets("入库单输入与打印")
   
5.         drow = .[a4].End(4).Row
   
6.         Arr = .Range("a5:g" & 13)
   
7.         For i = 1 To UBound(Arr)
   
8.             Brr(j, 1) = .[e2]: Brr(j, 2) = .[b2]: Brr(j, 3) = .[b3]
   
9.             Brr(j, 4) = Arr(i, 6): Brr(j, 10) = Arr(i, 7)
   
10.             For k = 1 To 5
    
11.                 Brr(j, 4 + k) = Arr(i, k)
    
12.             Next
    
13.             j = j + 1
    
14.         Next
    
15.         .[b2] = Left(.[b2], 7) & (--Right(.[b2], 4) + 1)
    
16.         Union(.Range("a5:g13"), .Range("b3"), .Range("e3")).ClearContents
    
17.     End With
    
18. 
    
19.     With Worksheets("入库单汇总表")
    
20.         drow1 = .Cells(.Rows.Count, 1).End(3).Row
    
21.         .Cells(drow1 + 1, 1).Resize(j, 10) = Brr
    
22.     End With
    
23. 
    
24. End Sub
    
25. 
    
26. 
    
27. Sub 清除()
    
28.     With Worksheets("入库单输入与打印")
    
29.         Union(.Range("a5:g13"), .Range("b2:b3"), .Range("e2:e3")).ClearContents
    
30.     End With
    
31. End Sub
    

复制代码

阿钱

谢谢分享！