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

[µo°Ý] ¨Ï¥ÎwithªºÆ[©À, ¦³½Ð¥ý¶i´À§ÚÂç²M

[µo°Ý] ¨Ï¥ÎwithªºÆ[©À, ¦³½Ð¥ý¶i´À§ÚÂç²M

¥»©«³Ì«á¥Ñ thps51134 ©ó 2011-11-3 09:45 ½s¿è

·Q½Ð±Ð¹ï©ó"With" ¨Ó»¡
With Sheet1  »P
With Sheets("Sheet1") ¨âªÌªº¤£¦P

¦bwith¤¤
"ª«¥ó¥i¬Ù²¤(.)"
³o¬O­Ó»~·|¡BÁÙ¬O¬O¦³±ø¥ó©Êªº?

===
·Q°µ¤@­Ó¤@¶}Àɮ׮ɴN¦bSheet1ªºC1¼g¥X"OH!"ªºcode

­è¶}©l¼g¦¨³o¼Ë¡G
Private Sub Workbook_Open()
    With Sheet1
        Cells(1, "C").Value = "OH!"
    End With
End Sub
¡@¡@'¦]¬°¤§«e¬Ý¨ì¦³»¡with¤§¤¤, ª«¥ó¥i¥H¬Ù²¤ªºÃö«Y§a...µ²ªG¬Ù²¤´N¦b¿ùªºSheet¤W°Ê§@¤F'

·í¤U¤£ª¾¹D¬°¤°»ò¨C¦¸¶}±Ò³£¬O°Ê¨ì¶}±Ò®ÉªºSheet¦Ó«DSheet1
¤Wºô¬d®Éµo²{»P§O¤Hªº¼gªk¤£¦P
©ó¬OÅܦ¨¤F³o¼Ë

Private Sub Workbook_Open()
    With Sheets("Sheet1")      
         .Cells(1, "C").Value = "OH!"
    End With   
End Sub
¡@'³o®Éµo²{¶}±ÒÀÉ®×®É, Work_Open() ´N¤£°Ê§@¤F'

³Ì«á...
Private Sub Workbook_Open()
    With Sheet1
        .Cells(1, "C").Value = "OH!"
    End With
End Sub
¡@¡@'¦¨¥\!'

³Ì«á³o¼Ë´N¦¨¥\¤F
=====
ı±oÆ[©À·d¤£²M·¡«ÜÄY­«
ÁÙ¬O»¡¨ä¹ê§Ú¿ùªº¬O¨ä¥L¦a¤è¦Ó¤£¦Ûı (¨º´N§óÁV¿|¤F)
³Â·Ð¤j®a«ü¾É, ÁÂÁÂ!

¦^´_ 1# thps51134


    Sheets("Sheet1")³o¬O¥u¤u§@ªí¦WºÙ¬°Sheet1
    Sheet1³o¬O¤u§@ªíªºCodeName
¦p¹Ï

¦Ü©óWith°Ï¬q¤º¥i¬Ù²¤ª«¥óªº»¡ªk¬O¨S¿ùªº
¥u¬O¦b°Ï¬q¤º­n¬Ù²¤ª«¥ó¡A¥²¶·¥[¤WÂI
¦p
With Sheet1
.Range("A1")="aaaa"
End With
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ thps51134 ©ó 2011-11-3 10:30 ½s¿è

¦^´_ 2# Hsieh


    ­T¶ë¹y¶}! ·PÁÂ!

¡@«á¨Ó¶]¥h¨ú®øÁôÂä@­Ó¦WºÙ¬O"Sheet1"ªº¤u§@ªí
¡@µo²{C1ÁÙ¯uªº¦³­Ó"OH!"¦b¤W­±

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD