vba - 从行数组填充列表框

Question

谁能解释一下我的代码有什么问题吗？我正在尝试在行数组上填充列表框。我收到运行时错误 438。对象不支持此属性或方法，但不清楚我编码错误。

Private Sub ListBox1_Click()
Dim LastRow As Long

With Sheets("TempList")
    LastRow = .Range("A" & Rows.Count).End(xlUp).Row
End With

Sheets("tblSurveyMatches").ListBox1.RowSource = Sheets("TempList").Range("A2" & LastRow)

End Sub

Answer 1

只要这是工作表上的 ActiveX 控件，就可以使用，您需要使用 ListFillRange 而不是 RowSource。

Sheets("tblSurveyMatches").ListBox1.ListFillRange= Sheets("TempList").Name & "!" & Range("A2:A" & LastRow).Address

请注意，通常将范围限定为工作表是最佳实践，但在本例中，由于我们需要的只是一个地址字符串，因此它在这里并不那么重要.