excel怎么设置报警预警功能？？？
我们经常用excel报表，可不可以设置一个提前通知功能?
就是我用excel表和word保存了一些检验报告，但报告都有有效期，我想提前设置一下，提前通知我换新的……
至少可以在每次打开这个EXCEL文件的时候，自动判断是否到期，并且可以设置在到期前多少天给出提示。常见方法有二：
1、单元格内文字提示（公式法）：
例如你的报告有效期在A1单元格，请在A2（举例）单元格输入公式“=IF(A1-TODAY()<50,"距离有效期还有"&TEXT(A1-TODAY(),"@")&"天","")”，则当距离有效期少于50天的时候，A2单元格会显示“距离有效期还有XX天”，否则不显示任何内容。注意：
A、EXCEL是把系统日期作为当前日期的，如果你电脑的系统日期不正确，则EXCEL无法正确判断。
B、上面的公式请直接复制，但不含外侧引号。
C、公式中的数字50可修改，例如该成20，则小于20天时提示。
D、你的报告的有效期应为EXCEL可识别的标准日期格式，例如2008-2-24。
2、对话框弹出提示（宏方法）：
如果你对宏不太了解，则我们结合公式，以最简单的方式实现。要运行宏，需要在EXCEL的“工具”—“宏”—“安全性”中进行设置。
还是例如你的报告有效期在sheet1的A1单元格，请在A2（举例）单元格输入公式“=IF(A1-TODAY()<50,TRUE,FALSE)”。在A3单元格输入公式“=A1-TODAY()”并将该单元格的数字格式设为“常规”。然后按下Atl+F11打开VBA编辑器，在左侧上方的窗口中双击ThisWorkbook，然后在右侧的主窗口中，顶部左边下拉选择Workbook，右侧选择Open，编辑器会自动生成如下内容：
Private Sub Workbook_Open()
End Sub
请在这两句中间添加如下内容：
If Worksheets("sheet1").Range("A2") = True Then
MsgBox "距离有效期还有" & Worksheets("sheet1").Range("A3").Value & "天。", 0, "提示", 0, 0
Else
End If
完成后保存即可。这样，当距离有效期到达规定值时，一打开这个工作薄，EXCEL就会弹出一个对话框，提示“距离有效期还有XX天。”
预警功能通过高亮单元格来实现，单元格自动变色的问题在EXCEL中可用两种方法实现：
方法一：
条件格式，操作如下(以到期前五天举例)：
开始-->条件格式-->新建规则-->使用公式确定-->输入公式=(A1>TODAY()-5)*(A1<TODAY())-->设置单元格填充色-->确定。
公式中的星号可用and函数替代。
方法二：
VBA代码。
alt+f11打开VBA, 键入如下代码到需要设置颜色的sheet下，
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim cel As Range
For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
If cel > Date - 5 And cel < Date Then cel.Interior.ColorIndex = 20
Next
End Sub
