VBA timer

sunnyso

¤À¨É

Timer-Counter.rar (13.12 KB)

¤U¸ü¦¸¼Æ: 7

2014-3-10 23:05

¤U¸ü (41.65 KB)

2014-3-10 23:05

1. Sub Start_Timer()
   
2.     Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
   
3. End Sub
   
4. 
   
5. Sub Increment_count()
   
6.     Range("A3").Value = Range("A3").Value + 1
   
7.     Start_Timer
   
8. End Sub
   
9. 
   
10. Sub Stop_Timer()
    
11.     Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", schedule:=False
    
12. End Sub

½Æ»s¥N½X