用Excel巧妙设置定时提醒－MSOFFICE－eNet网络学院－中国最权威的电脑教程软件资讯网站

首页 \| 新闻资讯 \| 软件应用 \| 图形图像 \| 网络应用 \| 硬件学堂 \| 程序开发 \| 安全中心 \| 素材下载 \| 作者专区 \| 学院论坛
精选专题 \| 精美壁纸 \| 专家答疑 \| Flash剧场 \| Photoshop \| 名词解释 \| 梦幻桌面 \| PS高手进阶 \| QQ区 \| 图书 \| 黑客教材

Flash教程\| 卡通制作 \| AutoCAD \| 3DMax实例 \| PS视频教程\| 网页制作 \| CorelDRAW\| Firework \| 滤镜与实例 \|	全部视频教程

当前位置：eNet硅谷动力 > 学院频道 > MSOFFICE

用Excel巧妙设置定时提醒

2004-11-24 09:03 作者：天极网陈秀峰来源：eNet论坛

【简介】
　小余在交易中心工作，经常要打电话通知相应的评委参加工程评标工作，有时工作一忙，就忘记通知而影响正常开标。

加入收藏　

设为首页

　　小余在交易中心工作，经常要打电话通知相应的评委参加工程评标工作，有时工作一忙，就忘记通知而影响正常开标。

　　由于他每天都用Excel为登记相应的数据，于是，我就用Excel为他设置了一个定时提醒的功能。文章末尾提供原文件供大家下载参考。

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

　　2、按“Alt+F11”组合键进入VBA编辑状态（如图1）。
用Excel巧妙设置定时提醒

　

　　（图片较大，请拉动滚动条观看）

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

　　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

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

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

　　6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出如图2所示的提示框，这下不会忘记了吧。原文件下载

用Excel巧妙设置定时提醒