Excel中突出显示重要日期的条件格式

我有一张有一百个日期的excel工作表。是否有条件设置这些单元格的格式，以突出显示快速接近的红色日期，以及遥远未来的绿色日期？

什么版本的Excel？在Excel2010（我想是2007年）中，您可以使用分级色标，从红色开始，变为绿色，用于日期范围。事实上，红黄绿比例是“条件格式”功能区项下的选项之一

要使用VBA设置条件格式，请使用如下宏：

Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
    xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
    .Color = 8109667
    .TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
    xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
    .Color = 8711167
    .TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
    xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
    .Color = 7039480
    .TintAndShade = 0
End With

---

什么版本的Excel？在Excel2010（我想是2007年）中，您可以使用分级色标，从红色开始，变为绿色，用于日期范围。事实上，红黄绿比例是“条件格式”功能区项下的选项之一

要使用VBA设置条件格式，请使用如下宏：

Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
    xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
    .Color = 8109667
    .TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
    xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
    .Color = 8711167
    .TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
    xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
    .Color = 7039480
    .TintAndShade = 0
End With

---

您不需要VBA来执行此操作。在我看来，VBA在这种特殊情况下会使事情变得不必要的复杂化。（这是一位VBA爱好者的作品。）

---

这是Excel 2003，但2010年的想法是一样的

这样做不需要VBA。在我看来，VBA在这种特殊情况下会使事情变得不必要的复杂化。（这是一位VBA爱好者的作品。）

---

这是Excel 2003，但2010年的想法是一样的

我正在使用2010，我看到了，它工作得很好，有没有看到vba的编码呢？每次打开Excel时，我都喜欢将日期更改为当前日期。它不使用VBA，而是内置在Excel中。要复制它，你可以使用这样一个宏：我正在使用2010，我看到了，它工作得很好，有没有看到vba编码？每次打开Excel时，我都喜欢将日期更改为当前日期。它不使用VBA，而是内置在Excel中。要复制它，你可以使用这样一个宏：为什么这个被否决了？该死的，我讨厌别人不留言+1关于条件格式的使用。我认为这是一个报复的案例。您在一分钟内获得2个无法解释的否决票（单独的线程）@悉达多：谢谢你的支持！是的，我也在考虑报复。有些人手头的时间太多了。他们投票赞成取消了另一个反对票，因为这是一个很好的答案。为什么会被否决？该死的，我讨厌别人不留言+1关于条件格式的使用。我认为这是一个报复的案例。您在一分钟内获得2个无法解释的否决票（单独的线程）@悉达多：谢谢你的支持！是的，我也在考虑报复。有些人手头有太多的时间，他们投了赞成票来取消另一个反对票，因为这是一个很好的答案。