GBKEE

¦^´_ 6# ¤TÄ_
¤£­n¦³   µo¤å®É¤U­±ªº¿ï¶µ­n¤Ä¿ï [¸T¥Îªí±¡]
marco1<>Macro1 §Aªº¦r¥ÀÄA­Ë¤F

GBKEE

¦^´_ 14# ¤TÄ_
§A°õ¦æ Application.OnTime "16:23:30", "macro1"  ®É¶¡¦³¶W¹L "16:23:30" ¶Ü?
°õ¦æEx() «á¤£­nÃö³¬Excel ©ú¤Ñ¦A¸Õ¸Õ¬Ý

1. Sub Ex()
   
2. Application.OnTime "2010/10/20 09:00", "Macro1"
   
3. End Sub
   
4. Sub Macro1()
   
5. MsgBox Format(Now, "YYYY/M/D  H:M:ss")
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 17# oobird
¦hÁ«ü¥¿ ¤w­×¥¿
¦^´_ 16# ¤TÄ_
¶K¦bModule2  ª`·N ¦pModule1¸ÌÁÙ¦³¬Û¦P¦WºÙ Sub Macro1() ®É
»Ý«ü©ú¬O­þ¤@­Ó¼Ò²Õ  Application.OnTime "2010/10/20 09:00", "Module2.Macro1"

GBKEE

¦^´_ 19# ¤TÄ_
¤£¹LApplication³o¤@¥y¤£¯àª½±µ©ñ¦bmacro1¸Ì
§A¦p¦ó¼g PO ¤W¬Ý¬Ý

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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

GBKEE

¦^´_  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ªº»¡©ú

GBKEE

¦^´_ 30# basarasy
¬O¤£¬O¦p¦¹

1. Sub Ex()
   
2.     If Time > TimeValue("09:00") And Time < TimeValue("13:30") Then
   
3.         Application.OnTime Time + TimeValue("00:00:10"), "????"
   
4.     End If
   
5. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 35# ¤TÄ_
Hsiehª©¥Dªºµ{¦¡½XApplication.OnTime®É©Ò°õ¦æªºµ{§Ç­n¥[¤W¤Þ¼Æ
µ{§Ç¦³¤Þ¼Æ®É ©I¥s¦¹µ{¦¡ ¥²¶·¦bªÅ¤@®æ«á¥[¤W¤Þ¼Æ µ{§Çªº¤Þ¼Æ¦³«ü©w«¬ºA®É ¤Þ¼Æ­n¬O¦P«¬ºA
½Æ»sµ{¦¡½X °õ¦æ¬Ý¬Ý
Sub test()
mytime = Now
mystr = "'nn " & Chr(34) & mytime & Chr(34) & "'"
MsgBox  mystr
Application.OnTime mytime, mystr
End Sub
Sub nn(T As Date)     '¤Þ¼Æ«¬ºA¬O¤é´Á
MsgBox "°õ¦æ®É¶¡"&t
End Sub