如何获取Excel VBA用户窗体中控件所属的框架名称

刚好做过类似的需求！要拿到动态添加的Checkbox所属的Frame名称，核心就是利用控件的**Parent属性**——它直接指向控件所在的容器（也就是你的Frame1或Frame2），只要读取Parent.Name就能得到框架的名字了。下面给你两种常用的实现方式：

1. 在控件交互时获取（比如点击Checkbox时） #

因为你是动态添加的Checkbox，没法直接在UserForm模块里写它的点击事件，这时候需要用类模块来绑定事件：

步骤1：创建类模块

1. 打开VBA编辑器，右键插入「类模块」，命名为clsDynamicCB
2. 在类模块里写以下代码：

Public WithEvents cb As MSForms.CheckBox

Private Sub cb_Click()
    ' 点击时弹出所属框架名称
    MsgBox $"这个Checkbox属于：{cb.Parent.Name}"
    ' 或者把值存到变量里后续使用
    ' Dim frameName As String
    ' frameName = cb.Parent.Name
End Sub

步骤2：修改你的控件添加代码

在UserForm模块里，先声明一个集合来保存类实例（防止类对象被自动销毁），然后修改enterNewTextbox过程：

' 在UserForm模块顶部声明集合
Private colCBInstances As New Collection

Private Sub enterNewTextbox(number As Long, nameAdd As String, side As String)
    Dim boxTop As Long
    Dim nameCB As String
    Dim checkBox As MSForms.CheckBox
    Dim cbInstance As clsDynamicCB

    boxTop = 10 + (number * 18) - 18
    nameCB = side & number & "CB"

    ' 添加Checkbox到对应Frame
    If side = "Left" Then
        Set checkBox = Frame1.Controls.Add("Forms.CheckBox.1", nameCB)
    Else
        Set checkBox = Frame2.Controls.Add("Forms.CheckBox.1", nameCB)
    End If

    ' 设置Checkbox的位置和标题
    checkBox.Top = boxTop
    checkBox.Left = 10
    checkBox.Caption = nameAdd

    ' 绑定类模块的事件
    Set cbInstance = New clsDynamicCB
    Set cbInstance.cb = checkBox
    colCBInstances.Add cbInstance
End Sub

2. 批量遍历控件获取 #

如果只是想一次性获取所有Checkbox的所属框架，可以遍历UserForm里的控件：

Private Sub ListAllCheckboxFrames()
    Dim ctl As Control
    Dim targetFrameName As String

    For Each ctl In Me.Controls
        ' 只处理Checkbox，且父容器是Frame的情况
        If TypeName(ctl) = "CheckBox" And TypeName(ctl.Parent) = "Frame" Then
            targetFrameName = ctl.Parent.Name
            ' 输出到立即窗口查看
            Debug.Print $"Checkbox {ctl.Name} → 所属框架：{targetFrameName}"
        End If
    Next ctl
End Sub

小提示 #

• 如果你不确定控件的父容器类型，可以用TypeName(ctl.Parent)来判断，避免把UserForm本身当成Frame
• 动态控件的事件绑定一定要用类模块+集合的方式，不然控件创建后事件会失效

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