如何编写VBA代码实现E3不在C5、D5区间时的条件格式

需求说明 #

需要为E3单元格创建条件格式规则：当E3的值不在C5和D5的数值区间时，将E3内的数字标红；若在区间内则保持默认黑色。由于宏的跨工作表复制粘贴操作会删除常规条件格式，且C5、D5的值经常变动无法使用固定值，因此需通过VBA实现。

原代码问题 #

以下是尝试的无效代码，仅创建了不完整规则：

Dim rng As Range
Dim condition1 As FormatCondition, condition2 As FormatCondition

Set rng = Range("E3")

rng.FormatConditions.Delete

Set condition1 = rng.FormatConditions.Add(xlCellValue, Operator:=xlBetween, _
Formula1:=Range("C5"), Formula2:=Range("D5"))

With condition1
 .Font.Color = vbRed
End With

问题点：

• 逻辑反向：原规则设置的是在区间内标红，与需求的"不在区间标红"相反
• 引用错误：Formula1和Formula2直接传入Range对象，条件格式无法正确识别动态单元格引用，需传入单元格引用字符串

正确代码实现 #

Sub SetDynamicConditionalFormat()
    Dim targetCell As Range
    ' 建议指定具体工作表，避免激活其他表时出错，如Sheets("Sheet1").Range("E3")
    Set targetCell = ThisWorkbook.ActiveSheet.Range("E3")
    
    ' 清除目标单元格现有条件格式
    targetCell.FormatConditions.Delete
    
    ' 添加动态条件格式：判断E3是否不在C5-D5区间（兼容C5>D5的情况）
    With targetCell.FormatConditions.Add(Type:=xlExpression, _
        Formula1:="=OR(E3<MIN($C$5,$D$5),E3>MAX($C$5,$D$5))")
        .Font.Color = vbRed ' 不在区间时字体标红
    End With
End Sub

代码说明 #

• 使用xlExpression类型通过公式判断，确保动态跟随C5、D5的值变化
• 公式OR(E3<MIN($C$5,$D$5),E3>MAX($C$5,$D$5))兼容C5大于D5的情况，无论区间顺序如何都能正确判断
• 用绝对引用$C$5、$D$5避免后续操作导致引用偏移（若仅针对E3，相对引用也可，但绝对引用更稳妥）
• 仅需设置"不在区间"的格式，默认字体为黑色，无需额外设置区间内的格式

内容的提问来源于stack exchange，提问作者Newbie