如何实现下拉菜单切换时自动隐藏特定行颜色不匹配的列？

核心问题 #

你的代码存在三个关键问题导致无法正常工作：

1. 带参数的Sub不会出现在宏列表中，宏对话框仅支持无参数的过程。
2. 未绑定自动触发的工作表事件，因此下拉菜单切换时代码不会自动执行。
3. 直接对比整个Q31:BS31区域的颜色索引，逻辑错误——该区域包含多个单元格，需逐个遍历判断。

修正后的代码（自动触发+正确逻辑） #

将以下代码粘贴到对应工作表的模块中（而非标准模块）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当下拉菜单所在的G1:H1区域发生变化时执行
    If Not Intersect(Target, Range("G1:H1")) Is Nothing Then
        Dim targetColor As Integer
        Dim cell As Range
        
        ' 获取下拉菜单单元格的条件格式显示颜色索引
        targetColor = Range("G1:H1").DisplayFormat.Interior.ColorIndex
        
        ' 遍历Q31到BS31的每一列单元格
        For Each cell In Range("Q31:BS31")
            ' 对比当前单元格的条件格式显示颜色
            If cell.DisplayFormat.Interior.ColorIndex <> targetColor Then
                cell.EntireColumn.Hidden = True
            Else
                cell.EntireColumn.Hidden = False
            End If
        Next cell
    End If
End Sub

关键说明 #

1. 工作表事件绑定：Worksheet_Change会在工作表单元格值变化时触发，这里通过Intersect判断是否是下拉菜单区域（G1:H1）的变化，避免不必要的执行。
2. 条件格式颜色获取：使用DisplayFormat.Interior.ColorIndex而非Interior.ColorIndex——前者能获取条件格式应用后的显示颜色，后者仅读取单元格本身的填充色（不受条件格式影响）。
3. 遍历逻辑：逐个检查Q31:BS31的每个单元格，根据颜色匹配状态控制对应列的显示/隐藏。

特殊场景适配 #

如果条件格式的颜色变化不依赖单元格值（比如关联其他单元格计算结果），可改用Worksheet_Calculate事件，代码逻辑不变，仅替换事件名称：

Private Sub Worksheet_Calculate()
    Dim targetColor As Integer
    Dim cell As Range
    
    targetColor = Range("G1:H1").DisplayFormat.Interior.ColorIndex
    
    For Each cell In Range("Q31:BS31")
        If cell.DisplayFormat.Interior.ColorIndex <> targetColor Then
            cell.EntireColumn.Hidden = True
        Else
            cell.EntireColumn.Hidden = False
        End If
    Next cell
End Sub

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