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

·Q½Ð±Ð-¦b³]©wªº¤é´Á¦Û°Ê°õ¦æ¥¨¶°

·PÁÂGBKEEª©¤j,§Ú¬O³o¼Ë¼g°Õ:
Sub macro1()
Application.OnTime "2010/10/19 22:55:30"
MsgBox Format(Now, "YYYY/M/D  H:M:ss")
End Sub
µM«á§Úª½±µ°õ¦æmacro1,
³o¼Ë¨S¿ìªk°õ¦æ...
¤£¹L¨SÃö«Y,§Ú´N©ñ¦bSub EX()´N¥i¥H¤F,
ÁÂÁÂ.

TOP

¦^´_ 21# ¤TÄ_
expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
OnTime¥²­n¤Þ¼Æ
EarliestTimeIJµo®É¶¡
Procedureµ{§Ç¦WºÙ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤£¦n·N«ä,§Úµo²{¤@­Ó°ÝÃD,§ÚªºVBA¬O³o¼Ë¼g:
Sub EX()
Application.OnTime "2010/10/19 17:26:00", "macro1"
Application.OnTime "2010/10/20 17:26:00", "macro2"
Application.OnTime "2010/10/21 17:26:00", "macro3"
End Sub
§Ú¬Q¤Ñ°õ¦æ¥¿±`,¦]¬°¬Q¤Ñ¬O10¤ë19¤é,10¤ë20¤éÁÙ¨S¨ì,©Ò¥Hmacro2¸òmacro3¤£·|IJµo,
¥i¬O¤µ¤Ñ¦A¥´¶}ÀÉ®×,¦A°õ¦æEX,
µ²ªGµo²{¬Q¤Ñªºmacro1¤S¦A°õ¦æ¤F¤@¦¸,
¦Ó§â¤µ¤Ñªº¸ê®Æ³£»\±¼¤F,
³o....³o.....³o¸Ó«ç»ò¿ì?
­n«ç»ò¼g¤~ªí¥Ü¹L¤F10¤ë19¤é¤§«á,´N¤£·|¦A¦¸°õ¦æmacro1©O?
ÁÂÁÂ.....

TOP

¦^´_ 23# ¤TÄ_
¹J¨ì¸ê®Æ§R°£µLªk´_­ì®É Ãö³¬Àɮ׮ɿï¾Ü ¤£­n¦sÀÉ ­«·s¶}±ÒÀÉ®× ´N¥i¥H
  1. Sub Ex()
  2.     Dim Macro$
  3.     If Date = "2010/10/19" Then
  4.         Macro = "Macro1"
  5.     ElseIf Date = "2010/10/20" Then
  6.         Macro = "Macro2"
  7.     ElseIf Date = "2010/10/21" Then
  8.         Macro = "Macro3"
  9.     End If
  10.     Application.OnTime "17:26:00", Macro
  11. End Sub
½Æ»s¥N½X

TOP

·PÁÂGBKEEª©¤j¼ö¤ß¦^ÂÐ,
§Ú¸Õ¹L,¥i¥H¸Ñ¨M¤F
¤£¹L§Ú§ï¦¨:
Sub EX()
If Date = "2010/10/20" Then
Application.OnTime "2010/10/20 21:15:00", "macro1"

ElseIf Date = "2010/10/21" Then
Application.OnTime "2010/10/21 21:17:20", "macro2"

ElseIf Date = "2010/10/22" Then
Application.OnTime "2010/10/22 21:26:00", "macro3"

End If
End Sub
³o¼Ë¤]¦æ,­«¶}Àɮפ§«á,¤£·|¦A¥h°õ¦æ¬Q¤Ñªºmacro¤F(§Ú¦³§ï¨t²Î¤é´Á´ú¸Õ¹L),
¦]¬°§Ú«Ü¦h®É¶¡¬O¤£¤@¼Ëªº,³o¼Ë¤ñ¸û¦n§ï,
ÁÂÁ§A,¤S¦h¾Ç¤F¤@©Û......

TOP

¦^´_ 25# ¤TÄ_
  1. Sub EX()
  2. If Date = "2010/10/20" Then
  3. Application.OnTime "21:15:00", "macro1"
  4. ElseIf Date = "2010/10/21" Then
  5. Application.OnTime "21:17:20", "macro2"
  6. ElseIf Date = "2010/10/22" Then
  7. Application.OnTime "21:26:00", "macro3"
  8. End If
  9. End Sub
½Æ»s¥N½X

TOP

·PÁÂGBKEEª©¤j´£¨Ñ§ó²¼äªº¼gªk,
³o¼Ë¥i¥H¤Ö¥´«Ü¦h¦r¤F,
ÁÂÁÂ.....

TOP

¦^´_ 26# GBKEE


    ½Ð°Ý¤j¤j.
¦pªG®É¶¡¹L¤F¦Arun³£¬O¥i¦æªº.
¥i¥Hset©w¥u¦³¯S©w®É¶¡¤~run¶Ü?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_  GBKEE
    ½Ð°Ý¤j¤j.
¦pªG®É¶¡¹L¤F¦Arun³£¬O¥i¦æªº.
¥i¥Hset©w¥u¦³¯S©w®É¶¡¤~run¶Ü?
basarasy µoªí©ó 2010-10-21 19:28

Application.OnTime  "«ü©w¯S©wªº®É¶¡","°õ¦æªºµ{¦¡"
"«ü©w¯S©wªº®É¶¡"-> ,¥²¶·¬O°õ¦æ¦¹µ{¦¡½Xªº®É¶¡¤§«á¤~¦æªº.
½Ð¸Ô¬ÝVBAªº»¡©ú

TOP

¦^´_ 29# GBKEE


    ¨º»ò½Ð°Ý­n«ü©w®É¶¡¤~run,¤£¨ì®É¶¡©M¹L¤F®É¶¡¤£·|run ¦pªG¼g?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD