[µo°Ý] vlookup¤@¦¸¥þ³¡¦C¦L

energy318122

¥Ø«e¦³¤@­Ó¤H­û¸ê®Æ®w¡A¥t¤@­Óªí®æ¬°­Ó¤H¤À°tªí¡I
§Ú¤w¸g¥ÎVLOOKUP³v¤@¥s¥X¤@­Ó¤Hªº¤À°t¤ñ¨Ò¡I
¦ý¬O¦C¦L®É§Ú·Q­n¤@¦¸´N¥i¥H¦C¦L¥þ³¡©Ò¦³¤H¡A¦Ó¤£¬O¤@µ§¤@µ§¥s¥X¨Ó¦L¡A¤]¤£·Q­«½Æªí®æ¦C¦L¡I
¤£ª¾¹D¦³¨S¦³¨ä¥Lªº¿ìªk©O¡H¡]¦]¬°­ì©lÀɸê®Æ«Ü¦h¡A¤@µ§¤@µ§¥s¹ê¦b¤£¬O¿ìªk¡^

trainee

¦^´_ 12# GBKEE


·s¤B¦A¦¸Á¹L¡I
¥ý¦æ§Û¤U¡A¦n¦n¾Ç²ß¡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

¦^´_ 9# GBKEE


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

trainee

¦^´_ 9# GBKEE


·PÁ¤j¤jªº¦^ÂФνç±Ð¡I:) :)

¨ä¹ê§Ú»Ýªº¸ê®Æ¹L¦Êµ§¡A
§Ú·|¹Á¸Õ°Ñ¸Ô¤Î¾Ç²ß¤j¤jªº¤èªk¡A
§Æ±æ¥i¥H¦Û¦æ¸Ñ¨M°ÝÃD¡I

GBKEE

¦^´_ 8# trainee

1. Sub Ex()
   
2.     Dim Rng As Range, E As Range, i, ii
   
3.     Set Rng = Sheets("Print Sheet").Range("b1, d1, b6, d6, B11, D11")
   
4.     With Sheets("Date Sheet")
   
5.         For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 6
   
6.             ii = 0: Rng.EntireColumn = ""
   
7.             For Each E In Rng
   
8.                 E = .Cells(i + ii, "A")
   
9.                 E.Offset(2) = .Cells(i + ii, "B")
   
10.                 E.Offset(4) = .Cells(i + ii, "C")
    
11.                 ii = ii + 1
    
12.             Next
    
13.              With Rng.Parent
    
14.                 .PageSetup.FitToPagesWide = 1
    
15.                 .PageSetup.FitToPagesTall = 1
    
16.                 .PrintOut
    
17.             End With
    
18.         Next
    
19.     End With
    
20. End Sub

½Æ»s¥N½X

trainee

¦^´_ 7# GBKEE

¥ý¦æ¦A¦¸Á¹L¡I
²{ªþ¤WÀɮסA­Y¦³·M¬N¤§³B¡A¸U±æ¥]®e¡I¡I

GBKEE

¦^´_ 6# trainee
­Y¤@­¶»Ý¦C¦L¤Q­Ó°O¿ý¡A¤À¤GÄ椭¦C ªþ¤W½d¨Ò¬Ý¬Ý!

trainee

GBKEE¤j¤j
·s¤B¾Ç·|¤F¡A¥ý¦æÁ¹L¡I
½Ð°Ý¡A
­Y¤@­¶»Ý¦C¦L¤Q­Ó°O¿ý¡A¤À¤GÄ椭¦C¡A
¥i¦p¦ó§@ªk¡H
·Ð½Ð½ç±Ð¡I

GBKEE

¦^´_ 4# energy318122

1. Sub Ex()
   
2.     Dim R As Range
   
3.     With Sheets("¤u§@ªí2")
   
4.         For Each R In Sheets("¤u§@ªí1").Range("A2:E10").Rows
   
5.             .Range("A2:E2") = R.Value
   
6.             .PrintOut
   
7.         Next
   
8.     End With
   
9. End Sub

½Æ»s¥N½X