Application.OnTime ¬O§_¦b°õ¦æ¤¤ªº»yªk?
- ©«¤l
- 760
- ¥DÃD
- 250
- ºëµØ
- 0
- ¿n¤À
- 1023
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-28
|
Application.OnTime ¬O§_¦b°õ¦æ¤¤ªº»yªk?
¶}©l==> Application.OnTime The_Time, "timestock"
°±¤î==> Application.OnTime The_Time, "timestock", Schedule:=False
½Ð±Ð timestock ¬O§_¦b°õ¦æ¤¤ªº»yªk ???
if ........then |
|
|
|
|
|
|
- ©«¤l
- 760
- ¥DÃD
- 250
- ºëµØ
- 0
- ¿n¤À
- 1023
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-28
|
¥»©«³Ì«á¥Ñ t8899 ©ó 2014-8-6 06:45 ½s¿è
©êºp¡A§Úµo²{§Ú¦³³]¬°public¬°
Public The_Time As Date
Dim my As Date
my ¤]n³]¬° public ??¬O³o°ÝÃD¶Ü³y¦¨ªº¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 760
- ¥DÃD
- 250
- ºëµØ
- 0
- ¿n¤À
- 1023
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-28
|
¥»©«³Ì«á¥Ñ t8899 ©ó 2014-8-6 06:37 ½s¿è
¦^´_ t8899
VBA¨S¦³¨ç¼Æ¥i¶Ç¦^µ{¦¡¤¤¦³´XÓApplication.OnTime¦b°õ¦æ¤¤.
½Ð¸Õ±N timestockÅܼƦb¤@¯ë¼Ò²Õ³»ºÝ,³]¬°¤½¥ÎªºÅܼÆ
GBKEE µoªí©ó 2014-8-6 06:04
ÁÂÁÂ !
§Ú³]ªºÅܼƬ° The_Time = Time + my
¤½¥ÎÅܼƬOn³]©wThe_Time ÁÙ¬O my ?ÁÙ¬O¥þ³]?
Public The_Time As Date
Public my As Date |
|
|
|
|
|
|
- ©«¤l
- 760
- ¥DÃD
- 250
- ºëµØ
- 0
- ¿n¤À
- 1023
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-28
|
¥»©«³Ì«á¥Ñ t8899 ©ó 2014-8-5 20:40 ½s¿è
¦^´_ t8899
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2014-8-5 15:47
ÁÂÁÂ
§Úªº°ÝÃD¬O
Application.OnTime The_Time, "timestock", Schedule:=False
¦³®É³o¦æ°±¤îµL®Ä,¤]¨S¦³¥X²{°T®§,....µM«á¦A«¶]¡AÅܦ¨¨âÓtimestock¦P®É¦b¶]
¤£ª¾¦p¦ó¸Ñ¨M?¦³µL¯S®í³B²z¤èªkÅý¥¦°±¤î?§Ú³£ÃöÀɦA«¶}!
¦pªG¦b "timestock" °õ¦æ¤§«e°µ¤@Ó¶}Ãö Msg As Boolean
timestock ªº¯u¥¿°õ¦æª¬ºAÀ³¤£¨ümsg ªº¼vÅT ??(¤£·|¶Çµ¹msg)
©Ò¥H§ÚnªºÀ³¬O
if timestock ¥¿¦b°õ¦æ¤¤ «h¸õ¥X§_«h °õ¦æ |
|
|
|
|
|
|