求助：如何获取VBA中动态添加的ComboBox的值（首次提问）

嘿，很高兴看到你已经搞定了动态加载问题和自动调整UserForm大小的部分，这可是个很棒的进展！关于获取这些动态生成的ComboBox的值，我有两个常用的方案，你可以根据自己的实现逻辑来选择：

方法一：遍历UserForm控件集合 #

如果你的动态ComboBox有统一的命名规则（比如cboQuestion1、cboQuestion2这类），直接遍历UserForm的所有控件，筛选出ComboBox类型的控件，再根据名称判断是否是你动态添加的，就能拿到对应的值了。

示例代码：

Public Sub FetchDynamicCboValues()
    Dim ctrl As Control
    Dim answerRow As Integer
    answerRow = 1 '对应工作表中存放答案的起始行
    
    '遍历UserForm上的所有控件
    For Each ctrl In Me.Controls
        '判断控件类型是否为ComboBox，且名称符合我们的命名规则
        If TypeName(ctrl) = "ComboBox" And Left(ctrl.Name, 11) = "cboQuestion" Then
            '将值写入工作表（这里假设Sheet1的第2列存答案）
            Sheet1.Cells(answerRow, 2).Value = ctrl.Value
            answerRow = answerRow + 1
        End If
    Next ctrl
    
    MsgBox "所有答案已保存！"
End Sub

方法二：用全局数组存储ComboBox对象 #

这种方法更直接，在动态创建ComboBox的时候，把每个对象存入一个全局数组，之后想要取值时直接遍历数组即可，不用再去筛选控件。

步骤1：声明全局数组 #

在VBA模块（不是UserForm代码窗口）的顶部声明一个ComboBox数组：

'模块级别全局变量，确保UserForm销毁前数组不会丢失
Dim dynamicComboBoxes() As ComboBox

步骤2：创建控件时存入数组 #

修改你现有的UserForm_Activate代码，在创建ComboBox时把对象加入数组：

Public Sub UserForm_Activate()
    Dim QuestionsCount As Integer
    Dim i As Integer
    
    '获取工作表中的问题数量（假设问题在Sheet1的A列）
    QuestionsCount = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    '重新定义数组大小，匹配问题数量
    ReDim dynamicComboBoxes(1 To QuestionsCount)
    
    For i = 1 To QuestionsCount
        '创建新的ComboBox控件
        Set dynamicComboBoxes(i) = Me.Controls.Add("Forms.ComboBox.1")
        
        '设置控件的位置、名称、选项等属性
        With dynamicComboBoxes(i)
            .Name = "cboQuestion" & i
            .Top = 25 + (i - 1) * 35 '垂直间距35像素排列
            .Left = 30
            .Width = 220
            '加载选项（假设选项在Sheet1的B-D列，对应每行问题）
            .List = Sheet1.Range("B" & i & ":D" & i).Value
        End With
    Next i
    
    '你的UserForm大小调整代码...
End Sub

步骤3：从数组中获取值 #

写一个获取值的子过程，直接遍历数组即可：

Public Sub GetCboValuesFromArray()
    Dim i As Integer
    
    For i = LBound(dynamicComboBoxes) To UBound(dynamicComboBoxes)
        '将值写入Sheet1的第5列（E列）
        Sheet1.Cells(i, 5).Value = dynamicComboBoxes(i).Value
    Next i
    
    MsgBox "答案已成功提取！"
End Sub

小提示 #

• 如果你用方法一，一定要确保命名规则统一，避免误取到其他静态添加的ComboBox的值；
• 方法二中的全局数组要放在模块里，不能放在UserForm代码窗口里，否则UserForm关闭后数组会被清空；
• 如果需要处理用户未选择选项的情况，可以在取值时判断ctrl.Value是否为空，避免写入空值。

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