建議金字塔增加Application.OnTime功能
作者：金字塔 來源：cxh99.com 發布時間：2021年01月16日
-
咨詢內容：
請教：建議金字塔增加Application.OnTime功能，方便VBA程序降低系統消耗，每隔一定時間運行一次軟件。目前金字塔只有Application.setTimer
Sub?macro_timer()
'Tells?Excel?when?to?next?run?the?macro.
Application.OnTime?Now?+?TimeValue("00:00:1"),?"my_macro"
End?Sub
Sub?my_macro()
'Macro?code?that?you?want?to?run.
MsgBox?"This?is?my?sample?macro?output."
'Calls?the?timer?macro?so?it?can?be?run?again?at?the?next?interval.
Call?macro_timer
End?Sub
?
?來源: CXH99.COM
-
金字塔客服：
這個和計時器有啥區別呢
?
-
用戶回復：
區別是：計時起點不一樣。計時器是從程序啟動開始計時，比如計時器是5秒，然后執行一次代碼，如果這段代碼運行的時間是3秒，下一次執行就是2秒以后。而Application.OnTime函數，Application.OnTime?Now?+?TimeValue("00:00:05"),?"my_macro"?設定的是在這段代碼完成后，比如在目前時間基礎上增加5秒鐘，5秒到了之后再開始運行代碼。計時器是一開始程序就運行著，始終沒有停止過。而Application.OnTime函數是到了時間才運行。我的理解是這樣的，不知是否正確。
打印本文
關閉窗口