excel定时提醒的代码

1. 如何在excel中用vba实现定时提醒功能

用这个宏：
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("你需要起床了", vbInformation, "赶快起来")
End Sub

2. 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．当设定的时间到来时，系统将弹出提示框进行提醒。

3. 如何设置excel到期自动提醒功能

1.如下图，在A2单元格输入=TODAY()，该函数自动返回当前的日期。每次打开工作簿时都会自动更新。

4. 关于EXCEL 定时提醒问题

按“Alt+F11”组合键进入VBA编辑状态
在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)”选项，执行“插入模块”命令，插入一个新模块
将下述代码输入到右侧的编辑区域中：

Sub auto_open() '设置一个自动运行的宏——auto_open

Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒宏——tx。

Application.OnTime TimeValue("09:30:00"), "tx" '再设置提醒一次。

End Sub

Sub tx() '设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。

msg = MsgBox("这里是输入你要弹出的提示！", vbInformation, "赶快打电话") '设置提醒对话框中的消息和标题（前面是消息内容，后面是对话框标题，请根据需要输入）。

End Sub

注意：①上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要（参见图1）。②如果设置多个提醒宏（tx1、tx2……），并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。

5、输入完成后，退出VBA编辑状态，保存工作簿文档。

6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框.

5. EXCEL中，用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、当设定的时间到来时，系统将弹出提示框进行提醒。

6. excel表格怎么设置到期日前自动提醒功能

Excel表格中设置到期日前自动提醒功能，需要用函数datedif来设置。
此外如果想要在手机或电脑上设置到期自动提醒，在云便签上设置待办事项自定义年月日、时分的定时提醒就可以了。

7. Excel 如何实现闹钟功能

1、启动Excel，新建一文档，取名保存（如“提醒.xls”）。

2、按“Alt+F11”组合键进入VBA编辑状态。

3、在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)”选项，执行“插入模块”命令，插入一个新模块。

4、将下述代码输入到右侧的编辑区域中：

Sub auto_open() '设置一个自动运行的宏——auto_open

Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒宏——tx。

Application.OnTime TimeValue("09:30:00"), "tx" '再设置提醒一次。

End Sub

Sub tx() '设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。

msg = MsgBox("通知张三、李四、王五评委参加下午评标！", vbInformation, "赶快打电话") '设置提醒对话框中的消息和标题（前面是消息内容，后面是对话框标题，请根据需要输入）。

End Sub

注意：①上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。②如果设置多个提醒宏（tx1、tx2……），并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。

5、输入完成后，退出VBA编辑状态，保存工作簿文档。

6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框。

8. 如何设置excel到期自动提醒功能

1、启动Excel，新建一文档，取名保存（如“提醒.xls”）。
2、按“Alt+F11”组合键进入VBA编辑状态。
3、在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)”选项，执行“插入模块”命令，插入一个新模块。
4、将下述代码输入到右侧的编辑区域中：
Sub auto_open() '设置一个自动运行的宏——auto_open
Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒宏——tx。
Application.OnTime TimeValue("09:30:00"), "tx" '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。
msg = MsgBox("通知张三、李四、王五评委参加下午评标！", vbInformation, "赶快打电话") '设置提醒对话框中的消息和标题（前面是消息内容，后面是对话框标题，请根据需要输入）。
End Sub
注意：①上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。②如果设置多个提醒宏（tx1、tx2……），并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。
5、输入完成后，退出VBA编辑状态，保存工作簿文档。
6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框。