3

我正在宏中进行条件格式设置（因为我不断地将它与其他格式一起重复应用到新的原始导出中）。

目标：突出显示单元格 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"")"

非常感谢所有想法！

4

1 回答 1

3

这适用于 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部分的颜色。

编辑：意识到您正在单元格中的任何位置寻找“报价”，因此我更新了原始帖子中的代码。

于 2012-11-27T23:53:34.063 回答