列表框 ListFillRange答案

【问题标题】：Listbox ListFillRange列表框 ListFillRange
【发布时间】：2014-03-31 20:23:26
【问题描述】：

我在工作表上插入了一个表单控件列表框。由于某种原因，这会出错。

Sheet1.Shapes("ListBox1").ListFillRange = "A1:A10"

我想用范围填充列表框，但出现运行时错误“438”，对象不支持此属性或方法。我在这里错过了什么？

【问题讨论】：

【解决方案1】：

如果是Form列表框，就用这个：

Worksheets("Sheet1").Shapes("ListBox1").ControlFormat.ListFillRange = "A1:A10"

或Range 对象：

With Worksheets("Sheet1")
    .Shapes("ListBox1").ControlFormat.List = .Range("A1:A10").Value
End With

【讨论】：

我不得不将 .List 更改为 .ListFillRange 并且它在 simoco 中起作用！谢谢。那里没有看到 .ControlFormat 方法，那是它被隐藏的地方。

【解决方案2】：

你会想要使用更多类似的东西：

Sheet1.ListBox1.ListFillRange = "A1:A10"

您试图找到一个名为“ListBox1”的Shape 对象，然后运行Shape 对象没有的方法。

Edit v2：我明白了，在这种情况下需要演员（并且它们的工作方式与 vb.NET 不同），我认为这可以工作：

Dim myListBox as ListBox
SET myListBox = Sheet1.Shapes("ListBox1")
myListBox.ListFillRange = "A1:A10"

【讨论】：