1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。

2、点击ThisWorkbook之后进入新的界面，选择代码窗口里的workbook和open。

3、然后输入以下代码，关键地方已备注，按自己要求修改即可。PrivateSubWorkbook_Open()Dimv,s,nAsDatev=Application.WorksheetFunction.Max(Range("C2:C15")) 'C2:C15为要审查的单元ForEachsInRange("C2:C15")n=Date获取当前日Ifs>nAnds<n+60Then设置到期60天时提醒。

4、EndIfNextIf v<Application.WorksheetFunction.Max(Range("C2:C15"))ThenDimTAsStringDimRAsIntegerSetC=Range("C2:C15").Find(v)IfNotCIsNothingThenR=C.Row返回行EndIfT=Sheet

1.Cells(R,

2).ValueMsgBoxT&"将于"&v&"到期，请及时核定！"EndIfEndSub。

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