ontime schedule:=false ¦³°ÝÃD

t8899

°õ¦æ timestop ¨S¦³°ÝÃD¡A¦ý©ñ¦b Worksheet_Calculate()
®É¶¡¨ì°õ¦æ¬°¦ó¿ù¦b
Application.OnTime EarliestTime:=tbme, _
        Procedure:="showtime", Schedule:=False



Public abf As Date
Public tbme As Date
Sub showtime()
abf = TimeValue("00:00:01")
tbme = Time + abf
    Application.OnTime tbme, "showtime"
Sheets("Sheet3").Range("t1").Value = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
End Sub


Sub timestop()
Application.OnTime EarliestTime:=tbme, _
        Procedure:="showtime", Schedule:=False
   End Sub



Private Sub Worksheet_Calculate()
If Format(Now, "hh:mm:ss") = "13:30:34" Then
timestop
End If
end sub

huijuang

¦^´_ 5# t8899

°Ï°ìÅܼƵøµ¡¦p¤U¡G
¦bdebug®Éº¡¦n¥Îªº
   

¤U¸ü (87.05 KB)

2014-3-17 16:22

t8899

¦^´_  t8899

showtima¤â°Ê°õ¦æÀ³¸Ó¤£·|§âtbme¸ê®Æ±a¥X¨Ó
«Øij§A¥Î³v¦æ°õ¦æ
µM«á§â°Ï°ìÅܼƵøµ¡¥´¶}
...
huijuang µoªí©ó 2014-3-17 08:05

°Ï°ìÅܼƵøµ¡¦p¦ó¥´¶} ???

huijuang

¦^´_ 3# t8899

showtima¤â°Ê°õ¦æÀ³¸Ó¤£·|§âtbme¸ê®Æ±a¥X¨Ó
«Øij§A¥Î³v¦æ°õ¦æ
µM«á§â°Ï°ìÅܼƵøµ¡¥´¶}
À³¸Ó¥i¥H¬Ý¬Ýtbme¬O§_¦³¸ê®Æ±a¥X¨Ó

t8899

¬Ý°_¨Ó¦n¹³¬Otbme¨S¸ê®Æ
¼W¥[showtime¦b²Ä¤T¬qªºµ{¦¡
´N¥i¥H¶¶§Q°õ¦æ¤F
huijuang µoªí©ó 2014-3-14 13:48

showtime ¤w¸g¤â°Ê°õ¦æ...........³o¼Ë·|­«Âаõ¦æ???Åܦ¨¶]¨â­Óµ{§Ç

huijuang

¬Ý°_¨Ó¦n¹³¬Otbme¨S¸ê®Æ
¦]¬°¨S°õ¦æ¨ìSub showtime()³o¤@¬qµ{¦¡

1. Public abf As Date
   
2. Public tbme As Date
   
3. Sub showtime()
   
4. abf = TimeValue("00:00:01")
   
5. tbme = Time + abf
   
6.     Application.OnTime tbme, "showtime"
   
7. Sheets("Sheet3").Range("t1").Value = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
   
8. End Sub
   
9. 
   
10. 
    
11. Sub timestop()
    
12. Application.OnTime EarliestTime:=tbme, _
    
13.         Procedure:="showtime", Schedule:=False
    
14.    End Sub
    
15. 
    
16. 
    
17. 
    
18. Private Sub Worksheet_Calculate()
    
19. If Format(Now, "hh:mm:ss") = "13:30:34" Then
    
20. showtime
    
21. timestop
    
22. End If
    
23. End Sub

½Æ»s¥N½X

¼W¥[showtime¦b²Ä¤T¬qªºµ{¦¡
´N¥i¥H¶¶§Q°õ¦æ¤F