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

nnsea

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

或者属性ColumnCount 设成4