首页 › 实战技术 › 用户窗体列表框取数四列显示VBA

nnsea 发表于 2023-11-19 08:25:11

用户窗体列表框取数四列显示VBA

Private Sub UserForm_Initialize()
   
    Dim ws As Worksheet
    Dim rng As Range
      
    ' 设置工作表和范围
    Set ws = ThisWorkbook.Sheets("数据") '改为你的工作表名
    Set rng = ws.Range("A1:D10") '设置范围
      
    ' 将范围的数据添加到列表框
    ListBox1.List = rng.Value
      
    ' 设置列表框的多列属性
    With ListBox1
      .ColumnHeads = FLASE
      .ColumnCount = 4
    End With

End Sub

nnsea 发表于 2023-11-19 08:31:14

或者属性ColumnCount 设成4

查看完整版本: 用户窗体列表框取数四列显示VBA