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

ontime schedule:=false ¦³°ÝÃD

ontime schedule:=false ¦³°ÝÃD

°õ¦æ 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

¬Ý°_¨Ó¦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. Sub timestop()
  10. Application.OnTime EarliestTime:=tbme, _
  11.         Procedure:="showtime", Schedule:=False
  12.    End Sub



  13. Private Sub Worksheet_Calculate()
  14. If Format(Now, "hh:mm:ss") = "13:30:34" Then
  15. showtime
  16. timestop
  17. End If
  18. End Sub
½Æ»s¥N½X
¼W¥[showtime¦b²Ä¤T¬qªºµ{¦¡
´N¥i¥H¶¶§Q°õ¦æ¤F
°Ê©À¦¨¦]¿n¦]¦¨ªG by huijuang

TOP

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

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

TOP

¦^´_ 3# t8899

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

TOP

¦^´_  t8899

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


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

TOP

¦^´_ 5# t8899

°Ï°ìÅܼƵøµ¡¦p¤U¡G
¦bdebug®Éº¡¦n¥Îªº
    v.gif
°Ê©À¦¨¦]¿n¦]¦¨ªG by huijuang

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD