OnTime函數混淆

Question

我已經寫下VBA代碼下面每5秒執行一次，但它不起作用。

Option Explicit 

Public RunWhen As Double 
Public Const cRunIntervalSeconds = 5 ' two minutes 
Public Const cRunWhat = "TheSub" ' the name of the procedure to run 

Sub StartTimer() 
    RunWhen = Now + TimeValue(0, 0, cRunIntervalSeconds) 
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _ 
     Schedule:=True 
End Sub 


Sub TheSub() 
    '''''''''''''''''''''''' 
    ' Your code here 
    '''''''''''''''''''''''' 
    MsgBox "hi this is working" 
    StartTimer ' Reschedule the procedure 
End Sub 

這是什麼我在這裏失蹤？

還像下面也是一個簡單的表達不工作

Sub test() 
    Application.ontime (now() + TimeValue("0:0:5")),"test" 
End Sub 

Answer 1

你應該使用TimeSerial功能，不TimeValue。

Option Explicit 

Public RunWhen As Double 
Public Const cRunIntervalSeconds = 5 ' two minutes 
Public Const cRunWhat = "TheSub" ' the name of the procedure to run 

Sub StartTimer() 
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) 
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat 
End Sub 


Sub TheSub() 
    '''''''''''''''''''''''' 
    ' Your code here 
    '''''''''''''''''''''''' 
    Debug.Print "hi this is working" 
    StartTimer ' Reschedule the procedure 
End Sub 

這個工作，你可以觀看VBE的即時窗口，看看它貫穿。