摘要： 我们在编辑Excel工作表的过程中，如果有某个重要的事情需要在某一时间去完成，例如要在16:40分打个电话，或将报表交给部门经理等，为了避免遗忘，可以用VBA给工作... 我们在编辑Excel工作表的过程中，如果有某个重要的事情需要在某一时间去完成，例如要在16:40分打个电话，或将报表交给部门经理等，为了避免遗忘，可以用VBA给工作簿添加一个定时提醒功能。方法如下：
1.打开工作簿，按快捷键Alt F11，打开VBA编辑器。
2.单击菜单“插入→模块”，Excel将插入一个名称为“模块1”的模块。
excel利用VBA进行多表合并计算实例教程
在Excel中，用数据透视表可以轻松进行多个区域的数据合并计算。但当区域较多时，要在数据透视表向导中多次选择区域，稍显繁琐。如果需要合并的工作表较多，可以用下面的VBA代码来快速合并数据。区域的大小可以不同，各行或列的品种可以重复，但要求工作簿中各工作表中的数据存放在相同的位置。如下图为工作簿中某两个工作表中的数据，区
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会给出一个声音提示，同时弹出一个消息框。这下就再也不用担心忘记时间了。
excel打开或关闭VBA编辑器自动语法检查功能
当在VBA编辑器代码窗口中输入有语法错误的语句时，默认VBA编辑器会弹出一个错误提示对话框，同时将错误语句显示为红色，这对于初学者可以起到很好的提醒作用。例如输入语句 if range("A1") 就立即回车，VBA编辑器会提示编译错误“缺少:Then或GOTO”。 但有时
