excel批量按模板列印 vba經典
阿新 • • 發佈：2021-11-21
PublicaAsString,bAsString,cAsString,dAsString,eAsString,fAsString,gAsString'定義公共變數
PublichAsString,iAsString,jAsString,kAsString,lAsString,mAsString,LastRowAsInteger
Sub按鈕1_Click()
Sheets("sheet1").Select'選擇Sheet1工作表
LastRow=Cells(Rows.Count,1).End(xlUp).Row'求出表格內容的最後一行行號
Forx=2ToLastRow'從第二行的內容開始到最後一行a=Cells(x,1)'合同編號客戶名稱將對應行的內容讀入變數中
b=Cells(x,2)'合同編號Cells(x,2)的意思是第x行第2列的單元格內容
c=Cells(x,3)'客戶名稱a~m是變數，存放x行中各單元格的資料
d=Cells(x,4)'區域經理
e=Cells(x,5)'代理商
f=Cells(x,6)'函件單號
g=Cells(x,7)'是否回函
h=Cells(x,8)'合同總價
i=Cells(x,9)'到款金額
j=Cells(x,10)'合同餘款
k=Cells(x,11)'截止開票金額
l=Cells(x,12)'開票金額
m=Cells(x,13)'求和項
Sheets("列印").Select'
Cells(1,1).Select'
[J6]=a'合同編號客戶名稱將變數內容填入對應單元格的中
[J2]=b'方括號中內容就是單元格名稱，如[J2]就是J2單元格
[K2]=c’這裡僅作示範，請你根據變數的內容要填入打印表格中的什麼地方你自行修改
[E3]=d
[C5]=e
[E5]=f
[F5]=g
[H5]=h
[J5]=i
[D7]=j
[E7]=k
[F7]=l
[G7]=m
ActiveWindow.SelectedSheets.PrintOutCopies:=1,Collate:=True,IgnorePrintAreas:=False'列印指定範圍內容，列印一份Next'處理下一行
EndSub