大家在使用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表格中日期的单元格要以日期形式设置。
相关推荐:
excel中怎么利用dateif函数计算两个日期参数的差值?
excel理日期数据怎么计算?excel灵活处理日期数据的两种方法
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。