动态添加CheckBox至UserForm后，无法判断其勾选状态的问题

你猜的完全没错！问题就是出在动态添加的CheckBox上——设计时拖进窗体的控件会被VBA自动识别为窗体的成员，但运行时创建的CheckBox1，编译器在编译阶段根本不知道它的存在，直接写CheckBox1.Value肯定会触发“对象未找到”的错误。

下面给你两种实用的解决方案：

方法1：通过Controls集合直接访问（快速解决） #

直接借助窗体的Controls集合，用控件名称定位到动态创建的CheckBox，就能正常判断它的勾选状态了。甚至可以加个判断，避免控件未创建时的报错：

Private Sub CommandButton1_Click()
    ' 先确认控件存在，防止报错
    If UserForm1.Controls.Exists("CheckBox1") Then
        If UserForm1.Controls("CheckBox1").Value = False Then
            MsgBox "F"
        End If
    End If
End Sub

方法2：用WithEvents声明变量（更灵活） #

如果之后需要给这个动态CheckBox添加点击事件，或者想更方便地管理它，推荐用WithEvents声明一个类级别的变量来持有控件引用：

1. 在窗体代码模块的最顶部（所有过程外面）声明变量：

Dim WithEvents dynamicCheckBox As MSForms.CheckBox

2. 修改初始化过程，把动态创建的控件赋值给这个变量：

Private Sub UserForm_Initialize()
    Set dynamicCheckBox = UserForm1.Controls.Add("Forms.checkbox.1", "CheckBox1", True)
    ' 顺便设置下控件的标题和位置，方便查看
    dynamicCheckBox.Caption = "我是动态勾选框"
    dynamicCheckBox.Top = 30
    dynamicCheckBox.Left = 30
End Sub

3. 现在在按钮点击事件里，就能直接用这个变量访问状态了：

Private Sub CommandButton1_Click()
    If dynamicCheckBox.Value = False Then
        MsgBox "F"
    End If
End Sub

这种方法的好处是，你还能直接给dynamicCheckBox添加事件过程（比如右键菜单里的dynamicCheckBox_Click），实现更多交互逻辑。

核心原因再唠叨两句 #

动态创建的控件不会自动成为窗体的“成员变量”，VBA没法像识别设计时控件那样直接通过名称调用它。所以要么通过Controls集合按名称查找，要么用WithEvents变量把它“固定”成一个可识别的对象。

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