如何使用组合框名称为整数"i"编制索引，以使用范围内的值填充组合框？

Question

在我正在构建的模型中，我目前有大量的用户窗体填充了将值填充到组合框中的代码。在每种情况下，要添加的项目都是来自选定单元格的值。我需要它是可变的，因为它将取决于我导入到模型中的客户端数据。以下是我当前拥有的代码示例：

ComboBox1.value = ActiveSheet.Range("A1").value
ComboBox2.value = ActiveSheet.Range("B1").value
ComboBox3.value = ActiveSheet.Range("C1").value
ComboBox4.value = ActiveSheet.Range("D1").value
Combobox5.value = ActiveSheet.Range("E1").value
... (continues down to n = 50)

我希望通过索引组合框来更有效地做到这一点。这是我尝试过的：

Dim i as integer
For i = 1 to 50
ComboBox&i.value = ActiveSheet.Cells(1, i).Value
Next

这不起作用，我不确定如何正确组合"i"和"ComboBox"。

Answer 1

尝试如下循环

Dim ct As MSForms.Control
For Each ct In UserForm1.Controls
If TypeName(ct) = "ComboBox" Then
ct.Value = ActiveSheet.Cells(1, Val(Replace(ct.Name, "ComboBox", ""))).Value
End If
Next ct