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

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

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

¥»©«³Ì«á¥Ñ FAlonso ©ó 2011-3-31 21:16 ½s¿è

¦³­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
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

«Ø¥ß°±¤î¾÷¨î
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

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD