Excel VBA宏以在特定时间显示消息

Question

这里真的很简单，有人可以告诉我为什么我早上显示消息的代码不起作用吗？无法理解为什么它不起作用应该如此简单！

Sub SetAlarm()
    Application.OnTime TimeValue"09:30:00", "DisplayAlarm"
End Sub

Sub DisplayAlarm()
    MsgBox "Good Morning"
End Sub

Answer 1

要尽可能少地更改当前代码，您需要以某种方式运行Sub SetAlarm。

所以要么在其中一张纸上放置一个按钮，并将Sub SetAlarm分配给它。或者，您可以使用下面的代码，并在打开工作簿时添加它（只要它在上午9:30:00之前）。

Private Sub Workbook_Open()
    SetAlarm    
End Sub

Answer 2

尝试将Sub SetAlarm放入Workbook_Open()事件中（请在下面找到代码）。这样，当您打开工作簿时，sub会自动触发。要触发Sub DisplayAlarm，您的工作簿需要在指定时间打开。

Private Sub Workbook_Open()
    Application.OnTime "09:30:00", "DisplayAlarm"
End Sub