1、開啟Excel表格後，按Alt+F11，開啟VBA編輯器，雙擊左側工程裡面的ThisWorkbook。

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=Sheet1.Cells(R,2).ValueMsgBoxT&"將於"&v&"到期，請及時核定！"EndIfEndSub。

5、確認，儲存。關閉當前工作簿，再次開啟，就會看到到期提示啦。

假設A列是日期。開啟excel VBA編輯器中，在workbook的open事件中新增以下程式碼：

Private Sub Workbook_Open()

Dim TotalRows

Dim str As String

TotalRows = Worksheets(1).UsedRange.Rows.Count

For i = 1 To TotalRows

If (Cells(i, 1)

str = "第" + CStr(i) + "行過期！"

MsgBox (str)

End If

Next i

End Sub

儲存檔案，在“工具”->“宏”->“安全性”中，把安全級設為中或者低。建議設為中。關閉檔案，再開啟檔案後，會彈出提示框，選擇啟用宏，即可實現效果。