筛选打印如何编代码（将班级作为变量）

wczx100

Sub 宏1()

'

' 宏1 宏

'

'

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级01班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级02班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级03班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级04班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级05班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级06班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级07班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级08班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级09班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

    ActiveSheet.Range("$A$5:$Y$1496").AutoFilterField:=8, Criteria1:= _

       "高2015级10班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8, Criteria1:=_

       "高2015级11班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级12班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级13班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级14班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级15班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级16班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级17班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级18班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级19班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

   ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8,Criteria1:= _

       "高2015级20班"

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

       IgnorePrintAreas:=False

End Sub

wczx100

将班级作为变量设置，不知道怎么设置？

gdw831001

1. Sub dd()
   
2.     For i = 1 To 20
   
3.         ActiveSheet.Range("$A$5:$Y$1496").AutoFilter Field:=8, Criteria1:= _
   
4.             "高2015级" & i & "班"
   
5.         ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
   
6.             IgnorePrintAreas:=False
   
7.     Next
   
8. End Sub
   

复制代码

wczx100

gdw831001 发表于 2017-12-7 12:29

这样可以打出10-20班，可01-09班打印不出来

wczx100

gdw831001 发表于 2017-12-7 12:29

可以打印出10-20班可01-09班打印不出来

Chip_Kenny

try this:

1. Sub zz()
   
2. Dim rng As Range, ar, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set rng = Range("$A$5:$Y$1496")
   
5. ar = rng.Columns(8)
   
6. For Each a In ar
   
7.     d(a) = ""
   
8. Next
   
9. k = d.keys
   
10. For Each a In k
    
11.     rng.AutoFilter Field:=8, Criteria1:=a
    
12.     rng.PrintPreview
    
13. Next
    
14. End Sub
    

复制代码

wczx100

朱荣兴 发表于 2017-12-7 12:18
上传你的Excel附件，录制的宏，没改的价值

谢谢！由于是刚接触，只有通过录制来学习下！

wczx100

Chip_Kenny 发表于 2017-12-7 14:47
try this:

我的天，这么复杂呀！谢谢！谢谢

wczx100

Chip_Kenny 发表于 2017-12-7 14:47
try this:

我的天，这么复杂呀！谢谢！谢谢，看来自学不行呀