Excel VBA实现表格数据导入列表框并显示列标题及双击填充功能

问题根因 #

你遇到的列标题不显示问题是ActiveX列表框的固有特性：

• 只有使用ListFillRange绑定单元格区域的方式加载数据时，ColumnHeads = True设置才会生效
• 用List = 数组的方式手动赋值时，列表框不会识别和展示列标题
• 绑定ListFillRange时不需要包含表头行，列表框会自动读取绑定区域上方的第一行作为列标题

修正后加载数据代码 #

Sub loaddata()
    Dim listdata As MSForms.ListBox
    Set listdata = Sheet1.DataBarang
    Dim sourceTable As ListObject
    Set sourceTable = Sheet2.ListObjects("DataBarang") ' 读取命名超级表
    
    ' 兼容空表场景
    If sourceTable.DataBodyRange Is Nothing Then
        listdata.Clear
        MsgBox "当前数据表无数据可加载"
        Exit Sub
    End If
    
    With listdata
        .ColumnHeads = True
        .ColumnCount = sourceTable.ListColumns.Count ' 自动适配列数，无需写死14
        ' 绑定超级表的数据区域（不含表头），传入完整地址字符串
        .ListFillRange = sourceTable.DataBodyRange.Address(External:=True)
        ' 可按需设置列宽，示例：.ColumnWidths = "60;100;80;..."
    End With
End Sub

如果需要打开工作簿就自动加载数据，可在ThisWorkbook模块的Workbook_Open事件中调用上述过程：

Private Sub Workbook_Open()
    Call loaddata
End Sub

双击列表框填充文本框代码 #

在Sheet1的代码编辑界面，选中DataBarang列表框控件，添加DblClick事件，粘贴以下代码即可：

Private Sub DataBarang_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ' 未选中任何行时直接退出
    If Me.DataBarang.ListIndex = -1 Then Exit Sub
    
    ' 请根据你实际的文本框名称、对应列顺序修改以下内容
    ' 列表框列索引从0开始计数
    Me.TextBox1.Value = Me.DataBarang.List(Me.DataBarang.ListIndex, 0) ' 第1列
    Me.TextBox2.Value = Me.DataBarang.List(Me.DataBarang.ListIndex, 1) ' 第2列
    Me.TextBox3.Value = Me.DataBarang.List(Me.DataBarang.ListIndex, 2) ' 第3列
    Me.TextBox4.Value = Me.DataBarang.List(Me.DataBarang.ListIndex, 3) ' 第4列
    ' 剩余列按照上述规则按需补充即可
End Sub

注意事项 #

• 如果后续修改了数据表的列数，代码会自动适配，无需手动调整ColumnCount参数
• 如果使用的是表单控件而非ActiveX控件，需要调整对应属性调用方法

内容的提问来源于stack exchange，提问作者muntun