lpk187

¦^´_ 1# starry1314

Àɮפº®e±Æ¦C¦³»~¡A½Ð¦Û¦æ§ó¥¿¡I¡I(¦h¤F2¦C)
"¨â°e(µæ²Õ)-1"ªº²Ä¤@®æ¬°ªÅ¥Õ¡A©Ò¥H³o±i¤£·|¦C¦L
"¦­À\(¦Û³Æ²Õ)-1"¡B"¤ÈÀ\(¦Û³Æ²Õ)-1"¡B"±ßÀ\(¦Û³Æ²Õ)-1"³o¸Ì­¶«h²Ä¤@®æ¦³¤å¦r¡A·|¦C¦L

1. Option Explicit
   
2. Sub ¦C¦L()
   
3.     Dim I%, J%, X%, Y%, ades
   
4.     For I = 1 To 9
   
5.         For J = 1 To 6
   
6.             X = I * 20 - 19: Y = J * 6 - 5
   
7.             If Cells(X, Y).Offset(2).Value <> "" Then
   
8.                 ades = Range(Cells(X + 1, Y), Cells(I * 20, J * 6 - 1)).Address
   
9.                 'ActiveSheet.PageSetup.PrintArea = ades
   
10.                 Range(ades).PrintOut Copies:=1, Collate:=True
    
11.             End If
    
12.         Next
    
13.     Next
    
14. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 4# starry1314

1. Sub ¦C¦L()
   
2.     Dim I%, J%, X%, Y%, ades, kk
   
3.     For I = 1 To 9 '©¹¤U±i¼Æ
   
4.         For J = 1 To 6 '¨C±iÄæ¼Æ
   
5.             X = I * 20 - 19: Y = J * 6 - 5  '20=¦C¼Æ-19 ¦©°£¼ÐÃD 6=Äæ¼Æ-5¦©°£¶¡¹jÄæ
   
6.             kk = InStr(Cells(X, Y).Offset(2).Value, "ªÅ¥Õ")
   
7.             If InStr(Cells(X, Y).Offset(2).Value, "ªÅ¥Õ") = 0 And Cells(X, Y).Offset(2).Value <> "" Then
   
8.                 ades = Range(Cells(X + 1, Y), Cells(I * 20, J * 6 - 1)).Address
   
9.                 'ActiveSheet.PageSetup.PrintArea = ades
   
10.                 Range(ades).PrintOut Copies:=1, Collate:=True
    
11.             End If
    
12.         Next
    
13.     Next
    
14. End Sub

½Æ»s¥N½X