2015年7月21日 星期二

[EXCEL] 使用EXCEL VBA做分班篩選列印


若您的資料量大,但卻要篩選某些欄位來列印,光是點選篩選內容就會讓手掌泛紅腫脹,這時候就會想到,為何要把事情做得如此複雜。只好認命自救,EXCEL 的VBA最適合做這樣重覆的事情,如果你會錄製巨集,就錄一段,自己修改一下,若不會,就直接使用下列的程式碼:

Sub pclass()
'
' 篩選班級列印巨集
'
   Dim i
   For i = 1 To 16
    ActiveSheet.Range("$A$2:$E$200").AutoFilter Field:=2, Criteria1:=i
    ActiveSheet.PrintOut
   Next i
End Sub

說明:
1.建立新巨集,將以上程式碼貼上。
2.修改您的資料範圍(紅字的部份)。
3.修改要自動篩選的欄位(藍字的部份)。
4.修改要列印的數量(紫字的部份)。
5.執行巨集就可以了。

印表機記得要設定好,這樣每一張的格式都會一樣,GOOD LUCK!


沒有留言: