VBA application.ontime無法正常工作

Question

我試圖使用類似於此的代碼在宏中實現遞歸功能 - ：

    Dim showTime As Boolean

    Sub RunClock()
     Range("A1", "A1").Value = Now
     If showTime = True Then
     Application.OnTime Now + TimeValue("00:00:01"), "RunClock"
     End If
    End Sub

Sub StartClock()
showTime = True
RunClock
End Sub

Sub StopClock()
showTime = False
End Sub

當我執行StartClock時，它會顯示一次然后給出錯誤 - “無法運行宏'Book1.RunClock'。宏可能在此工作簿中不可用，或者可能禁用所有宏。

Answer 1

嘗試將工作表名稱與宏名稱一起添加前綴。 Excel可能會在整個工作簿中查找像Sheet1.RunClock這樣的名稱，所以請嘗試如下（假設宏在Sheet1中）

 Application.OnTime Now + TimeValue("00:00:01"), "!Sheet1.RunClock"