ontime schedule:=false ¦³°ÝÃD
- ©«¤l
- 760
- ¥DÃD
- 250
- ºëµØ
- 0
- ¿n¤À
- 1023
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-28
|
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 |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2014-2-13
- ³Ì«áµn¿ý
- 2020-9-18
|
¬Ý°_¨Ó¦n¹³¬Otbme¨S¸ê®Æ
¦]¬°¨S°õ¦æ¨ìSub showtime()³o¤@¬qµ{¦¡- 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
- showtime
- timestop
- End If
- End Sub
½Æ»s¥N½X ¼W¥[showtime¦b²Ä¤T¬qªºµ{¦¡
´N¥i¥H¶¶§Q°õ¦æ¤F |
|
°Ê©À¦¨¦]¿n¦]¦¨ªG by huijuang
|
|
|
|
|
- ©«¤l
- 760
- ¥DÃD
- 250
- ºëµØ
- 0
- ¿n¤À
- 1023
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-28
|
¬Ý°_¨Ó¦n¹³¬Otbme¨S¸ê®Æ
¼W¥[showtime¦b²Ä¤T¬qªºµ{¦¡
´N¥i¥H¶¶§Q°õ¦æ¤F
huijuang µoªí©ó 2014-3-14 13:48
showtime ¤w¸g¤â°Ê°õ¦æ...........³o¼Ë·|«Âаõ¦æ???Åܦ¨¶]¨âÓµ{§Ç |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2014-2-13
- ³Ì«áµn¿ý
- 2020-9-18
|
¦^´_ 3# t8899
showtima¤â°Ê°õ¦æÀ³¸Ó¤£·|§âtbme¸ê®Æ±a¥X¨Ó
«Øij§A¥Î³v¦æ°õ¦æ
µM«á§â°Ï°ìÅܼƵøµ¡¥´¶}
À³¸Ó¥i¥H¬Ý¬Ýtbme¬O§_¦³¸ê®Æ±a¥X¨Ó |
|
°Ê©À¦¨¦]¿n¦]¦¨ªG by huijuang
|
|
|
|
|
- ©«¤l
- 760
- ¥DÃD
- 250
- ºëµØ
- 0
- ¿n¤À
- 1023
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ t8899
showtima¤â°Ê°õ¦æÀ³¸Ó¤£·|§âtbme¸ê®Æ±a¥X¨Ó
«Øij§A¥Î³v¦æ°õ¦æ
µM«á§â°Ï°ìÅܼƵøµ¡¥´¶}
...
huijuang µoªí©ó 2014-3-17 08:05
°Ï°ìÅܼƵøµ¡¦p¦ó¥´¶} ??? |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 74
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2014-2-13
- ³Ì«áµn¿ý
- 2020-9-18
|
¦^´_ 5# t8899
°Ï°ìÅܼƵøµ¡¦p¤U¡G
¦bdebug®Éº¡¦n¥Îªº
|
|
°Ê©À¦¨¦]¿n¦]¦¨ªG by huijuang
|
|
|
|
|