VBA条件格式双条件触发异常：L列未高亮黄色

你之前的代码存在三个核心问题：

• 条件格式的表达式参数写法错误：xlExpression类型的条件需要传入字符串格式的判断公式，而非直接写VBA布尔表达式
• 尝试的三种写法全有语法错误：比如With Cond1 And Cond2、If Cond1 And Cond2 = True，FormatCondition是对象，不能直接当作布尔值判断
• 条件格式优先级未设置：两个条件同时作用于L列时，字体格式可能覆盖底色的显示逻辑

既然你的格式触发逻辑是基于窗体控件的值，而非单元格内容，直接用布尔判断设置格式更简单，完全避免条件冲突：

' 先清空目标行的旧格式，避免残留
Range("L" & bot_row & ":AB" & bot_row).ClearFormats

' 处理ChiResident=True的情况：L列红粗体
If EmployeeInformation.ChiResident.Value Then
    With Range("L" & bot_row).Font
        .Color = vbRed
        .Bold = True
    End With
End If

' 处理Apprentice=True的情况：L-AB列黄底
If EmployeeInformation.Apprentice.Value Then
    Range("L" & bot_row & ":AB" & bot_row).Interior.Color = vbYellow
End If

这样两个条件同时满足时，L列会自动叠加红粗体+黄底，M-AB列保持黄底，完全符合需求。

如果一定要通过条件格式实现，需修正表达式写法并调整优先级：

Dim cond1 As FormatCondition, cond2 As FormatCondition
Dim targetRow As String
targetRow = bot_row

' 先清除目标区域的旧条件格式
Range("L" & targetRow & ":AB" & targetRow).FormatConditions.Delete

' 条件1：ChiResident=True时，L列红粗体
Set cond1 = Range("L" & targetRow).FormatConditions.Add( _
    Type:=xlExpression, Formula1:="=" & EmployeeInformation.ChiResident.Value)
With cond1.Font
    .Color = vbRed
    .Bold = True
End With

' 条件2：Apprentice=True时，L-AB列黄底
Set cond2 = Range("L" & targetRow & ":AB" & targetRow).FormatConditions.Add( _
    Type:=xlExpression, Formula1:="=" & EmployeeInformation.Apprentice.Value)
With cond2.Interior
    .Color = vbYellow
End With

' 设置优先级：让底色条件（cond2）优先，确保黄底能显示在L列
cond2.Priority = 1
cond1.Priority = 2

1. 条件格式的Formula1必须是字符串公式，用"=" & 控件值构建布尔判断
2. 先清除旧条件格式，避免历史规则干扰
3. 调整条件优先级，让底色规则先于字体规则执行，保证L列同时显示两种格式

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