返回目录：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天时提e79fa5e98193e58685e5aeb9334醒。
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 & "到期，请及时核定！" End IfEnd Sub。
5、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
选择“有效日期”下的第一个单元格
格式-----条件格式---
条件1：在条件格式的第二个格子内选择“介于”第三个格子内输入=A2+350，第四个格子输复入=A2+365，输入后选择第四个格子下的“格式”----图案，在内你可以自由设置
点击下面制的“添加A”按扭，设置条件格式2
在条件2的第二个格子内选择知“大于或等于”，右面输入 =A2+365 ，同样选择下面的格式进行自由设定
注：一般未到期设置成黄色，过期的设置成红色
设置好后选种“有效日期”下的第一个单元各，把鼠标放在右下角的黑点处，待变成“+”时 按住鼠标左键同时按道住CTRL键向下拉，在下拉后弹出的格式中选择“仅填充格式”
1、首先打开需要编辑的Excel表格，进入到编辑页面中，鼠标右键e799bee5baa6e997aee7ad94e58685e5aeb9362单击左下角工作表，选择打开查看代码。
2、然后在弹出来的窗口中，点击选择左侧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表格，到了时间就会弹出窗口提示了。