《excel定时提醒功能.doc》由会员分享，可在线阅读，更多相关《excel定时提醒功能.doc（3页珍藏版）》请在三一办公上搜索。
1、Excel时间提醒功能1、启动Excel，新建一文档，取名保存（如“提醒.xls”）。 2、按“Alt+F11”组合键进入VBA编辑状态。 3、在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)”选项，执行“插入模块”命令，插入一个新模块。 4、将下述代码输入到右侧的编辑区域中： Sub auto_open() 设置一个自动运行的宏auto_open Application.OnTime TimeValue(08:30:00), tx 设置提醒时间08:30:00（可以根据需要修改），设置调用提醒宏tx。 Application.OnTime TimeValue(09:
2、30:00), tx 再设置提醒一次。 End Sub Sub tx() 设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。 msg = MsgBox(通知张三、李四、王五评委参加下午评标！, vbInformation, 赶快打电话) 设置提醒对话框中的消息和标题（前面是消息内容，后面是对话框标题，请根据需要输入）。 End Sub 注意：上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。如果设置多个提醒宏（tx1、tx2），并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。 5、输入完成后，退出VBA编辑状态，保存工作簿文档。 6、
3、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框。现用EXCEL对用户档案进行管理,成交时间和系统当日时间差已经算出,现需用EXCEL自动提醒函数对用户进行分类: 1.时间差等于7天的客户,要求显示回访 2.时间差等于1个自然月的客户,要求显示提醒 3.时间差等于3个自然月的客户,要求显示再次提醒 要求套用EXCEL函数让系统自行根据时间差进行判定,再提醒!如果时间差在F列,提醒内容在G列,公式如下: =IF(F1=7,回访,IF(F1=30,提醒,IF(F1=90,再次提醒,) 将公式向下复制。 可以将G列文字颜色设为红色。如果您从事设备管理工作，有近千台
4、机械设备需要定期进行精度检测，那么，就得每天翻阅“设备鉴定台账”来寻找“到期”的设备实在是太麻烦了！用Excel建立一本“设备鉴定台账”是不是方便得多？方法是：用Excel的IF函数嵌套TODAY函数来实现设备“到期”自动提醒。 首先，运行Excel，将“工作簿”的名称命名为“设备鉴定台账”，输入各设备的详细信息、上次鉴定日期及到期日期（日期的输入格式应为“年-月-日”，如：2003-10-21，如图1）。然后，选中图1所示“提示栏”下的F2单元格，点击插入菜单下的函数命令，在“插入函数”对话框中选择“逻辑”函数类中的IF函数，点击确定按钮，就会弹出“函数参数”对话框，分别在Logical_t
5、est行中输入E2=TODAY()、value_if_true行中输入“到期”、Value_if_false行中输入“ ”(如图2)，并点击确定按钮。这里需要说明的是：输入的 是英文输入状态下的双引号，是Excel定义显示值为字符串时的标识符号，即IF函数在执行完真假判断后显示此双引号中的内容。为了醒目，可在“单元格属性”中将F2单元格的字体颜色设置为红色。最后，拖动“填充柄”，填充F列以下单元格即可。 我们知道Excel的IF函数是一个“条件函数”，它的语法是“IF(logical_test,value_if_true,value_if_false)”，具体地说就是：如果第一个参数logic
6、al_test返回的结果为真，则执行第二个参数Value_if_true的结果，否则执行第三个参数Value_if_false的结果；Excel的TODAY函数语法是TODAY()是返回当前系统日期的函数。 实际上，本文所应用的IF函数语句为IF(E2=TODAY(),到期,)，解释为：如果E2单元格中的日期正好是TODAY函数返回的日期，则在F2单元格中显示“到期”，否则就不显示，TODAY函数返回的日期则正好是系统当天的日期。Excel的到期提醒功能就是这样实现的。我要做一个表（EXCEL）我要在表的E列里面写上日期，而要在F列里面列出还差多少天，如果是过期了，则列出已经过期几天。望各位帮忙。=IF(E27TODAY(),已过期&DATEDIF(TODAY(),E27,D)&天,IF(E27=TODAY(),今天到期,还有&DATEDIF(E27,TODAY(),D)&天)不用呀，直接用公式加条件格式就可以完成了呀 增加一列（如F列）用公式判断你的三种情况：（if(E列0,A,if(E列=0,B,if(E列0,还有&E1&天,IF(E2=0,今天到期,已过期&-E1&天) 再条件格式按条件设立文字格式 TODAY()是你电脑的日期！
