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

ontime schedule:=false ¦³°ÝÃD

¬Ý°_¨Ó¦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

¦^´_ 3# t8899

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

TOP

¦^´_ 5# t8899

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

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD