如何修改VBA代码使条件格式随单元格值动态更新？

你的核心问题是：使用xlCellValue操作符时，Formula1和Formula2需要传入带等号的单元格引用字符串，而非直接传入Range对象。直接传Range对象会被VBA转换成单元格的当前静态值，导致规则无法跟随C3/D3的变化更新。

修改后的代码如下：

Sub formatting()
    Dim rng As Range
    Dim condition1 As FormatCondition
    
    Set rng = Range("E3")
    
    ' 先清除已有条件格式，避免重复添加
    rng.FormatConditions.Delete
    
    ' Formula1和Formula2传入带等号的绝对引用字符串
    Set condition1 = rng.FormatConditions.Add( _
        Type:=xlCellValue, _
        Operator:=xlNotBetween, _
        Formula1:="=$C$3", _
        Formula2:="=$D$3")
    
    With condition1
        .Font.Color = vbRed
    End With
End Sub

关键说明： #

• 传入"=$C$3"而非Range("C3")：这样条件格式规则会保存为对C3单元格的动态引用，而非C3的当前值。
• 新增rng.FormatConditions.Delete：避免多次运行代码时重复添加相同规则，导致格式冲突。

运行这段代码后，修改C3或D3的值，E3的格式会自动根据新的范围更新，实现动态检测的效果。

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