如果单元格包含文本片段，则Excel 2010 VBAmacros条件化行的格式

我在macros中进行条件格式化（因为我不断地将其与其他格式一起应用于新的原始导出）。

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

…这很好。 以上是使用谷歌search和最初给我的录音清理的：

  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（每个上面） 中的单元格在单元格文本中的任何点包含 “引用”的行（以不同的颜色）。

当我把这个macros写成条件格式的时候，它并没有为我澄清任何事情：（好吧，它变得更糟了）

  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部分的颜色。

编辑：意识到你正在寻找“报价”在单元格的任何地方，所以我已经更新了我原来的post的代码。