07版EXCEL中怎样设置过期颜色变化提醒

Question

第F列是执行日期，是2013-10-01，第G列是有效期，是2016-9-30，第G列怎样设置在有效期内第G列填充色是绿色的，到有效期前7天内，第G列填充色变成橙色，到有效期以后（包含有效期当天）填充色变成红色。请会做的朋友告诉我该怎么设置，非常感谢

Answer 1

 在excel中设置时间提醒可以使用条件格式功能，它可以完美的达到在指定日期之前进行高亮显示提醒，避免我们在日常工作中由于粗心大意而造成的失误，具体步骤如下操作：

        比如您的开始日期在A列的A2：A6区域，B列B2：B6为结束日期，C列C2：C6要求设置提前20天进行提醒，并且高亮显示为黄色，那么

      

      2003版本中

      1.选择C2：C6单元格数据，选择格式菜单中的条件格式，条件中设置公式=(B2-A2)-(TODAY()-A2)<=20，格式设置图案为黄色。有图片帮你看清操作步骤

        2.点击确定后，您可以看到最终的结果为；

            2007版本至更高版本

        1.  选择C2：C6单元格数据，选择开始菜单中的条件格式，点击新建规则按钮，点击使用公式确定要使用格式的单元格，条件中设置公式=(B2-A2)-(TODAY()-A2)<=20，格式中设置填充颜色为黄色。如所图

        2.同理得到第二幅图的结果。

Answer 2

参考如下VBA代码，每次打开excel文档后都会自动运行刷新一次：

代码与附件都给你,亲测过,望采纳

Sub auto_open()

Dim i As Integer

i = 1

While Range("g" & i) <> "" '循环语句开头

Select Case Range("g" & i).Value - Range("f" & i).Value '日期差

Case Is > 7 '判断句1,下面填绿色

Range("g" & i).Select

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 5287936

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

    i = i + 1

Case 1 To 7 '判断句2，下面填橙色

    Range("g" & i).Select

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 49407

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

    i = i + 1

Case Else '判断句3，下面填红色

 Range("g" & i).Select

With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 255

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

i = i + 1

    End Select

Wend '循环语句结尾

End Sub

本回答被网友采纳

Answer 3

在条件格式里输入

未到期公式：=$G$29967-$F$29967>7颜色设备为绿

快到期公式：=AND($G$29967-$F$29967<=7,$G$29967-$F$29967>0)颜色设备为黄

、

已到期公式：=$G$29967-$F$29967<=0，颜色设备为红

Answer 4

假设希望实现功能的单元格是B2，选中它，点菜单的开始，条件格式，最后一个选项“用公式”，公式中输入 =b2=today()，格式设置为绿色字体。再点开始，条件格式，管理规则，新建，与上类似，公式为 =and(b2=today()-7)，黄色; 再新建，=b2