Excel VBAmacros在特定时间显示消息

这里真的很简单的问题，有人能告诉我为什么我的代码在早上显示消息不起作用吗？ 不明白为什么它不工作应该这么简单！

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

Answer 1

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

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

Answer 2

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

因此，可以在其中一个工作表中放置一个button，并将Sub SetAlarm指定给它。 或者，您可以使用下面的代码，并在打开工作簿时添加它（只要在上午9:30:00之前）。

 Private Sub Workbook_Open() SetAlarm End Sub