VBA - 列表框和數據

Question

我有一個名爲listbox1的列表框，它向我顯示了sheet1中的數據，但問題是它沒有向我顯示所有的數據，有時我有3000行數據，它顯示我anlo前50線，這是我使用的，如果有人可以幫助請代碼：

ListBox1.List = Sheets("Sheet1").Range("A1:F3000").Value 

Answer 1

，如果你需要從一列DATAS只有這樣，你會去：

ListBox1.List = Application.Transpose(Sheets("Sheet1").Range("A1:A3000")) '<== change "A"s in Range("A1:A3000") to wanted column index 

否則，如果要列出從數據更多列你必須這樣去：

Private Sub UserForm_Initialize() 

Dim Data As Variant 
... 
Data = Sheets("Sheet1").Range("A1:F3000") 
With UserForm1.ListBox1 '<== change it with actual UserForm and ListBox names 
    .ColumnCount = 2 
    .List = Data 
End With 

但你可以選擇一個或多個（最多ListBoxMultiSelect屬性設置）整個行，而不是單一的「細胞」。

Answer 2

嘗試將列表框的屬性更改爲您所需的範圍。然後改變ColumnCount至6

即：

爲了使對ColumnCount性態的RowSource動態，輸入端6和刪除RowSource屬性的範圍內，這個代碼添加到形式。

Private Sub UserForm_Initialize() 
    ListBox1.RowSource = Sheets("Sheet1").Range("A1:F3000").Address(external:=True) 
End Sub