在excel vba中填充列表框

Question

我尝试使用范围（列）中的值填充excel中的列表框。我正在使用关于这个主题的教程视频的基本确切的代码，但我的工作没有。

代码：

Private Sub PopList()

   MTools.List = SheetDATA.Range("A2", SheetDATA.Range("A2").End(xlDown)).Value

End Sub

“MTools”是列表框的名称，“SheetDATA”是工作表的（代码）名称。

没有错误信息，只是没有任何反应..

Answer 1

当您将列表框声明为变量时，它可以工作：

Sub TestMe()

    Dim lb As MSForms.ListBox
    Set lb = Worksheets(1).ListBox1
    lb.List = Worksheets(1).Range("A2:A5").Value2

End Sub