基于最后使用的Form Control按条件隐藏/显示指定行的VBA需求问询

需求：
当最后操作的Form Control（复选框勾选为TRUE，或组合框值为Yes，示例对应C3、C4单元格）处于选中状态时，显示该控件所在行下一行至表尾范围内，B列内容与控件相邻A列单元格（示例A3、A4）字符串相同的行；未选中时重新隐藏这些行。

因需向Mac用户分发表格，使用Form Control，希望借助Application.Caller避免为每个控件手动创建宏（表格含大量复选框和组合框），现有零散代码无法整合成完整可用方案：

现有零散代码 #

ActiveX控件行隐藏代码（需转换为Form Control兼容） #

Private Sub CheckBox1_Click()
    Rows("10:25").EntireRow.Hidden = Not CheckBox1
End Sub
Private Sub ComboBox3_Change()
    Rows("45:56").EntireRow.Hidden = ComboBox3 <> "Yes"
End Sub

获取当前操作控件所在单元格的代码片段 #

Set This = ActiveSheet.Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address)

以下宏可绑定到所有Form Control复选框和组合框，自动识别当前操作的控件，完成需求中的行显示/隐藏逻辑：

Sub ToggleRowsByControl()
    Dim ctrlShape As Shape
    Dim ctrlCell As Range
    Dim targetText As String
    Dim startRow As Long
    Dim lastRow As Long
    Dim i As Long
    Dim isActive As Boolean
    
    ' 获取当前触发宏的控件
    Set ctrlShape = ActiveSheet.Shapes(Application.Caller)
    Set ctrlCell = ctrlShape.TopLeftCell
    
    ' 获取控件相邻A列的目标匹配文本
    targetText = ctrlCell.Offset(0, -1).Value
    If targetText = "" Then Exit Sub ' 若A列无匹配文本，直接退出
    
    ' 确定处理范围：控件行的下一行到B列最后有数据的行
    startRow = ctrlCell.Row + 1
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
    If startRow > lastRow Then Exit Sub ' 无需要处理的行，直接退出
    
    ' 判断控件是否处于激活状态
    Select Case ctrlShape.Type
        Case msoFormControlCheckBox
            isActive = (ctrlShape.ControlFormat.Value = xlOn) ' 复选框勾选为激活
        Case msoFormControlDropdown
            isActive = (ctrlShape.ControlFormat.Value = "Yes") ' 组合框选"Yes"为激活
        Case Else
            Exit Sub ' 非目标控件类型，直接退出
    End Select
    
    ' 批量设置行显示/隐藏，关闭屏幕更新提升效率
    Application.ScreenUpdating = False
    For i = startRow To lastRow
        If ActiveSheet.Cells(i, "B").Value = targetText Then
            ActiveSheet.Rows(i).EntireRow.Hidden = Not isActive
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

使用步骤 #

• 绑定宏：右键点击每个Form Control复选框/组合框 → 选择「指定宏」 → 选中ToggleRowsByControl宏 → 确定。
• 兼容性：完全适配Mac系统的Excel Form Control，无需为每个控件单独编写宏。
• 核心逻辑：
  • 通过Application.Caller自动定位当前操作的控件
  • 读取控件左侧A列的匹配字符串
  • 根据控件类型判断激活状态
  • 遍历目标行范围，匹配B列文本后设置行的可见性

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