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

VBA timer

VBA timer

¤À¨É

Timer-Counter.rar (13.12 KB)
sonny1.gif
  1. Sub Start_Timer()
  2.     Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
  3. End Sub

  4. Sub Increment_count()
  5.     Range("A3").Value = Range("A3").Value + 1
  6.     Start_Timer
  7. End Sub

  8. Sub Stop_Timer()
  9.     Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", schedule:=False
  10. End Sub
½Æ»s¥N½X
ss

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD