求助：基于单元格值控制另一工作表行隐藏/显示的VBA代码排查

嘿，作为VBA新手遇到这种代码跑不起来的情况太正常了！我帮你一步步排查问题，再给出能正常工作的解决方案～

首先明确你的核心需求：根据Summary工作表W20单元格的TRUE/FALSE值（随复选框勾选状态变化），控制Analysis工作表指定行的隐藏与显示。我们分两种常见的复选框类型来处理，再说说你之前可能踩的坑：

情况1：你用的是「表单控件复选框」（已链接到W20） #

这种复选框是通过单元格链接绑定到W20的，点击复选框时W20会自动切换TRUE/FALSE。我们需要监听W20的变化事件来触发行的隐藏/显示：

打开Summary工作表的代码模块（就是你右键工作表标签→查看代码的地方），替换成下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只响应W20单元格的变化
    If Not Intersect(Target, Me.Range("W20")) Is Nothing Then
        ' 先获取Analysis工作表对象，避免引用错误
        Dim analysisSheet As Worksheet
        Set analysisSheet = ThisWorkbook.Worksheets("Analysis")
        
        ' 把这里的"10:15"改成你需要控制的目标行号，单一行可写"5:5"
        Dim targetRows As Range
        Set targetRows = analysisSheet.Rows("10:15")
        
        ' 核心逻辑：W20为TRUE时显示行，FALSE时隐藏行
        ' 若要反向逻辑，去掉Not即可
        targetRows.Hidden = Not Me.Range("W20").Value
    End If
End Sub

情况2：你用的是「ActiveX控件复选框」 #

这种复选框可以直接绑定点击事件，不需要依赖W20单元格，代码更简洁：

同样在Summary的代码模块里，找到你的复选框对应的Click事件（比如默认叫CheckBox1_Click），写入：

Private Sub CheckBox1_Click()
    Dim analysisSheet As Worksheet
    Set analysisSheet = ThisWorkbook.Worksheets("Analysis")
    
    ' 替换成你的目标行号
    analysisSheet.Rows("10:15").Hidden = Not Me.CheckBox1.Value
End Sub

你之前代码失效的可能原因 #

1. 用错了触发事件：如果写的是普通子程序（比如Sub Test()），它不会自动触发，必须手动运行；而上面的Worksheet_Change或复选框Click事件是自动响应操作的
2. 工作表引用错误：如果代码里没明确指定Analysis工作表，默认会操作当前的Summary工作表，自然看不到预期效果
3. 宏未启用/文件格式不对：必须把文件保存为.xlsm（启用宏的工作簿），打开时要允许宏运行，否则代码根本不会执行
4. 逻辑搞反：比如把Hidden的赋值写反了，导致效果和预期相反，但看起来像代码没运行

调试小技巧 #

• 按Alt+F11打开VBA编辑器，在代码行左侧灰色区域点击加断点，操作复选框时会停在断点处，能确认代码是否在运行
• 手动修改W20单元格的值，看是否触发Worksheet_Change事件
• 检查左侧工程窗口，确保代码确实在Summary工作表的代码模块里，而非通用模块（比如模块1）

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