给Excel工作簿添加定时提醒功能

成长路上除了

我们在编辑Excel工作表的过程中，如果有某个重要的事情需要在某一时间去完成，例如要在16:40分打个电话，或将报表交给部门经理等，为了避免遗忘，可以用VBA给工作簿添加一个定时提醒功能。方法如下：

       1.打开工作簿，按快捷键Alt+F11，打开VBA编辑器。

       2.单击菜单“插入→模块”，Excel将插入一个名称为“模块1”的模块。

       3.在右侧代码窗口中粘贴下列代码：

1. Private Declare Function sndPlaySound32 _
   
2.     Lib "winmm.dll" _
   
3.     Alias "sndPlaySoundA" ( _
   
4.         ByVal lpszSoundName As String, _
   
5.         ByVal uFlags As Long) As Long
   
6. Sub Auto_Open()
   
7. Application.OnTime TimeValue("16:40:00"), "DisplayAlarm" '第一次提醒
   
8. Application.OnTime TimeValue("16:40:30"), "DisplayAlarm" '隔30秒第二次提醒
   
9. End Sub
   
10. Sub DisplayAlarm()
    
11. sndPlaySound32 ThisWorkbook.Path & "\DRBELL.wav", 0&
    
12. MsgBox (" 到时间了！")
    
13. End Sub

复制代码

       说明：上述代码用Auto_Open宏在工作簿打开时自动执行提醒代码。共设置了两次提醒，提醒时间分别为“16:40:00”和“16:40:30”， 可以将该时间修改为所需的时间。提醒的方式为声音提醒和消息框提醒，声音文件为“DRBELL.wav”，需将该声音文件放置在工作簿所在文件夹中。本文 结尾处提供示例文件下载，其中包含该声音文件。

       4.保存并关闭工作簿，然后重新打开工作簿。当到达设置的时间后，Excel会给出一个声音提示，同时弹出一个消息框。这下就再也不用担心忘记时间了。