在Macro / VBA中使用3个条件进行条件格式

Question

我想在Excel中编写一个宏，如果满足以下条件，该宏将以绿色突出显示整个行：

Emergency Type (Column B) = """"
In Window (Column N) = "On time"
Status (Column O) = "Successful"

范围是动态的，但就本示例而言，范围是A2:P236 。
我将不胜感激。 谢谢。

Answer 1

编程？ 尝试这个：

Sub ApplyConditionalFormatting()

Dim applyto As Range

Set applyto = Range("A2:P236") 'you can make this dynamic

Range("A2").FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=AND($B2="""",$N2=""On Time"",$O2=""Successful"")"
With Range("A2").FormatConditions(1)
    .SetFirstPriority
    With .Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
    .ModifyAppliesToRange applyto
    .StopIfTrue = False
End With

End Sub

HTH。

Answer 2

使用Excel的条件格式设置功能。 使用基于公式的格式。 您的公式应如下所示：

=(INDIRECT(ADDRESS(ROW(), 2))="""""") *
 (INDIRECT(ADDRESS(ROW(), 3))="On time") *
 (INDIRECT(ADDRESS(ROW(), 4))="Successful")

这将选择当前行的X列：

=INDIRECT(ADDRESS(ROW(), X))

在条件格式中不必使用INDIRECT，但由于Excel具有条件格式的某些“问题”以及复制和过去的操作，因此使用起来更加容易。

这样可以确保仅在满足所有条件的情况下才返回true：

= bool * bool

根据使用AND（）函数的条件格式，不可能在条件格式中使用AND（）。 但是乘以布尔值是可能的，并且就像一个魅力。