excel报警功能 excel如何设定报警

经验直达:

  • excel如何设定报警
  • excel报警功能

一、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报警功能


预警功能通过高亮单元格来实现,单元格自动变色的问题在EXCEL中可用两种方法实现:

方法一:
条件格式,操作如下(以到期前五天举例):
开始-->条件格式-->新建规则-->使用公式确定-->输入公式=(A1>TODAY()-5)*(A1设置单元格填充色-->确定 。
【excel报警功能 excel如何设定报警】公式中的星号可用and函数替代 。
excel报警功能 excel如何设定报警

方法二:
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

相关经验推荐