vba - 如何获取多列列表框中选定的值

Question

我的用户表单中有一个多列列表框，我想获取列表框中所选行中元素的所有值。

这是我的用户表单:

就像照片中一样，我想选择一行，然后单击按钮Associer，我就可以获得这一行的信息。我只能获取第一列 CAN20168301436 我想获取整行的信息。
我该怎么做？
这是我的按钮点击事件:

Private Sub CommandButton3_Click()
   a = ListBoxResultatFind.Text
End Sub

Answer 1

您可以使用此代码

Private Sub CommandButton3_Click()
    Dim strng As String
    Dim lCol As Long, lRow As Long

    With Me.ListBox1 '<--| refer to your listbox: change "ListBox1" with your actual listbox name
        For lRow = 0 To .ListCount - 1 '<--| loop through listbox rows
            If .selected(lRow) Then '<--| if current row selected
                For lCol = 0 To .ColumnCount - 1 '<--| loop through listbox columns
                    strng = strng & .List(lRow, lCol) & " | " '<--| build your output string
                Next lCol
                MsgBox "you selected" & vbCrLf & Left(strng, (Len(strng) - 1)) '<--| show output string (after removing its last character ("|"))
                Exit For '<-_| exit loop
            End If
        Next lRow
    End With
End Sub