条件格式VBA代码失效：单元格变更后不再执行

核心问题 #

1. 自定义Sub无法自动触发：工作表的单元格变更触发事件必须命名为Worksheet_Change，你自定义的ConForL_Change和ConForF_Change不属于Excel内置的事件触发机制，只有手动调用时才会执行，这就是后续修改单元格时代码不生效的根本原因。
2. 条件格式互相覆盖：两个Sub都会执行.FormatConditions.Delete，不管触发哪个，都会删掉之前的条件格式，导致只有最后执行的那个条件生效。

修复后的代码 #

把两个逻辑合并到标准的Worksheet_Change事件中，同时保留两个条件格式，避免互相覆盖：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只在I列单元格变更时执行，减少不必要的运算
    If Intersect(Target, Me.Range("I:I")) Is Nothing Then Exit Sub
    
    Dim lastRow As Long
    lastRow = Me.Cells(Rows.Count, 1).End(xlUp).Row
    Dim targetRange As Range
    Set targetRange = Me.Range("B2:I" & lastRow)
    
    ' 先清除原有条件格式
    targetRange.FormatConditions.Delete
    
    ' 添加L的条件格式（金色字体）
    With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=$I2=""L""")
        .Font.Color = RGB(255, 192, 0)
    End With
    
    ' 添加F的条件格式（绿色字体）
    With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=$I2=""F""")
        .Font.Color = RGB(0, 176, 80)
    End With
End Sub

额外优化点 #

• 增加Intersect判断，只有当修改的是I列单元格时才执行代码，提升运行效率。
• 使用Me指代当前工作表，避免硬编码工作表名称，代码更灵活。
• 合并两个条件格式的创建逻辑，避免重复操作。

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