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、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
