大家在使用Excel统计时，常常会涉及一个标准、合同等等什么时候到期，同时需要在起到期前**天修订核准。那可以用Excel来实现在打开该表格时，弹出提示框提示标准于***到期，避免错过截止日期

　　1、打开Excel表格后，按Alt+F11，打开VBA编辑器

　　2、双击左侧工程里面的ThisWorkbook，然后选择代码窗口里的workbook和open

　　3、然后输入以下代码，关键地方已备注，按自己要求修改即可。

　　复制内容到剪贴板

　　Private Sub Workbook_Open()

　　dim v，s，n as Date

　　v = Application.WorksheetFunction.Max(Range( "B2:B20" )) 'C2:C20为要审查的单元格

　　For Each s In Range("C2:C20")

　　n = Date ' 获取当前日期

　　If s > n And s < n + 60 Then ' 设置到期60天时提醒

　　If v > s Then

　　v = s

　　End If

　　End If

　　Next

　　MsgBox "有产品于" & v & "到期，请及时修订!"

　　End Sub

　　4、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。

　　注意事项： Excel表格中日期的单元格要以日期形式设置。