Excel多单元格控制其他工作表行隐藏的VBA代码问题

要实现多个Sheet1单元格分别控制不同工作表指定行的隐藏/显示（输入"No"隐藏，"Yes"显示），且支持灵活扩展适配不同项目，我们可以用规则映射表替代硬编码逻辑，新增控制项只需修改映射规则，无需改动核心代码。

改进后的代码 #

将以下代码粘贴到Sheet1的代码模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义控制规则：每个元素为(控制单元格地址, 目标工作表名, 控制行范围)
    Dim controlRules As Variant
    controlRules = Array( _
        Array("$L$3", "Sheet3", "70:111"), _
        Array("$B$5", "Sheet2", "10:20"), _
        Array("$D$7", "Sheet4", "5:8,15:18") ' 支持不连续行范围，用逗号分隔
    )
    
    Dim rule As Variant
    Dim cell As Range
    Dim targetSheet As Worksheet
    Dim targetRows As String
    
    ' 关闭事件触发，避免循环执行
    Application.EnableEvents = False
    
    ' 遍历所有修改的单元格（处理批量粘贴场景）
    For Each cell In Target
        ' 匹配对应控制规则
        For Each rule In controlRules
            If cell.Address = rule(0) Then
                Set targetSheet = ThisWorkbook.Sheets(rule(1))
                targetRows = rule(2)
                
                ' 根据输入值设置行隐藏状态
                Select Case UCase(cell.Value)
                    Case "YES"
                        targetSheet.Range(targetRows).EntireRow.Hidden = False
                    Case "NO"
                        targetSheet.Range(targetRows).EntireRow.Hidden = True
                    Case Else
                        ' 输入非Yes/No时无操作，可按需添加提示逻辑
                End Select
                Exit For ' 匹配到规则后跳出循环
            End If
        Next rule
    Next cell
    
    ' 重新开启事件触发
    Application.EnableEvents = True
End Sub

代码关键说明 #

• 灵活扩展规则：controlRules数组是核心配置区，新增控制项只需添加一行Array("$X$10", "Sheet5", "30:35")格式的条目即可，完全适配不同项目的自定义需求。
• 多单元格兼容：通过For Each cell In Target循环，支持批量粘贴修改多个控制单元格的场景，不会遗漏任何操作。
• 事件防护：Application.EnableEvents = False避免修改行时再次触发Worksheet_Change事件，防止代码循环执行导致卡顿或报错。
• 不连续行支持：控制行范围可输入类似"5:8,15:18"的格式，同时控制多段不连续的行。

使用注意事项 #

1. 输入的"Yes/No"不区分大小写，UCase转换后能匹配"yes""YES""no""NO"等所有大小写组合。
2. 确保目标工作表名称拼写准确，否则会触发工作表不存在的报错。
3. 若需要对非Yes/No输入做提示，可在Case Else分支添加MsgBox提示逻辑。

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