列表框ListFillRange

Question

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

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

我想在列表框中填入范围，但我收到运行时错误＆＃39; 438＆＃39;，对象不支持此属性或方法。我在这里缺少什么？

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"