ªð¦^¦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

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD