標題: 請教有關每隔一段時間自動執行問題 [打印本頁]

---

作者: kk9999321    時間: 2016-5-24 10:14     標題: 請教有關每隔一段時間自動執行問題

請教有關自動執行問題，
我現在設定每隔5秒自動執行副程式abc，
上網找了很多相關的內容，程式大概如下:
Sub autotimer()
    If k > 100 Then Exit Sub
    Application.OnTime Now() + TimeValue("00:00:05"), "abc"   
End Sub

Sub abc()
    k = k + 1
    Cells(1, k) = k
End Sub

執行後變成  5秒後只執行副程式abc一次，
只執行一次，無法每隔5秒自動執行
請問各位大大，我應該如何修改程式?

---

作者: c_c_lai    時間: 2016-5-24 16:31

回復 1# kk9999321

1. Sub abc()
   
2.     k = k + 1
   
3.     Cells(1, k) = k
   
4. 
   
5.     autotimer
   
6. End Sub

複製代碼

---

作者: kk9999321    時間: 2016-5-26 09:04

非常感謝，可以用了

---

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