Excel VBA实现双单元格条件行隐藏/显示功能的问题求助

针对你遇到的问题，核心是要在处理E5单元格的行隐藏逻辑时，排除你想要始终显示的行范围，同时优化事件处理避免触发重复操作。下面是具体的解决方案和修改后的代码：

问题分析 #

你当前的代码在处理E5输入时，会统一对16-166行进行隐藏/显示判断，但没有排除E10:E12对应的行（也就是你想保留的表格）。另外，Worksheet_Change事件如果处理不当可能会触发多次，建议加上事件禁用的逻辑来避免这类问题。

修改后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件，防止重复触发
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 确保出错时恢复事件
    
    ' 定义需要始终显示的行范围（替换成你实际要保留的行）
    Dim keepVisibleRows As Range
    Set keepVisibleRows = Me.Rows("10:12") ' 对应你提到的E10:E12所在行
    
    If Target.Address = "$D$5" Then
        Select Case Target.Value
            Case "1 Term"
                Rows("15:166").EntireRow.Hidden = False
                Rows("167:625").EntireRow.Hidden = True
                keepVisibleRows.Hidden = False ' 强制显示保留行
            Case "2 Terms"
                Rows("15:167").EntireRow.Hidden = True
                Rows("168:319").EntireRow.Hidden = False
                Rows("320:625").EntireRow.Hidden = True
                keepVisibleRows.Hidden = False ' 强制显示保留行
            Case "3 Terms"
                Rows("15:320").EntireRow.Hidden = True
                Rows("321:472").EntireRow.Hidden = False
                Rows("473:625").EntireRow.Hidden = True
                keepVisibleRows.Hidden = False ' 强制显示保留行
            Case "4 Terms"
                Rows("15:473").EntireRow.Hidden = False
                Rows("474:625").EntireRow.Hidden = False
                keepVisibleRows.Hidden = False ' 强制显示保留行
            Case "None"
                Rows("12:625").EntireRow.Hidden = True
                keepVisibleRows.Hidden = False ' 强制显示保留行
        End Select
    End If
    
    If Target.Address = "$E$5" Then
        If IsNumeric(Target.Value) And Target.Value >= 1 And Target.Value <= 150 Then
            Dim i As Integer
            For i = 16 To 166
                ' 先判断当前行是否属于要保留的范围，是则直接显示
                If Not Intersect(Rows(i), keepVisibleRows) Is Nothing Then
                    Rows(i).Hidden = False
                Else
                    ' 否则根据E5的值判断是否隐藏
                    Rows(i).Hidden = (i > Target.Value + 15)
                End If
            Next i
            
            ' 处理A12:A14的显示逻辑
            Range("A12:A14").EntireRow.Hidden = (Range("D5").Value <> "None")
        End If
    End If

Cleanup:
    ' 恢复事件
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "出现错误: " & Err.Description, vbExclamation
    End If
End Sub

关键修改点说明 #

• 新增始终显示行的定义：用keepVisibleRows变量明确指定要保留的行范围，方便后续修改和维护。
• 强制保留行显示：在处理D5的每个分支里，都强制设置keepVisibleRows.Hidden = False，确保无论选择哪个Term，这些行都保持显示状态。
• E5处理逻辑优化：在循环判断行隐藏时，先检查当前行是否属于保留范围，如果是则跳过隐藏判断，直接设置为显示；否则再根据E5的值处理行的显示/隐藏。
• 事件安全处理：加入Application.EnableEvents = False和错误捕获，避免因行隐藏/显示操作触发重复的Worksheet_Change事件，同时防止出错后事件被永久禁用。
• 代码简化：把If...Else判断行隐藏的逻辑简化为Rows(i).Hidden = (i > Target.Value + 15)，让代码更简洁易读。

这样修改后，你想要保留的表格行就会始终保持可见，不会被E5的输入影响啦。

备注：内容来源于stack exchange，提问作者beasle19