EXCEL用VBA实现预定时间弹窗提醒(excel自动弹框提醒)

内容导航：

EXCEL用VBA实现预定时间弹窗提醒
excel自动弹框提醒

一、EXCEL用VBA实现预定时间弹窗提醒

在Excel中VBA的应用很多，今天我们将利用VBA设置提醒。
1．在Excel中新建一个文档，并将它命名为“提醒.xls”。
2．执行菜单栏中的“工具”→“宏”→“Visual Basic编辑器”命令，进入VBA编辑状态。
3．在“工程资源管理器”窗口中，选中“VBAProject（提醒.xls）”选项，然后执行菜单栏中的“插入”→“模块”命令，插入一个名为“模块1”的新模块。
4．选中“模块1”，执行菜单栏中的“视图”→“属性窗口”命令，在打开的“属性”窗口中将它更改为“提醒”。
5．在“提醒”模块的代码窗口中输入如下所示的代码：
Sub auto_open() '设置一个自动运行的宏--auto_open
Application.OnTime TimeValue("09:30:00"), "tx"
'设置提醒时间为09:30:00（可以根据实际需要进行修改），设置调用提醒宏
Application.OnTime TimeValue("010:00:00"), "tx" '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏。
msg = MsgBox("订购一张2005年1月1日北京——海南的机票！", vbInformation, "赶快订机票")
End Sub
提示：
可以设置多个提醒宏（tx1、tx2……），只需要在自动运行宏中分别设置调用的时间，即可实现多个消息的定时提醒。
6．保存代码，并退出VBA编辑状态。
7．当设定的时间到来时，系统将弹出提示框进行提醒。

二、excel自动弹框提醒

1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。

2、点击ThisWorkbook之后进入新的界面，选择代码窗口里的workbook和open。

3、然后输入以下代码，关键地方已备注，按自己要求修改即可。Private Sub Workbook_Open() Dim v, s, n As Date v = Application.WorksheetFunction.Max(Range("C2:C15")) 'C2:C15为要审查的单元For Each s In Range("C2:C15")n = Date获取当前日If s > n And s < n + 60 Then设置到期60天时提醒。