。
图1 插入新模块
3、选中“模块1”，执行菜单栏中的【视图】|【属性窗口】命令，在打开的“属性”窗口中将其更名为“提醒”，。
图2 “属性”窗口
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
图3 输入代码
5、保存并退出VBA编辑状态，当设定的时间到来时，系统将弹出提示对话框提醒用户，。
由强国说学习-WPS之家(wps.qiangguoshuo.com)收集的该篇文章内容来源于网络，希望能为您提供帮助。
图4 提醒窗口
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
