¦p¦ó°±±¼Application.onTimeµ{§Ç? (¤w¸Ñ¨M)

FAlonso

¦³­Y¤z­p®Éµ{¦¡

1. Sub timing()
   
2. [a1] = [a1] + 1
   
3. Application.OnTime Now + TimeValue("00:00:01"), "timing"  'Counter
   
4. End Sub

½Æ»s¥N½X

·Q°±¤îªº¸Ü,§Ú¼g¤F³o­Ó

1. Sub A1stop()
   
2. Application.OnTime Now + TimeValue("00:00:01"), "timing", , False
   
3. End Sub

½Æ»s¥N½X

chin15

«Ø¥ß°±¤î¾÷¨î
Public a As Boolean
Sub timing()
If a = True Then End
[a1] = [a1] + 1
Application.OnTime Now + TimeValue("00:00:01"), "timing"  'Counter
End Sub

Sub A1stop()
a = IIf(a = True, False, True)
End Sub