如何将多个DoesNotContain文本字符串添加到条件格式VBA中

Question

我希望将多个DoesNotContain文本字符串添加到此VBA中。在设置条件格式时，在这里使用公式可能更容易，但我很好奇是否可以或容易地将其添加到VBA中。提前感谢！

Selection.FormatConditions.Add Type:=xlTextString, String:="day", _ 
TextOperator:=xlDoesNotContain
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.color = 12632256
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A3:A").Select
ActiveWindow.SmallScroll Down:=0

Answer 1

从上面评论中发布的链接。。。

将你的术语列表放在一列中，并将单元格范围命名为(例如("；MyTerms"；

添加基于公式的CF规则，使用(例如(

=SUM(COUNTIF(A1,"*" & MyTerms & "*"))=0   'formatting A1:A10

这应该突出显示任何不包含列表中任何术语的单元格。