Excel VBA FormatCondiitons多个条件

Question

我是vba的新手，我很困惑如何格式化基于多个条件的范围。例如，我想仅在列（a：g）的值小于0的情况下突出显示列中的单元格，并且列H中它们各自行中的值包含字符串“是”或“否”。我编写的代码执行此功能不起作用，但看起来像这样。

Columns("A:G").Select 
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ 
"=AND(OR($H1 = ""YES"", $H1 = ""NO""),Columns(A,G) < 0)" 
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 

With Selection.FormatConditions(1).Interior 
    .PatternColorIndex = xlAutomatic 
    .Color = 120000 
    .TintAndShade = 0 
End With 
Selection.FormatConditions(1).StopIfTrue = False 

任何人都可以指向正确的方向吗？谢谢！

Answer 1

尝试，因为，

With Worksheets("sheet2").Columns("A:G") 
    .FormatConditions.Delete 
    With .FormatConditions.Add(Type:=xlExpression, _ 
     Formula1:="=AND(OR($H1=""yes"", $H1=""no""), $G1<0, $A1<0)") 
     .Interior.Color = 120000 
     .StopIfTrue = False 
    End With 
End With 

重读你原来的叙述后，我认为，这可能是一个更好的配方。

Formula1:="=AND(OR($H1=""yes"", $H1=""no""), A1<0")