我可以更改 Excel VBA combobox.list 范围吗？

Question

Excel VBA 中是否有任何选项允许我更改 combobox 的范围？ 查看示例

我想更改 Variant/Variant 中的数字 5（0 到 3、0 到 5）。

Combobox 填充了这个代码：

Private Sub UserForm_Activate()

Dim x As Range
    With Worksheets("Distributori")
      Set x = .Range("A2", .Range("F1000").End(xlUp))
End With

ComboBox1.RowSource = "Distributori!" & x.Address
ComboBox1.ListIndex = 0
Me.ComboBox1.TextColumn = 2

结束子

Answer 1

请尝试下一个（改编的）代码：

Dim x As Range, arrList As Variant
    With Worksheets("Distributori")
      Set x = .Range("A2", .Range("F1000").End(xlUp))
    End With
    arrList = x.Value
    With ComboBox1
        .ColumnCount = 6
        .list = arrList
        .ListIndex = 0
        .TextColumn = 2
    End With