表格怎么设置闹钟提醒？

发布网友发布时间：2022-04-19 16:55

共1个回答

热心网友时间：2023-08-28 13:04

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