然后輸入以下代碼，關鍵地方已備注，按自己要求修改即可。

Private Sub Workbook_Open()

Dim v, s, n As Date

v = Application.WorksheetFunction.Max(Range("C2:C15")) ?'C2:C15為要審查的單元格

For Each s In Range("C2:C15")

n = Date ? '獲取當前日期

If s > n And s < n + 60 Then ? ?' 設置到期60天時提醒

If v > s Then

v = s

End If

End If

Next

If v < Application.WorksheetFunction.Max(Range("C2:C15")) Then

Dim T As String

Dim R As Integer

Set C = Range("C2:C15").Find(v)

If Not C Is Nothing Then

R = C.Row ?'返回行

End If

T = Sheet1.Cells(R, 2).Value

MsgBox T & "將于" & v & "到期，請及時核定！"

End If

End Sub

總結

以上是生活随笔為你收集整理的excel到期弹窗提醒桌面弹_打开Excel自动弹出提示框提示标准、合同将到期的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。