九乡新闻网黄仁植和黄正利:excel怎么设置报警预警功能
来源：百度文库 编辑：九乡新闻网 时间：2024/05/06 14:24:17
至少可以在每次打开这个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天。”