内容导航:


一、如何设置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,打开上述工作簿文档。设定时间一到,系统即刻弹出提示框。


二、Excel如何实现自动提醒功能


1、这个合同将在一个星期内到期。

2、框选D2:D10列,单机【条件格式】按钮,在弹出的下拉框中点击【管理规则】按钮。

3、在弹出的【条件格式规则管理器】中单机【新建规则】按钮

4、在弹出的【新建条件格式】对话框中选择【使用公式确定要设置格式的单元格】按钮

5、在【为此公司的值设置格式】中输入“=AND($D2>TODAY(),$D2-TODAY()<7)”并单机【格式按钮】设置符合此条件的单元格颜色。