VBA遍历同一工作表中多个ComboBox对象的正确实现方式及报错原因分析

我来帮你拆解这两种方法的问题，再给出可行的实现方式：

第一种方法为什么报错？ #

你写的For Each obj In Array(sht.ComboBox1, sht.ComboBox2)触发错误424，主要有两个可能的原因：

• 控件类型不匹配：如果你的ComboBox是表单控件（不是ActiveX控件），sht.ComboBox1这种写法是无效的——表单控件属于工作表的Shapes集合，不能直接通过工作表对象的属性访问，所以Array里的元素其实是Nothing，循环时自然会提示"要求对象"。
• 数组类型兼容问题：即使是ActiveX控件，Array()创建的是Variant类型数组，直接用ComboBox类型的变量遍历，VBA在类型转换时可能出现异常，尤其是当控件需要通过OLEObjects间接访问时。

第二种方法为什么报错？ #

错误91的问题很明确：

• 对象赋值缺少Set关键字：VBA中给对象变量赋值必须用Set，你直接写obj = ...会导致对象变量从未被初始化，触发"未设置对象变量"的错误。
• 访问路径错误：工作表对象本身并没有名为ComboBox1的属性，这个名称是控件在OLEObjects（ActiveX）或Shapes（表单）集合中的标识，直接用CallByName访问工作表对象自然找不到对应的控件。

正确实现方式 #

根据你的控件类型（ActiveX/表单），选择对应的写法：

如果你用的是ActiveX控件的ComboBox

方法1：直接遍历控件对象数组

确保数组里是有效的ComboBox对象，用MSForms.ComboBox或Object类型遍历：

Dim obj As MSForms.ComboBox
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("你的工作表名") ' 替换成实际表名

For Each obj In Array(sht.ComboBox1, sht.ComboBox2)
    ' 这里写你的操作，比如打印控件值
    Debug.Print obj.Name & ": " & obj.Value
Next obj

如果上面的代码还是报错，说明控件需要通过OLEObjects集合访问，改用：

Dim obj As MSForms.ComboBox
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("你的工作表名")

For Each obj In Array( _
    sht.OLEObjects("ComboBox1").Object, _
    sht.OLEObjects("ComboBox2").Object _
)
    obj.Clear ' 示例操作：清空下拉列表
Next obj

方法2：通过控件名称遍历（修正你的第二种思路）

补上Set关键字，同时从正确的集合中获取控件：

Dim s As Variant
Dim obj As MSForms.ComboBox
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("你的工作表名")

For Each s In Array("ComboBox1", "ComboBox2")
    Set obj = sht.OLEObjects(s).Object ' 从OLEObjects获取控件对象
    obj.Value = "默认值" ' 示例操作：设置默认值
Next s

如果你用的是表单控件的ComboBox

表单控件需要通过Shapes集合的ControlFormat属性访问：

Dim s As Variant
Dim cbCtrl As ControlFormat
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("你的工作表名")

For Each s In Array("ComboBox1", "ComboBox2")
    Set cbCtrl = sht.Shapes(s).ControlFormat
    ' 示例操作：获取选中的列表项
    Debug.Print cbCtrl.List(cbCtrl.ListIndex)
Next s

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