如何在Excel中基于多个下拉菜单隐藏行？故障代码求助

我曾见过类似问题的提问，但没找到可用代码。我需要在工作表中根据特定下拉菜单的值隐藏行，以下是我编写的代码，但无法正常运行：

Private Sub Worksheet_Change(ByVal Target As Range)

  If Intersect(Target, Range("A1,A5")) Is Nothing Or Target.Cells.Count > 1 Then
      Exit Sub
      
        ElseIf Range("A1").Value = "November" And Range("A5").Value = "Actual" Then
        
            Rows("15:33").EntireRow.Hidden = False
            Rows("34:70").EntireRow.Hidden = True
            Rows("71:150").EntireRow.Hidden = True
      
    
        ElseIf Range("A1").Value = "November" And Range("A5").Value <> "Actual" Then
        
            Rows("15:33").EntireRow.Hidden = True
            Rows("34:70").EntireRow.Hidden = False
            Rows("71:150").EntireRow.Hidden = True
    
        ElseIf Range("A1").Value = "December" And Range("A5").Value <> "Actual" Then
        
            Rows("15:70").EntireRow.Hidden = True
            Rows("71:107").EntireRow.Hidden = False
            Rows("108:150").EntireRow.Hidden = True
    
        ElseIf Range("A1").Value = "December" And Range("A5").Value = "Actual" Then
        
            Rows("15:91").EntireRow.Hidden = True
            Rows("92:107").EntireRow.Hidden = False
            Rows("108:150").EntireRow.Hidden = True
        
        ElseIf Range("A1").Value = "October" Then
        
            Rows("15:107").EntireRow.Hidden = True
            Rows("108:123").EntireRow.Hidden = False
            Rows("124:150").EntireRow.Hidden = True
    
        ElseIf Range("A1").Value = "September" Then
    
            Rows("15:123").EntireRow.Hidden = True
            Rows("124:150").EntireRow.Hidden = False
    
    End If
    

End Sub

问题分析与修正代码 #

原代码核心问题是逻辑结构错误：第一个If语句执行Exit Sub后，后续ElseIf没有对应的主If匹配，导致语法逻辑混乱；同时缺少事件禁用机制，可能在修改行隐藏状态时触发重复的Worksheet_Change事件。

以下是修正后的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理A1或A5的单单元格修改
    If Intersect(Target, Me.Range("A1,A5")) Is Nothing Or Target.Cells.Count > 1 Then
        Exit Sub
    End If
    
    ' 禁用事件，避免循环触发
    Application.EnableEvents = False
    
    ' 先默认隐藏所有目标行，再按需显示对应区域
    Me.Rows("15:150").EntireRow.Hidden = True
    
    Select Case Me.Range("A1").Value
        Case "November"
            If Me.Range("A5").Value = "Actual" Then
                Me.Rows("15:33").EntireRow.Hidden = False
            Else
                Me.Rows("34:70").EntireRow.Hidden = False
            End If
        Case "December"
            If Me.Range("A5").Value <> "Actual" Then
                Me.Rows("71:107").EntireRow.Hidden = False
            Else
                Me.Rows("92:107").EntireRow.Hidden = False
            End If
        Case "October"
            Me.Rows("108:123").EntireRow.Hidden = False
        Case "September"
            Me.Rows("124:150").EntireRow.Hidden = False
    End Select
    
    ' 恢复事件
    Application.EnableEvents = True
End Sub

关键修改点 #

1. 修正逻辑结构：将原错误嵌套的ElseIf改为Select Case结构，让逻辑更清晰易读。
2. 添加事件禁用：操作行隐藏前关闭Application.EnableEvents，避免代码执行时触发重复的Change事件。
3. 优化行隐藏逻辑：先统一隐藏15-150行，再仅显示需要的区域，减少重复代码，避免遗漏隐藏状态。
4. 使用Me引用工作表：明确指向当前代码所在的工作表，避免跨表错误。

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