Question

我尝试在条件格式的公式中使用 2 个条件和函数，但没有成功...

下面是我的代码，但我在公式部分有问题。

感谢您的帮助。

Columns("Y:Y").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(ISNUMBER($J1);ISNUMBER($J2);$Y1<>$Y2)"

With Selection.FormatConditions(1)
    .Font.Color = RGB(174, 37, 42)
    .Interior.Color = RGB(255, 200, 205)
End With

Selection.FormatConditions(1).StopIfTrue = False

Answer 1

条件格式

使用 .FormatConditions.Delete，您可以确保所应用的条件格式是唯一的。
如果已经有一些条件格式，并且您想添加一个新格式，那么您必须注释（删除）行 .FormatConditions.Delete。
如果您尝试应用的格式是唯一的，那么您可以使用 1 而不是 .FormatConditions.Count（最后添加的 CF）。但是为什么要麻烦，因为显式编号可能只在有多种格式时才有用。

Option Explicit

Sub cfTest()

    With Columns("Y")
        .FormatConditions.Delete ' Remove any previous conditional formatting.
        .FormatConditions.Add Type:=xlExpression, _
            Formula1:="=AND(ISNUMBER($J1);ISNUMBER($J2);$Y1<>$Y2)"
        With .FormatConditions(.FormatConditions.Count) ' just added CF
            .Font.Color = RGB(174, 37, 42)
            .Interior.Color = RGB(255, 200, 205)
            .StopIfTrue = False
        End With
    End With

End Sub

带有“and”函数的条件格式

1 个答案:

条件格式