问题背景 #

需要生成库存不足物品的拣选清单，仅显示红色高亮行，通过VBA隐藏其余行。手动高亮行时代码正常运行，但采用条件格式根据库存数量自动着色后，VBA无法检测到单元格填充颜色——因为条件格式是动态覆盖层，不属于单元格静态属性。

原VBA代码（仅支持手动高亮）：

Sub HideRows()
    Dim LastRow As Long
    Dim x As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For x = 1 To LastRow
        'hide BLUE rows'
        If Cells(x, 3).Interior.Color = RGB(148, 220, 248) Then
            Rows(x).Hidden = True
        End If

        'hide YELLOW rows'
        If Cells(x, 3).Interior.Color = RGB(255, 235, 156) Then
            Rows(x).Hidden = True
        End If

        'hide GREEN rows'
        If Cells(x, 3).Interior.Color = RGB(198, 239, 206) Then
            Rows(x).Hidden = True
        End If

    Next x
End Sub

解决方案 #

方案1：检测条件格式生效后的显示颜色 #

使用DisplayFormat.Interior.Color获取条件格式应用后的实际显示颜色，替换原代码中的Interior.Color即可：

Sub HideRows_ConditionalFormat()
    Dim LastRow As Long
    Dim x As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '先取消所有行隐藏，避免重复运行时遗漏
    Rows("1:" & LastRow).Hidden = False

    For x = 1 To LastRow
        '隐藏非红色的行（根据你的条件格式红色RGB值调整）
        If Cells(x, 3).DisplayFormat.Interior.Color <> RGB(255, 199, 206) Then '替换为你实际的红色RGB值
            Rows(x).Hidden = True
        End If
    Next x
End Sub

方案2：复用条件格式的判断逻辑（更推荐） #

直接用条件格式的库存判断规则来决定是否隐藏行，比检测颜色更稳定，避免颜色调整或格式冲突导致的失效。比如假设你的条件格式中，红色对应库存低于安全值（比如D2<=5），代码可以写成：

Sub HideRows_ByInventoryRule()
    Dim LastRow As Long
    Dim x As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '先取消所有行隐藏
    Rows("1:" & LastRow).Hidden = False

    For x = 1 To LastRow
        '根据库存条件判断，隐藏不符合红色规则的行
        '请替换为你条件格式中实际的判断公式
        If Not (Cells(x, 4).Value <= 5) Then '示例：D列库存<=5时显示红色，否则隐藏
            Rows(x).Hidden = True
        End If
    Next x
End Sub

提示：需要根据你条件格式里的实际公式（比如库存不足的判断规则）修改代码中的条件逻辑，确保和条件格式的规则一致。

方案对比 #

• 方案1：无需改动判断逻辑，直接适配条件格式，但如果条件格式的颜色或规则变动，需要同步更新RGB值。
• 方案2：逻辑和库存规则绑定，不受颜色变化影响，更适合每周更新库存的场景，维护成本更低。

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