VBA循环中动态指定ComboBox对象时出现对象未设置错误的求助

嗨，看了你遇到的问题，我完全明白你想实现的功能——根据用户输入的数字，给多个ComboBox动态添加选项对吧？你那两种写法出错的原因其实都是没有正确获取到ComboBox的对象实例，下面我给你拆解问题并给出解决办法：

为什么你的两种写法会报错？ #

1. 第一种写法的问题：
   你定义了Dim CB as ComboBox，然后尝试CB = "ComboBox" & I——这里你只是把字符串形式的控件名赋值给了对象变量，但CB是ComboBox类型的对象，它需要指向实际的控件实例，而不是一个字符串。这就好比你告诉程序“我要找叫XXX的控件”，但没真的去找到这个控件并绑定到变量上，所以会报“对象变量未设置”的错误。

2. 第二种写法的问题：
   With ComboBox & Variable这种写法是语法错误，With语句后面必须直接跟一个对象，不能用字符串拼接的方式来生成控件名，VBA没法识别这种写法对应的控件对象。

正确的实现方法 #

核心思路是：通过**控件集合（Controls）**来根据动态生成的控件名获取对应的ComboBox对象，确保变量真正指向了表单上的实际控件。

假设你的ComboBox都在同一个UserForm上，这里给你两种可行的写法：

写法1：通过Controls集合获取对象并循环

Dim CB As ComboBox
Dim Variable_From_User As Integer
Dim I As Integer
Dim Value_From_Sheet As String ' 假设是字符串类型，根据实际情况调整

' 获取用户输入的数字（这里要加个输入验证，确保是1-5之间的数）
Variable_From_User = Val(TextBox1.Value)
If Variable_From_User < 1 Or Variable_From_User > 5 Then
    MsgBox "请输入1-5之间的数字！"
    Exit Sub
End If

' 循环获取对应的ComboBox并添加项
For I = Variable_From_User To 5
    ' 通过Controls集合获取名为"ComboBox"&I的控件
    Set CB = Me.Controls("ComboBox" & I)
    ' 确保获取到的是ComboBox类型（避免控件名错误导致的问题）
    If TypeName(CB) = "ComboBox" Then
        CB.AddItem Value_From_Sheet ' 替换成你从工作表取的值
    End If
Next I

写法2：在With语句中直接使用Controls集合

Dim Variable As Integer
Dim n As Integer

Variable = 2 ' 这里替换成你的用户输入变量

For n = 0 To 5
    ' 直接通过Controls获取控件并使用With
    With Me.Controls("ComboBox" & Variable)
        If TypeName(.Object) = "ComboBox" Then
            .AddItem n
        End If
    End With
Next n

关键注意点 #

• 一定要用Set关键字来给对象变量赋值（比如Set CB = Me.Controls(...)），普通的赋值号=只能给非对象变量用。
• 最好加上控件类型的判断，避免因为控件名拼写错误或者不存在导致新的报错。
• 如果你的ComboBox不在UserForm上，而是在工作表里，那要把Me.Controls换成Sheet1.Controls（这里的Sheet1换成你的工作表对象）。

备注：内容来源于stack exchange，提问作者Junior Reis