返回列表下一主題上一主題發帖

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

kk9999321

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: window 7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2016-1-26
最後登錄: 2016-5-26

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-5-24 10:14 | 只看該作者

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

VBA每5秒自動執行, Excel

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