打开Excel自动弹出提示框提示标准、合同将到期

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("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

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