定时提醒有很多桌面软件,但那都是别人的,如果自己写一个提醒小工具会是什么感受呢?本文告诉你一种简易方法,你不妨动手试试,感受一下自己的成就感吧。 1、打开Excel目标文档,按【Alt】+【F11】组合键,进入VBA编辑状态。 2、在“工程资源管理器”窗口中,右键单击“VBAProject(练习.xls)”,在随即打开的快捷菜单中执行【插入】|【模块】命令,插入一个模块,如图所示。
3、选中“模块1”,执行菜单栏中的【视图】|【属性窗口】命令,在打开的“属性”窗口中将其更名为“提醒”,如图所示。
在“提醒”模块的代码窗口中输入如下代码: 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 保存并退出VBA编辑状态,当设定的时间到来时,系统将弹出提示对话框提醒用户,如图所示。
|