Excel表格怎么设置标准/合同到期自动弹出提醒?
摘要：大家在使用Excel统计时，常常会涉及一个标准、合同等等什么时候到期，同时需要在起到期前**天修订核准。那可以用Excel来实现在打开该表格...
大家在使用Excel统计时，常常会涉及一个标准、合同等等什么时候到期，同时需要在起到期前**天修订核准。那可以用Excel来实现在打开该表格时，弹出提示框提示标准于***到期，避免错过截止日期。
1、打开Excel表格后，按Alt+F11，打开VBA编辑器
2、双击左侧工程里面的ThisWorkbook，然后选择代码窗口里的workbook和open
3、然后输入以下代码，关键地方已备注，按自己要求修改即可。
复制内容到剪贴板 PrivateSubWorkbook_Open() dimv,s,nasDate v=Application.WorksheetFunction.Max(Range("B2:B20"))'C2:C20为要审查的单元格 ForEachsInRange("C2:C20") n=Date'获取当前日期 Ifs>nAnds<n+60Then'设置到期60天时提醒 Ifv>sThen v=s EndIf EndIf Next MsgBox"有产品于"&v&"到期，请及时修订！" EndSub
4、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
注意事项：Excel表格中日期的单元格要以日期形式设置。
【Excel表格怎么设置标准/合同到期自动弹出提醒?】相关文章：
上一篇：
Excel如何创建添加图表(新数据列)?
下一篇：
如何录制宏?Excel如何录制并运行宏?