Excel VBA：未关联单元格的复选框控制行显隐问题

错误原因 #

你代码里的sh.OLEFormat.Object.TopLeftCell.Row.EntireRow.Hidden = True之所以报错，核心问题是：
TopLeftCell.Row返回的是行号（整数数值），整数类型没有EntireRow属性。正确的做法是直接通过TopLeftCell获取复选框所在的单元格对象，再调用该单元格的EntireRow属性。

修正后的完整代码 #

Sub ToggleRowsByCheckbox()
    Dim sh As Shape
    Dim targetCheckbox As Object
    
    For Each sh In Sheets(1).Shapes
        ' 先判断是否是OLE控件类型，避免非复选框形状报错
        If sh.Type = msoOLEControlObject Then
            Set targetCheckbox = sh.OLEFormat.Object
            ' 判断是否是复选框
            If TypeOf targetCheckbox Is MSForms.CheckBox Then
                ' 根据复选框状态切换行的隐藏/显示
                ' -4146是未勾选(xlOff)，1是勾选(xlOn)，用常量可读性更强
                targetCheckbox.TopLeftCell.EntireRow.Hidden = (targetCheckbox.Value = -4146)
            End If
        End If
    Next sh
End Sub

补充说明 #

• 用MSForms.CheckBox代替模糊的CheckBox，避免和其他类型复选框混淆；
• 加入sh.Type = msoOLEControlObject判断，防止循环到非OLE控件形状时触发错误；
• 直接用(targetCheckbox.Value = -4146)作为隐藏条件，一行代码完成状态切换，更简洁；
• 如果需要实现“勾选显示行/未勾选隐藏行”的反向逻辑，只需把判断条件改成(targetCheckbox.Value = 1)即可。

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