將excel表中的數據顯示到excel表中的列表框

Question

你好，我試圖在我的 excel 表中填充我的列表框，但我很難在 VBA 中輸入正確的代碼。 正如您在這張圖片中看到的，標記的框是我的列表框。 我在另一個名為“Data Barang”（sheet2）的工作表中有數據表，我嘗試將數據表顯示到列表框，當我雙擊列表框中的數據時，它會將選定的數據行拉到上面的那些文本框列表框。 列表框名稱和表名稱相同，即“DataBarang”。 任何人都可以參考哪些代碼適用於我的列表框？ 有我試過的代碼

Private Sub Workbook_Open()

With Sheet1.DataBarang
    .ColumnHeads = True
    .ColumnCount = 14
    .ListFillRange = Sheet2.ListObjects("DataBarang").Range.Select
End With

End Sub

Answer 1

您不需要選擇范圍 - 但必須將范圍的地址作為字符串傳遞（閱讀文檔總是有幫助的： https : //docs.microsoft.com/en-us/office/vba/api/ excel.controlformat.listfillrange

Private Sub Workbook_Open()
With Sheet1.DataBarang
    .ColumnHeads = True
    .ColumnCount = 14
    .ListFillRange = Sheet2.ListObjects("DataBarang").DataBodyRange.Address(False, False, xlA1, True)
End With

End Sub