Excel VBA-如何在条件格式中忽略空白单元格

Question

我试图突出显示日期小于今天的日期的单元格。 但是，当应用条件格式时，“ ALL”空白单元格将突出显示。 我知道要指定范围（I2：I200），但是该报告每天运行，可能包含1到200+。 这就是为什么我需要格式化整个列的原因。

Sheets("Sheet1").Columns("I:I").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="=today()"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent2
    .TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False

Answer 1

只是一点：

如果任何日期由公式产生，则该解决方案不起作用。

如果要突出显示日期常量和日期公式，则需要返回到原始选择（或通过分配范围来执行相同的操作）：

Sheets("Sheet1").Columns("I:I").Select

...，然后将条件格式替换为以下内容：

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=if(isblank(i1),false,i1<=today())"

（我不是条件格式专家，所以当您引用范围中的第一个单元格时，我并不真正理解它为什么起作用，但是在我测试它时它确实起作用。）

Answer 2

您可以使用SpecialCells()类型。 第一行是我所做的全部更改。

Sheets("Sheet1").Columns("I:I").SpecialCells(xlCellTypeConstants).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="=today()"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent2
    .TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False

但是，还应避免使用.Select 。 我将把如何做作为练习留给读者。