列表框ListFillRange

Question

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

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

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

Answer 1

如果是“ 表单”列表框，请使用此列表框：

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

或与Range对象：

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

Answer 2

您将想要使用更多类似的东西：

Sheet1.ListBox1.ListFillRange = "A1:A10"

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

编辑v2：我看到，在这种情况下，需要进行强制转换（它们的工作方式与vb.NET不同），我认为这可以工作：

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