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

打开Excel表格后，按Alt+F11，打开VBA编辑器

双击左侧工程里面的ThisWorkbook，然后选择代码窗口里的workbook和open

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

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