具有多个条件和复选框的条件格式

Question

我正在尝试以下条件格式，以根据单元格 B、C、D 的值突出显示单元格 A，但它引发了错误类型不匹配。

Sub logic()
Dim i As Long
For i = 1 To 3
Range(Replace("A#", "#", i)).Select
Range("A" & i).Activate
Application.CutCopyMode = False
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$" & i And "=$C$" & i Or "=$D$" & i
With Selection.FormatConditions(1).Interior
.Color = RGB(100, 100, 100)
End With
Selection.FormatConditions(1).StopIfTrue = False
Next i
End Sub

Answer 1

请参阅：

在宏/VBA 中使用 3 个条件的条件格式

另外，我运行了一个类似的宏，有趣的是，如果你多次运行它，它会返回一个错误。 所以，我补充说：

Selection.FormatConditions.Delete

在格式化命令之前，以便清除之前设置的任何内容。