如何使用 Excel 2016 VBA 宏编辑器创建自动计时器？

Question

我需要在 Excel 2016 VBA 编辑器中创建一个计时器，该计时器将每秒启动并显示一条消息。

我有一个简单的代码可以做到这一点；但是，当我运行代码时，会出现一个消息框，然后出现错误。我的代码如下：

Private Sub Workbook_Open()
RunEveryTwoMinutes
End Sub

Sub RunEveryTwoMinutes()
MsgBox ("Stop!")
Application.OnTime Now + TimeValue("00:00:01"), "RunEveryTwoMinutes"
End Sub

我收到的错误指出： "无法运行宏 'C:user|generic\Book1.xlsm'。此工作簿中可能没有该宏，或者所有宏都可能被禁用。

我不确定发生了什么。我只需要找到一种方法来创建一秒计时器，该计时器在代码初始化后立即启动。

Answer 1

将此代码放在您的工作簿代码模块中：

Private Sub Workbook_Open()
RunEveryTwoMinutes
End Sub

并将此代码放在标准代码模块中：

Sub RunEveryTwoMinutes()
MsgBox ("Stop!")
Application.OnTime Now + TimeValue("00:00:01"), "RunEveryTwoMinutes"
End Sub

---

或者，您可以在工作簿代码模块中包含所有代码，但您需要限定宏名称：

Private Sub Workbook_Open()
RunEveryTwoMinutes
End Sub

Sub RunEveryTwoMinutes()
MsgBox ("Stop!")
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.RunEveryTwoMinutes"
End Sub

我认为第一种方法更可取。