ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

EXCEL°ª¤â VBA ¦p¦ó±N»Ý­«ÂЪº°Ê§@¼g¦¨°j°é

EXCEL°ª¤â VBA ¦p¦ó±N»Ý­«ÂЪº°Ê§@¼g¦¨°j°é

½Ð°ÝEXCEL°ª¤â:
¦p¦ó±NSHEET2 AÄæ²Ä¢°µ§¸ê®Æ½Æ»s¨ìSHEET1 ªºA1Àx¦s®æ
¨Ã±NSHEET1ªº¤º®e¦L¥X¡A¦A±NSHEET2 AÄæ²Ä¢±µ§¸ê®Æ½Æ»s¨ìSHEET1 ªºA1Àx¦s®æ¦A±NSHEET1ªº¤º®e¦L¥X¡F¦p¦¹¤@ª½­«ÂЦÜSHEET2 AÄ檺³Ì«á¤@µ§¤~µ²§ôµ{¦¡¡AÁÂÁ¤j¤jªº¹©¤O¬Û§U¡I

¦^´_ 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

TOP

·PÁÂGBKEE¤jªº¦^ÂÐ!!

TOP

¦^´_ 2# GBKEE

      ¥i¥H°Ý¤@¤U³o¥yªº·N«ä¶Ü?
   .[A1].Value = E
      ³]©w¦C¦L½d³ò¶Ü
     .PageSetup.PrintArea = E
    ¥i¥H³o¼Ë¼g¶Ü
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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

TOP

¦^´_ 5# GBKEE


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

  ©Ò¥H­Y¦b«á­±¥[¤Waddress®ÄªG·|»P .[A1].value=E  ¬Û¦P¶Ü?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

©Ò¥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£«

TOP

¦^´_ 7# GBKEE


    §Úªº·N«ä¬O¨â¥y³£¬O¥i¥H¹F¨ì¦C¦L¸Ó°Ï¬qªº¸ê®Æ¶Ü
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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ªº
   

TOP

¦^´_ 9# GBKEE


    ÁÂÁ¤j¤j¦^ÂÐ
     ³o¦U§Ú¦b·Q¨Ì¤U¦n¤F
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD