標題: VBA timer [打印本頁]

---

作者: sunnyso    時間: 2014-3-10 23:05     標題: VBA timer

分享

[attach]17729[/attach]
[attach]17730[/attach]

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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)