将 excel table 中的数据显示到 excel sheet 中的列表框

Question

你好，我试图在 excel sheet 中填充我的列表框，但我很难在 VBA 中输入正确的代码。正如您在这张图片中看到的那样，标记的框是我的列表框。我在其他 sheet 中有数据 table，称为“Data Barang”（sheet2），我试图将数据 table 显示到列表框，当我双击时列表框中的数据，它会将选定的数据行拉到列表框上方的那些文本框中。列表框名称和 table 名称相同，即“DataBarang”。任何人都参考了哪些代码可以用于我的列表框？这是我试过的代码

Private Sub Workbook_Open()

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

End Sub

--------------------------------编辑-------- --------------------------

我已成功填充列表框，但似乎无法填充列标题。谁能帮我填补那些专栏标题？

这是我使用的代码

Sub loaddata()

Dim listdata As Object
Set listdata = Sheet1.DataBarang
Dim tabeldata As Range
Set tabeldata = Sheet2.Range("DataBarang")

With listdata
    .AutoLoad = True
    .ColumnHeads = True
    .ColumnCount = 14
    .List = tabeldata.CurrentRegion.Value
End With

End Sub

Answer 1

您不需要 select 范围 - 但必须将范围的地址作为字符串传递（阅读文档总是有帮助的：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

将 excel table 中的数据显示到 excel sheet 中的列表框

Show data from excel table to listbox in excel sheet

excel

vba

listbox