[µo°Ý] ¦p¦óÅý­p®É¾¹°¨¤W¤¤Â_¸õ¥X??

t8899

¦b°õ¦æ°¨¤W¤¤Â_¸õ¥X (exit sub)
Application.OnTime Now + TimeValue("00:02:00"), "BBB"
Application.OnTime Time + #12:02:00 AM#, "bbb"

t8899

¦^´_ 2# wl02353427
ONTIME ¤èªk¥¢±Ñ?? 6666.rar (14.19 KB)

¤U¸ü¦¸¼Æ: 8

2014-1-18 21:16

Application.OnTime Time + #12:00:10 AM#, "timestock", schedule:=False

t8899

¦^´_  wl02353427
GBKEE µoªí©ó 2014-1-18 20:35

Dim my As Date
    If Sheet6.Range("V14").Value = 1 Then my = #12:01:00 AM#
    If Sheet6.Range("V14").Value = 2 Then my = #12:02:00 AM#
   

Application.OnTime Time + my, "timestock"


²×¤î¬°¦ó¿ù»~??(«¬ºA¤£²Å¦X)
Application.OnTime EarliestTime:=TimeValue(my), _
Procedure:="timestock", Schedule:=False

t8899

¦^´_  t8899
OnTime ¤èªk VBAªº»¡©ú½d¨ÒModule2Sheet2
GBKEE µoªí©ó 2014-1-19 15:20

¬ã¨s¤w¶W¹L2¤p®É¡AÁ٧줣¥X¿ù»~!
½Ð«ü¾É¡AÁÂÁÂ! 9999.rar (12.22 KB)

¤U¸ü¦¸¼Æ: 8

2014-1-19 15:36

t8899

¦^´_  t8899
GBKEE µoªí©ó 2014-1-19 16:07 [img]http://forum.twbts.com/images/common/back.gif
µ{¦¡©Ò¦³DimªºÅܼƤº®e,¦bµ{¦¡°õ¦æ§¹²¦«á,·|³QÄÀ©ñ±¼,¨ä¥Lµ{¦¡¤Þ¥Î¤£¨ìªº
[/img]

§ÚÀ´¤F¡Aµ{¦¡°õ¦æ§¹ÅܼƴN³QÄÀ©ñ±¼¡A¤×©ó­n¦Aµ¥5¬í¤~·|¦A°õ¦æ, ³o¤¤¶¡ °õ¦æ Schedule:=False §ä¤£¨ìÅܼÆ....
Ãþ¦ü³oºØµ¥«Ý®É¶¡¦A­«Âаõ¦æªºµ{§Ç¡A³Ì¦n¥Î public «Å§iÅýÅܼƤ£­n³QÄÀ©ñ