Excel中如何修改代码实现基于L、M列值更新B列Workproduct状态颜色？

需求规则 #

• 规则1：若任意行的L列值为"Q"且对应M列值为"NOTOK"，则该行B列设置为红色填充；只要数据范围内存在至少一行满足此规则，所有符合规则1的B列红色状态需保留，不受其他规则影响。
• 规则2：若某行L列值为空且M列值为"NOTOK"，该行B列不设置颜色，但不可覆盖已由规则1设置的红色状态。
• 规则3：其他所有情况，B列均无填充颜色。

示例验证 #

解决方案（VBA代码） #

使用VBA可精准实现上述规则，操作步骤如下：

1. 按下Alt+F11打开VBA编辑器；
2. 右键目标工作表→插入→模块；
3. 粘贴以下代码：

Sub UpdateWorkproductStatusColor()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim hasRule1Match As Boolean
    
    ' 替换为你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row
    
    ' 检查是否存在符合规则1的行
    hasRule1Match = False
    For i = 1 To lastRow
        If ws.Cells(i, "L").Value = "Q" And ws.Cells(i, "M").Value = "NOTOK" Then
            hasRule1Match = True
            Exit For
        End If
    Next i
    
    ' 逐行设置B列颜色
    For i = 1 To lastRow
        ' 清除原有颜色
        ws.Cells(i, "B").Interior.ColorIndex = xlColorIndexNone
        
        ' 优先应用规则1
        If ws.Cells(i, "L").Value = "Q" And ws.Cells(i, "M").Value = "NOTOK" Then
            ws.Cells(i, "B").Interior.Color = RGB(255, 0, 0)
        End If
        ' 规则2和3无需额外处理：不满足规则1的行，清除颜色后保持无填充
    Next i
    
    ' 确保存在规则1匹配时，所有符合条件的行红色状态保留
    If hasRule1Match Then
        For i = 1 To lastRow
            If ws.Cells(i, "L").Value = "Q" And ws.Cells(i, "M").Value = "NOTOK" Then
                ws.Cells(i, "B").Interior.Color = RGB(255, 0, 0)
            End If
        Next i
    End If
    
    MsgBox "颜色更新完成！", vbInformation
End Sub

代码说明 #

• 先遍历L、M列标记是否存在符合规则1的行，确保后续红色状态不会被覆盖；
• 逐行清除B列原有颜色后，优先检查当前行是否符合规则1，符合则设置红色；
• 对于不满足规则1的行，无论是L空M为NOTOK还是其他情况，均保持无填充颜色，自动满足规则2和3；
• 最后二次校验确保所有符合规则1的行红色状态保留，避免遗漏。

注意事项 #

• 请将代码中的"Sheet1"替换为实际目标工作表的名称；
• 若表格存在表头，可将循环起始的i=1改为i=2，避免表头被修改；
• 可调整RGB(255, 0, 0)的值来更换红色的具体色调。

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