trainee

¦^´_ 9# GBKEE


¤j¤j©Ò«ü±Ðªº¤èªk¤wªì¨B¾Ç·|¡AÁÂÁ¡I
¦ý­Y¥H¥t¤@¼Ò¦¡ªº®æ¦¡¦C¦L¡A¤SÀ³¦p¦ó§@ªk¡I¡H
¦³³Ò¤j¤j¦A¦¸½ç±Ð¡I

GBKEE

¦^´_ 11# trainee

1. Sub Ex()
   
2.     Dim Rng As Range, E As Range, i, ii
   
3.     Set Rng = Sheets("Print Sheet").Range("B1, F1, B6, F6")
   
4.     With Sheets("Data Sheet")
   
5.         For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 4
   
6.             ii = 0: Rng.EntireColumn = "": Rng.Offset(, 2).EntireColumn = ""
   
7.             For Each E In Rng
   
8.                 E = .Cells(i + ii, "A")
   
9.                 E.Offset(2) = .Cells(i + ii, "B")
   
10.                 E.Offset(2, 2) = .Cells(i + ii, "C")
    
11.                 E.Offset(4) = .Cells(i + ii, "D")
    
12.                 E.Offset(4, 2) = .Cells(i + ii, "E")
    
13.                 ii = ii + 1
    
14.             Next
    
15.              With Rng.Parent
    
16.                 .PageSetup.PrintArea = "a1:h10"
    
17.                 .PageSetup.FitToPagesWide = 1
    
18.                 .PageSetup.FitToPagesTall = 1
    
19.                 .PrintOut
    
20.             End With
    
21.         Next
    
22.     End With
    
23. End Sub

½Æ»s¥N½X

trainee

¦^´_ 12# GBKEE


·s¤B¦A¦¸Á¹L¡I
¥ý¦æ§Û¤U¡A¦n¦n¾Ç²ß¡I