excel - 无法设置列表属性。无效的属性数组索引 - 组合框问题

Question

我知道有几个问题具有相同的错误代码，但似乎没有一个答案可以转移到我的代码中。

我在 Excel 中的用户窗体上有一个组合框，我想从工作簿中的命名范围填充它。在

sub userform_initialize()    
Range("rngDept").Activate
Me.ComboBox1.List = Range("rngDept")

其中 rngDept 是范围的名称。第一行成功选择了我想要的范围，但它不会将这些值加载到组合框中。我上周进行了这项工作，但忘记了 ThisWorkbook.Close savechanges:=False 已设置。我正在使用完全相同的方法，所以我不知道为什么它现在不起作用。

提前致谢。

标签： excelvbacomboboxuserformnamed-ranges

Answer 1

我从另一个有效的网站上清除了这段代码：

Private Sub UserForm_Initialize()
'Populate Color combo box.
Dim rngColor As Range
Dim ws As Worksheet
Set ws = Worksheets("LookupLists")
For Each rngColor In ws.Range("ColorList")
Me.cboColor.AddItem rngColor.Value
Next rngColor
End Sub

谢谢。