GBKEE

¦^´_ 1# junekevin

1. Sub Ex()
   
2.     Dim E As Range, Sh As Worksheet
   
3.     Set Sh = Sheets("Sheet2")   '³]¥ßª«¥óÅܼÆ
   
4.     For Each E In Sh.Range("A1:A" & Sh.[A1].End(xlDown).Row)
   
5.     'For Each E In  -> ¨Ì§Ç³B²z ª«¥ó¶°¦X ªº ¤lª«¥ó
   
6.     'Sh.[A1].End(xlDown).Row ->  Shªº A1©¹¤U¨ì³Ì«á¦³¸ê®Æªº¦C¦ì->¼Æ¦r
   
7.         With Sheets("SHEET1")    '¦bª«¥ó¤¤
   
8.             .[A1].Value = E
   
9.             .PrintOut            '¦L¦C
   
10.         End With
    
11.     Next
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# freeffly
.[A1].Value = E   '(Value,¤º®e->­È)
.PageSetup.PrintArea = E.Address->¶Ç¦^ª«¥ó(Address) -> ¦ì¸m

VBAªº»¡©ú
PrintArea ÄÝ©Ê
¶Ç¦^©Î³]©w­n¦C¦Lªº½d³ò¡A¦¹¬°¨Ï¥Î¥¨¶°»y¨¥¤¤ A1 ¼Ë¦¡°Ñ·Óªº¦r¦ê¡CŪ/¼g String(¦r¦ê)
expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)
http://forum.twbts.com/thread-2741-2-1.html

GBKEE

©Ò¥H­Y¦b«á­±¥[¤Waddress®ÄªG·|»P .[A1].value=E  ¬Û¦P¶Ü?freeffly µoªí©ó 2011/3/6 20:38

·N«ä¬O¦p¦¹¶Ü?
[A1].value=E.address  -> [A1]=Eªº¦ì¸m ¥i¥H£«

GBKEE

¦^´_ 8# freeffly
2¼Óªºµ{¦¡½X ¬O°w¹ï¼Ó¥Dªºµo°Ý©Ò¼g  

1.[A1].Value = E     -> ( [A1].Value=Eªº¤º®e(­È) )  ->  ±N[A1]ªº¤º®e´À´«¬° E ªº¤º®e (°²³]¬°E= 101)

2 PageSetup.PrintArea ¬°³]©w¤u§@ªí¦L¦Cªº½d³ò
PageSetup.PrintArea =E.ADDRESS -> ¤u§@ªí¦L¦Cªº½d³ò= ¦r¦ê (Eªº½d³ò °²³]¬° $A$1)

¨â¥yªº¥Îªk¬O¤£¦Pªº