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

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¼Ë·|­«Âаõ¦æ???Åܦ¨¶]¨â­Óµ{§Ç

t8899

¦^´_  t8899

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

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