Excel表格怎么设置标准/合同到期自动弹出提醒
番茄系统家园 · 2022-10-10 10:19:03
大家在使用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
If v > s Then
v = s
End If
End If
Next
MsgBox "有产品于" & v & "到期，请及时修订!"
End Sub
4、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
注意事项： Excel表格中日期的单元格要以日期形式设置。
免责声明： 凡标注转载/编译字样内容并非本站原创，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如果你觉得本文好，欢迎推荐给朋友阅读；本文链接： https://m.nndssk.com/rjwt/392193QlCmWW.html。猜你喜欢
最新应用
热门应用
