如果單元格包含文本片段，則行的 Excel 2010 VBA 宏條件格式

Question

我在宏中進行條件格式設置（因為我不斷地將它與其他格式一起重復應用於新的原始導出）。

目標：突出顯示單元格 J(n) 中文本為“無活動”的任何行

目前使用：

    With Cells
.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=($J1=""No Activity"")"
    With .FormatConditions(.FormatConditions.Count)
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = 7405514
            .TintAndShade = 0
        End With
        StopIfTrue = False
    End With
End With

...效果很好。 以上是使用谷歌搜索和最初給我的錄音清理的：

    Cells.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=($N1=""No Activity"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent4
    .TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False

所以我感到非常自豪和成就......但我也想突出顯示行（以不同的顏色），其中列 J（同上）中的單元格在單元格文本的任何點包含“引用”。

當我錄制一個宏作為條件格式時，它並沒有真正為我澄清任何事情：（好吧，它讓情況變得更糟）

    Selection.FormatConditions.Add Type:=xlTextString, String:="Quote", _
    TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent1
    .TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False

我只是不明白它應該如何改變

Type:=xlExpression, Formula1:= _
"=($J1=""No Activity"")"

所有的想法都非常感謝！

Answer 1

這適用於 Excel 2010：

With Cells
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=($J1=""No Activity"")"
    With .FormatConditions(.FormatConditions.Count)
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = 7405514
            .TintAndShade = 0
        End With
        StopIfTrue = False
    End With

    .FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=ISNUMBER(SEARCH(""*quote*"",$J1))"
    With .FormatConditions(.FormatConditions.Count)
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = 4405514
            .TintAndShade = 0
        End With
        StopIfTrue = False
    End With
End With

顯然，您需要更改第二個FormatConditions.Add部分的顏色。

編輯：意識到您正在單元格中的任何位置尋找“報價”，因此我已更新了原始帖子中的代碼。