当前位置: 主页 > Office办公 > Excel专区 > Excel函数 > 如何给Excel工作簿添加定时提醒功能

如何给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会给出一个声音提示,同时弹出一个消息框。这下就再也不用担心忘记时间了。