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

时间:2012-03-15 02:38:26

标签: excel vba

我有一个包含数百个日期的Excel工作表。无论如何有条件地格式化这些单元格以突出显示快速接近红色的日期,以及将来以绿色显示日期的日期?

2 个答案:

答案 0 :(得分:2)

什么版本的Excel?在Excel 2010(我假设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

答案 1 :(得分:2)

您不需要VBA来执行此操作。在我看来,VBA会在这种特殊情况下不必要地复杂化。 (这来自各种VBA爱好者。)

enter image description here

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