listbox多选数据按顺序填充单元格

aksufyy

求助：我想实现以下功能：1、复合框数据源设定为基础数据工作表，分公司列；2、listbox可以多选数据行，然后点击确定后，将多选的数据按照选择的顺序填充到录入模版工作表的B列。

3190496160

Private Sub CommandButton1_Click()
Dim br()
With ListBox1
    ReDim br(1 To .ListCount - 1, 1 To 3)
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            n = n + 1
            br(n, 1) = ComboBox1.Text
            br(n, 2) = .List(i, 0)
            br(n, 3) = .List(i, 1)
        End If
    Next i
End With
If n = "" Then MsgBox "请先勾选数据": Exit Sub
r = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(r, 1).Resize(n, 3) = br
            
End Sub

3190496160

Private Sub UserForm_Initialize()
    arr = Sheet3.Range("A2:c" & Sheet3.Range("A" & Rows.Count).End(xlUp).Row)
    brr = Sheet3.Range("c2:c" & Sheet3.Range("c" & Rows.Count).End(xlUp).Row)
    With ListBox1
        .Font.Size = 12
        .ForeColor = vbBlue
        .ColumnCount = 3
        .ColumnWidths = "100;120;100"
        .List = arr '一次性赋值给Listbox控件。不能先AddItem，否则出错
        .AddItem , 0 '在第一行之前添加标题
        For j = 1 To 3: .List(0, j - 1) = Sheet3.Cells(1, j): Next
        .TopIndex = 0
    End With
    ComboBox1.List = brr
End Sub

3190496160

录入模板 V2.rar (114.76 KB, 下载次数: 9)

2020-12-5 11:49 上传

点击文件名下载附件

aksufyy

3190496160 发表于 2020-12-5 11:50

太感谢了，非常感谢！