VBA Excel : Apply conditional formatting to BLANK cells

Question

我正在尝试编写一个子过程，该过程将某些条件格式应用于 Excel 中的一系列单元格。我有点卡住了，所以我使用了宏记录器。但是我无法弄清楚为什么它应用下面的公式，当我手动运行代码时它失败了。

• 我想做的是对范围内的空白单元格应用条件格式。
• 我想让单元格颜色变成灰色
• 范围是一个表，该表称为“Table1”。
• 我需要在子中执行此操作，因为表格会动态刷新。

下面是录制的宏，它不起作用，而是将格式应用于错误的单元格。任何纠正它的帮助将不胜感激

谢谢

Sub MacroTest()

    Range("Table1").Select
    'The below formula is wrong but I can't figure out what it should be
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(TRIM(D15))=0"
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False

End Sub

Answer 1

改变

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEN(TRIM(D15))=0"

到

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=LEN(TRIM(C" & Range("Table1").Row & "))=0"

所以你的代码可以写成

Sub Sample()
    With ThisWorkbook.Sheets("Sheet1").Range("Table1")
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(C" & .Row & "))=0"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark2
            .TintAndShade = -9.99481185338908E-02
        End With
    End With
End Sub