教程 | 教你用Excel设置定时提醒

写在前面

定时提醒有很多桌面软件，但那都是别人的，如果自己写一个提醒小工具会是什么感受呢?

本文告诉你一种简易方法，你不妨动手试试，感受一下自己的成就感吧。

准备工作

1、打开Excel目标文档，按【Alt】+【F11】组合键，进入VBA编辑状态。

2、在“工程资源管理器”窗口中，右键单击“VBAProject(练习.xls)”，在随即打开的快捷菜单中执行【插入】|【模块】命令，插入一个模块，如图所示。

3、选中“模块1”，执行菜单栏中的【视图】|【属性窗口】命令，在打开的“属性”窗口中将其更名为“提醒”，如图所示。

代码展示

在“提醒”模块的代码窗口中输入如下代码：

Sub auto_open()'设置一个自动运行的宏——auto_openApplication.OnTime TimeValue("08：30：00"), "tx"'设置提醒时间——08：30：00(可以根据需要修改)，设置调用提醒宏——tx.Application.OnTime TimeValue("09：30：00"), "tx"'再设置提醒一次。End SubSub tx()'设置一个显示提醒消息的宏(名称要与上述自动运行宏中调用的名称一致)。msg = MsgBox("下午要交稿!"， vbInformation， "赶快发邮件")'设置提醒对话框中的消息和标题(前面是消息内容，后面是对话框标题，请根据需要输入)。End Sub

保存并退出VBA编辑状态，当设定的时间到来时，系统将弹出提示对话框提醒用户，如图所示。