我們在編輯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會給出一個聲音提示，同時彈出一個消息框。這下就再也不用擔心忘記時間了。
