Excel VBA application.ontime不工作

我正在尝试使用类似以下代码在宏中实现递归功能-：

    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

---

当我执行StartLock时，它会显示一次时间，然后给出错误-“无法运行宏'Book1.RunClock'。该宏可能在此工作簿中不可用，或者所有宏都可能被禁用。

尝试在工作表名称前加上宏名称。Excel可能会在整个工作手册中查找名称类似Sheet1.RunClock的宏，因此请尝试如下操作（假设宏位于表1中）

---

您的代码是否在常规模块中？什么是常规模式？不是工作表代码模块或

ThisWorkbook

模块

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