excel定时提醒功能.doc

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:30:00), tx 　再设置提醒一次。 　　End Sub 　　Sub tx()　 设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。 　　msg = MsgBox(通知张三、李四、王五评委参加下午评标！, vbInformation, 赶快打电话) 设置提醒对话框中的消息和标题（前面是消息内容，后面是对话框标题，请根据需要输入）。 　　End Sub 　　注意：①上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。②如果设置多个提醒宏（tx1、tx2……），并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。 　　5、输入完成后，退出VBA编辑状态，保存工作簿文档。 　　6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框。 1.时间差等于7天的客户,要求显示回访 2.时间差等于1个自然月的客户,要求显示提醒 3.时间差等于3个自然月的客户,要求显示再次提醒 要求套用EXCEL函数让系统自行根据时间差进行判定,再提醒! 如果时间差在F列,提醒内容在G列,公式如下: =IF(F1=7,回访,IF(F1=30,提醒,IF(F1=90,再次提醒,))) 将公式向下复制。 可以将G列文字颜色设为红色。 如果您从事设备管理工作，有近千台机械设备需要定期进行精度检测，那么，就得每天翻阅“设备鉴定台账”来寻找“到期”的设备——实在是太麻烦了！用Excel建立一本“设备鉴定台账”是不是方便得多？方法是：用Excel的IF函数嵌套TODAY函数来实现设备“到期”自动提醒。 Excel，将“工作簿”的名称命名为“设备鉴定台账”，输入各设备的详细信息、上次鉴定日期及到期日期（日期的输入格式应为“年-月-日”，如：2003-10-21，如图1）。 1所示“提示栏”下的F2单元格，点击插入菜单下的函数命令，在“插入函数”对话框中选择“逻辑”函数类中的IF函数，点击[确定]按钮，就会弹出“函数参数”对话框，分别在Logical_test行中输入E2=TODAY()、value_if_true行中输入“到期”、Value_if_false行中输入“ ”(如图2)，并点击[确定]按钮。这里需要说明的是：输入的 Excel定义显示值为字符串时的标识符号，即IF函数在执行完真假判断后显示此双引号中的内容。为了醒目，可在“单元格属性”中将F2单元格的字体颜色设置为红色。 F列以下单元格即可。 Excel的IF函数是一个“条件函数”，它的语法是“IF(logical_test,value_if_true,value_if_false)”，具体地说就是：如果第一个参数logical_test返回的结果为真，则执行第二个参数Value_if_true的结果，否则执行第三个参数Value_if_false的结果；Excel的TODAY函数［语法是TODAY()］是返回当前系统日期的函数。 IF函数语句为IF(E2=TODAY(),到期,)，解释为：如果E2单元格中的日期正好是TODAY函数返回的日期，则在F2单元格中显示“到期”，否则就不显示，TODAY函数返回的日期则正好是系统当天的日期。Excel的到期提醒功能就是这样实现的。 =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,C)))）即指定A为还差几天，B为当天，C为已过去 在G列写if(F列=A,还有F列天,if(F列=B,今日要完成,if(F列=C,已经过期F列天)))， 然后指定条件格式为“公式”，在公式中把条件增加至三个，分别就为F列=A、B和C，分别指