返回目录：excel表格制作
1、首先打开需要编辑的Excel表格，进入到编辑页面中，鼠标右键单击左下角工作表，选择打开查看代码。
2、然后在弹出e79fa5e98193e59b9ee7ad94362来的窗口中，点击选择左侧Excel 对象中的“ThisWorkbook”选项。
3、然后在弹出来的窗口中，点击打开“通用”，选择“workbook”。
4、然后打开后面的选项栏，选择“open”选项。
5、然后点击下方的编辑框，输入下方的代码：
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
6、然后单击左上角的保存按钮。
7、然后重新打开Excel表格，到了时间就会弹出窗口提示了。
1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。
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天时提醒。
4、EndIfNextIf v<Application.WorksheetFunction.Max(Range("C2:C15")) ThenDim TAsString Dim R As Integer Set C = Range("C2:C15").Find(v)If Not C Is Nothing Then R = C.Row 返回行End IfT = Sheet1.Cells(R, 2).Value MsgBox T & "将于" & v & "到期，请及时核e799bee5baa6e58685e5aeb9334定！" End IfEnd Sub。
5、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
本视频主要和大家分享Excel中如何设置日期提醒？
这个不能通过设置实现，需要进行编程处理，操作方法如下：
网页链接