我能否在包含公式的規則中刪除對特定單元格的引用，以便我可以在多個列中重復使用它？

Question

我正在嘗試將相同的規則應用於不同的列，如果它是空的，它將用綠色填充單元格。

我通過錄制宏獲得了規則，但無法找到一種成功的方法來刪除對下面范圍 B2 的引用。

我想把它作為一項規則，我可以將其應用於多個選定的列。

有什么我可以代替的嗎？

Public Sub FillGreenIfCellNotEmpty()
    selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(B2))>0"
    selection.FormatConditions(selection.FormatConditions.count).SetFirstPriority
    With selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0
    End With
    selection.FormatConditions(1).StopIfTrue = False

End sub

我試過用“cells(1,1)”代替 B2 來引用選區的第一個單元格，並用“selection”代替。

目前，我不完全了解規則如何與即時更新一起使用。 我原以為公式會更符合 if not isempty(selection) 而不是 LEN() 和 TRIM()

Answer 1

請試試這個：

Option Explicit

Public Sub FillGreenIfCellNotEmpty()
Dim x As String
x = Selection.Address(0, 0) 

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(" & x & " ))>0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

End Sub

Answer 2

條件格式：突出顯示非空白單元格

突出顯示非空白單元格

Selection.FormatConditions.Add _
    Type:=xlCellValue, _
    Operator:=xlNotEqual, _
    Formula1:="="""""

突出顯示空白單元格

Selection.FormatConditions.Add _
    Type:=xlCellValue, _
    Operator:=xlEqual, _
    Formula1:="="""""