- ©«¤l
- 8
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- vista
- ³nÅ骩¥»
- 1
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-8-11
- ³Ì«áµn¿ý
- 2011-8-23
|
¥»©«³Ì«á¥Ñ gglan9 ©ó 2011-8-14 06:10 ½s¿è
¸Õ¹L
Application.OnTime Now + TimeSerial(0, 0, 10), "Dosomething" '©µªøµ¥«Ý®É¶¡10¬í
¦pªG¥¨¶°¬O¦b¬¡¶Ã¯¸Ì·|ÅV¥Ü µLªk°õ¦æ¥¨¶° Excel ·|µLªkÃö³¬ ¥²»Ý±j¨îÃö³¬
======================================================================
¦Ó³æ¿W¼g¦¨¤@Ó¥¨¶°¥i¥H°õ¦æ
¸Õ¹L¦b °j°é¸ÌŪ¨ú¦¹¥¨¶° ¦ýD1¸Ì¸ê®Æ·|°±¦bA1Àx¦s®æ ¤£¥Î±j¨îÃö³¬excel
Application.Run Macro:= "A" ¤]¨S¦³°Ê§@
¤]¤£·|Ä~Äò©¹¤UŪ¨úAÄæ¸ÌªºA2,A3,A4.............¨ìA?Àx¦s®æ
=================================================================
¥¨¶°¸Ìªº- Sub Time()
- Application.OnTime Now + TimeSerial(0, 0, 10), " yy"
- End Sub
½Æ»s¥N½X =================================================================
°j°é¸Ìªº- Sub yy()
- For Each c In [A:A].SpecialCells(2)
- [D1] = c
- If c = "" Then Exit For
- Application.Run Macro:= "Time"
- Next
- Application.Run Macro:= "A"
- End Sub
½Æ»s¥N½X ½Ð«ü±ÐÁÂÁ |
|