excel表格怎么设置到期日前自动提醒功能

excel表格怎么设置到期日前自动提醒功能

可运用VBA工作表事件，复制如下代码在VBA模块中（假设期限为06/14），之后每次打开该工作簿均作判断：
Private Sub Workbook_Open()If Date >= "2015/6/14 星期日" ThenMsgBox "到期了"End IfEnd Sub

方法/步骤 准备原始数据，本文以“合同到期提醒”表来模拟次功能，通过观察此表，我们发现次表主要包括合同的开始日期，和截止日期，而我们要实现的功能是：如何系统日期比合同日期小7天内，哪儿该单元格飘红，以此来提示用户，这个合同将在一个星期内到期。 框选d2:d10列，单机【条件格式】按钮，在弹出的下拉框中点击【管理规则】按钮。 在弹出的【条件格式规则管理器】中单机【新建规则】按钮 在弹出的【新建条件格式】对话框中选择【使用公式确定要设置格式的单元格】按钮 5 在【为此公司的值设置格式】中输入“=and($d2>today(),$d2-today()<7)”并单机【格式按钮】设置符合此条件的单元格颜色。