- ©«¤l
- 31
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2020-6-14
- ³Ì«áµn¿ý
- 2024-8-19
|
¦^´_ y54161212
¦Û³Ð¤@Ó
Private Sub StartStop_Timer()
If TimerActive = False Then
Ti ...
singo1232001 µoªí©ó 2021-12-9 16:43
§Ú¸ÕµÛ«ö·Ó¤j¤jªº«ü¾É´ú¸Õ¤F¤@¤U
¦ýµ{¦¡¨Ã¥¼±Ò°Ê¡A½Ð±Ð§Ú¬OþÃä¥Î¿ù¤F?
Private Sub CommandButton1_Click()
Dim TimerActive As Boolean
If TimerActive = False Then
TimerActive = True
Call Timer
ElseIf TimerActive = True Then
TimerActive = False
End If
End Sub
Private Sub Timer()
If TimerActive Then
Application.ScreenUpdating = False
Application.SendKeys "{CAPSLOCK}"
Worksheets("Sheet1").Range("A2").Value = Time
Application.OnTime Now() + TimeValue("00:00:05"), "Timer"
End If
End Sub |
-
-
timeactive.zip
(18.29 KB)
ÀÉ®×
|