EXCEL的时间报警设置
发布网友
发布时间：2022-04-19 13:56
共2个回答
热心网友
时间：2023-07-09 15:47
至少可以在每次打开这个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天。”
如果单元格中的时间是自己输入的，当前的时间快要到输入时间（最好是前五分钟）是就报警。
选择输入日期那一列，比如在A列，点击条件格式，选择公式，输入=IF(((HOUR(A1)-HOUR(NOW()))*60+MINUTE(A1)-MINUTE(NOW()))<=5,TRUE,FALSE)，设置你需要的格式进行报警，点击确定就可以了。
即 =IF(TODAY()>DATE(YEAR(B2),MONTH(B2)+33,DAY(B2)-1),"到期","")
热心网友
时间：2023-07-09 15:47
humorangel的回答已经比较专业了，不知道楼主是否看的懂，我也不知道你所谓的时间报警设置究竟是什么意思，可能就是将当前时间与某一特定时间进行比较，如果低于或高于一定天数就报警是吗？如果仅是这样，就不必用宏了，简单的几个公式就搞定了。
举个简单的例子吧，看图，应该能看的明白，举一反三，就能做出很多预警设置，也可以填加相应说明，我没做那么复杂，看是否有用吧。
