返回列表 上一主題 發帖

請教有關每隔一段時間自動執行問題

請教有關每隔一段時間自動執行問題

請教有關自動執行問題,
我現在設定每隔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秒自動執行
請問各位大大,我應該如何修改程式?

回復 1# kk9999321
  1. Sub abc()
  2.     k = k + 1
  3.     Cells(1, k) = k

  4.     autotimer
  5. End Sub
複製代碼

TOP

非常感謝,可以用了

TOP

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題