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

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

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

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

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

复制内容到剪贴板

1. Private Sub Workbook_Open()   
2.   
3. dim v,s,n as Date   
4.   
5. v = Application.WorksheetFunction.Max(Range('B2:B20'))  'C2:C20为要审查的单元格  
6.  
7. For Each s In Range('C2:C20')  
8.  
9. n = Date   '获取当前日期   
10.   
11. If s > n And s < n   60 Then    ' 设置到期60天时提醒   
12.   
13.   If v > s Then   
14.   
15.   v = s   
16.   
17.   End If   
18.   
19. End If   
20.   
21. Next   
22.   
23.      MsgBox '有产品于' & v & '到期，请及时修订！'  
24.   
25. End Sub  

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

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

相关推荐：

excel中怎么利用dateif函数计算两个日期参数的差值?

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