然后输入以下代码,关键地方已备注,按自己要求修改即可。
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