必威注册电子书籍教程中心网文荟萃客户留言繁體中文
设为首页
加入收藏
联系必威注册
您当前的位置:92动力网 -> 教程中心 -> 基础教程 -> Excel -> 教程内容 退出登录 用户管理
栏目导航
· 输入法· QQ相关
· 注册表· MSN相关
· 硬件指南· Excel
· Word· WPS
· OfficeXP· Access
· Outlook· Powerpoint
热门教程
· 如何在Visual Basic...
· 使用Visual Basic操...
· 使用VB6.0设计Activ...
· VB动态调用外部函数...
· 建立一个程序员自己...
· 如何编写高质量的VB...
· [图文] 为更新到Visual Bas...
· 再谈在VB中调用VC++...
· 用VB语言编程实现JP...
· 用DTS实现SQL数据库...
相关教程
· [图文] 用Excel 2000与Word...
· [图文] 用Excel 2000和Word...
· [图文] 巧用Excel连续打印功...
· [图文] 用Excel制作自动记录...
· [图文] 应用Excel轻松应对特...
· 利用Excel的函数和筛...
· [图文] 用Excel函数快速填入...
· [图文] 用Excel玩纸牌游戏
· 用Excel批量计算年龄...
· 用Excel宏命令快速处...

用Excel巧妙设置定时提醒
作者:陈秀峰聽聽来源:天极网聽聽发布时间:2005-4-22 10:58:54聽聽发布人:siforgern

减小字体 增大字体

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

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

  1、启动Excel,新建一文档,取名保存(如“提醒.xls”)。

  2、按“Alt+F11”组合键进入VBA编辑状态(如图1)。



  (图片较大,请拉动滚动条观看)

  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所示的提示框,这下不会忘记了吧。原文件下载

[] [返回上一页] [打 印] [收 藏]
∷相关教程评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 管理登录
Copyright 2019 必威注册. All Rights Reserved .
浙ICP备05047688号