Excel表格怎么设置标准/合同到期自动弹出提醒?

时间：2021-05-22

大家在使用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中怎么利用dateif函数计算两个日期参数的差值?

    excel理日期数据怎么计算？excel灵活处理日期数据的两种方法

    声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

    相关文章