excel日期函数，日期颜色报警

excel日期函数，日期颜色报警

单元格根据日期自动变色的问题在EXCEL中可用两种方法实现：

方法一：
条件格式，操作如下(以到期前五天举例)：
 开始-->条件格式-->新建规则-->使用公式确定-->输入公式=(A1>TODAY()-5)*(A1设置单元格填充色-->确定。
公式中的星号可用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

用条件格式

格式--》条件格式

选中A1单元格，点击格式→条件格式，在弹出的窗口中选择公式，输入=a1
点击添加，选择公式，输入=AND(A1-TODAY()<=31,A1-TODAY()>=1)，然后点击格式，设置绿色背景。
OK

选中A列-》菜单栏上选“格式”-》条件格式-》
1、条件1选“公式”-》右面的框内输入或复制以下公式：
=A1然后“格式”-》颜色选“红色”-》确定
2、添加-》条件2选“公式”-》右面的框内输入或复制以下公式：
=AND(A1-TODAY()>=1,A1-TODAY()<=31)
然后“格式”-》颜色选“绿色”-》确定-》再确定即可。