Question

vba listbox 赋值问题。

有一listbox1已读取excel数据。并可多选。。但我怎样可实现，选择多个以后的值输出到一文本框上。重点是：选中的内容全部显示在一个框上。
即：有以下数据。
A1
A2
A3
A4
A5
当我选中A1,A2 A5时，输出到单个文本框时应显示效果为：a1a2a5
求高人指点。谢谢。

Answer 1

应该是这样吧，先建一个窗体，一个listbox1,两个commandbutton，一个textbox1，代码如下：

Private Sub CommandButton1_Click()

    With ListBox1

        .Clear

For i = 3 To ActiveSheet.Range("A65536").End(xlUp).Row

        .AddItem Cells(i, 1)

    

Next i

    End With

End Sub

Private Sub CommandButton2_Click()

For i = 0 To ListBox1.ListCount - 1

    If ListBox1.Selected(i) Then

    TextBox1 = TextBox1 & ListBox1.List(i)

    End If

    

Next i

End Sub