如何吧数据源信息拆分固定格式的excel表

xiaobudianer727

例子.rar (20.49 KB, 下载次数: 9)

2014-1-11 22:18 上传

点击文件名下载附件

各位大神，本人做进出后业务，经常需要制作发票。发票的格式固定，基础数据也是固定的。
有时候一下子要做好多发票，目前由实习生纯属手工制作，不停的复制粘贴，但是觉得这样太浪费人力。
有没有什么办法可以将这些数据进行拆分的？看了论坛上好多类似的帖子，但是由于本人excel的相关知识过于匮乏，所以就算努力学些也无法解决燃眉之急。
附上例子和说明希望大神可以帮忙写一个范本出来。

grf1973

1. Sub 下一张发票()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         buc = arr(i, 2)
   
6.         d(buc) = d(buc) & i & ","
   
7.     Next
   
8.     dk = d.keys
   
9.     With Sheet2
   
10.         buc = .[g12]
    
11.         If Not d.exists(buc) Then
    
12.             .[g12] = dk(0)
    
13.             .[g7] = "'" & Format(Date, "yyyymmdd") & "01"
    
14.         Else
    
15.             For i = 0 To UBound(dk)
    
16.                 If buc = dk(i) Then
    
17.                     If i < UBound(dk) Then
    
18.                         .[g12] = dk(i + 1)
    
19.                     Else
    
20.                         MsgBox "已到最后一条记录": Exit Sub
    
21.                     End If
    
22.                 End If
    
23.             Next
    
24.             .[g7] = "'" & Val(.[g7]) + 1
    
25.         End If
    
26.         buc = .[g12]
    
27.         brr = Split(d(buc), ",")
    
28.         i = Val(brr(0))
    
29.         .Range("g8,g9,b12,b14,a22:f31") = ""
    
30.         .[g8] = arr(i, 7) '日期
    
31.         .[g9] = arr(i, 1) 'PO NO.
    
32.         .[b12] = arr(i, 10) ' CUST PO NO.
    
33.         .[b14] = arr(i, 8) ' SHIP VIA
    
34.         For j = 0 To UBound(brr) - 1
    
35.             If j >= 10 Then Exit For
    
36.             i = Val(brr(j))
    
37.             .Cells(22 + j, 1).Resize(1, 6) = Array(arr(i, 3), arr(i, 4), "", "", arr(i, 5), arr(i, 6))
    
38.         Next
    
39.     End With
    
40. End Sub
    
41. 
    
42. Sub 清空()
    
43.      Range("g7:g12,b12,b14,a22:f31") = ""
    
44. End Sub
    

复制代码

grf1973

做了两个按钮，一个是生成下一张发票，一个是清空。“下一张发票”可以实现：如果buc为空，那么源数据从头开始找到第一个buc生成发票，发票号为当前日期+01；如果buc不为空，那么在源数据中找到当前buc，从下一个buc生成发票，发票号为上一发票号+1。