如何给Excel工作簿添加定时提醒功能
- 2023-02-25
- 来源/作者: Wps Office教程网/ 菜鸟图库
- 139 次浏览
我们在编辑Excel工作表的过程中,如果有某个重要的事情需要在某一时间去完成,例如要在16:40分打个电话,或将报表交给部门经理等,为了避免遗忘,可以用VBA给工作簿添加一个定时提醒功能。方法如下:
1.打开工作簿,按快捷键Alt+F11,打开VBA编辑器。
2.单击菜单“插入→模块”,Excel将插入一个名称为“模块1”的模块。
3.在右侧代码窗口中粘贴下列代码:
Private Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub Auto_Open()
Application.OnTime TimeValue("16:40:00"), "DisplayAlarm" ‘第一次提醒
Application.OnTime TimeValue("16:40:30"), "DisplayAlarm" ‘隔30秒第二次提醒
End Sub
Sub DisplayAlarm()
sndPlaySound32 ThisWorkbook.Path & "\DRBELL.wav", 0&
MsgBox (" 到时间了!")
End Sub
说明:上述代码用Auto_Open宏在工作簿打开时自动执行提醒代码。共设置了两次提醒,提醒时间分别为“16:40:00”和“16:40:30”,可以将该时间修改为所需的时间。提醒的方式为声音提醒和消息框提醒,声音文件为“DRBELL.wav”,需将该声音文件放置在工作簿所在文件夹中。本文结尾处提供示例文件下载,其中包含该声音文件。
4.保存并关闭工作簿,然后重新打开工作簿。当到达设置的时间后,Excel会给出一个声音提示,同时弹出一个消息框。这下就再也不用担心忘记时间了。