返回目录：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("B2:B20")) 'C2:C20为要审查答的单元格
For Each s In Range("C2:C20")
n = Date '获取当前日期
If s > n And s < n + 60 Then ' 设置到期60天时提内醒
If v > s Then
v = s
End If
End If
Next
MsgBox "有产品于" & v & "到期，请及时修订！"
End Sub
4、确认，保存。关闭当前工作簿，再次打开，就会容看到到期提示啦。
通过“数据”选项下的“数据有效性”来设置。
选择单元知格区域，在“道数据”选项下的“数据有效性”里的允许中选择“自定义”版，然后输入<3000；在
“出错警告”中选择“信息”，并输入“你的账户余额已不足3000，请及时权续费”，确定，即可。
详见附图：
材料百/工具：Excel2010
1、打开我们需要的电子表格，这是正常的电子表格，可以正常的操作；
2、我们一阵操作，不晓得什么时候度又弹出了烦人的“信息检问索”答；
3、而且还输入不了数据内容，也进行不了删除等操作，点击关闭按钮，你随便点击一个单元格又弹出来内，消去不掉；
4、经过多次尝试学习，原来我们按住Alt再进行关闭的话，就可以真正的关闭这样一个“信息检索”的弹出框；
5、消失后，我们又可以进行正常的操作了，当然，如果我们按住Alt，任意点击一个单元格就会弹出“信息检索”，原来Alt+任意单元格，就是调出信息检索的快捷键；
6、我们可以使用“信息检索”实现翻译、搜索参考资料、所有网站检索等多种功容能，合理使用可以帮助我们大大提高效率；
=========================================================================
在Excel中，按下 百Ctrl+F11 组合键，进入到VBA代码编写窗口，然后，度将如下代码保存到回您的VBA窗口中，就完成了：
答Private Sub Workbook_Open()
For i = 2 To Sheet1.UsedRange.Rows.Count
If (Sheet1.Cells(i, 2).Value = Date) Then
Sheet1.Cells(i, 3).Value = "该合同到期拉"
If (Day(Date) = Day(Sheet1.Cells(i, 2).Value)) Then
MsgBox (Sheet1.Cells(i, 2).Value & "此合同已到期")
End If
Else
Sheet1.Cells(i, 3).Value = ""
End If
Next i
End Sub