- ©«¤l
- 23
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 39
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-10-27
- ³Ì«áµn¿ý
- 2021-5-13
|
[µ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«ü¾É, ÁÂÁÂ! |
|