Wie man ausgewählten Wert in mehrspaltigen listbox

Ich habe eine mehrspaltige listbox, in meiner userform und ich möchte alle Werte der Elemente, die in die ausgewählte Zeile in der listbox.

Hier ist mein userform: Wie man ausgewählten Wert in mehrspaltigen listbox

Genau wie auf dem Foto, ich möchte nur eine Zeile anwählen, dann werde ich klicken Sie auf die Schaltfläche Associer und ich konnte die Informationen in dieser Zeile. Ich kann gerade mal die erste Spalte, das CAN20168301436 ich möchte, um die Informationen aus der gesamten Zeile.
Wie kann ich es tun?
Hier ist mein button geklickt Veranstaltung:

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

InformationsquelleAutor Yiao Sun | 2016-08-31

können Sie diesen code verwenden

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

Würde der brave downvoter zeigen und erklären, so haben beide die Menschen wissen, warum sollten Sie nicht Folgen, thi beantworten und mir beibringen, wie es zu verbessern?

InformationsquelleAutor user3598756

9

Nicht brauchen, um in einer Schleife die gesamte Liste, um das ausgewählte Element Zeile, die Sie verwenden können, die ListIndex Eigenschaft. Dann können Sie die List(Row, Column) - Eigenschaft zum abrufen der Daten, wie in den Beispielen von @DragonSamu und @user3598756:
```
'***** Verify that a row is selected first
If ListBoxResultatFind.ListIndex > -1 And ListBoxResultatFind.Selected(ListBoxResultatFind.ListIndex) Then
    '***** Use the data - in my example only columns 2 & 3 are used
    MsgBox ListBoxResultatFind.List(ListBoxResultatFind.ListIndex, 1) & ":" & ListBoxResultatFind.List(ListBoxResultatFind.ListIndex, 2)
End If
```
haben Sie getestet? In meinem Excel-VBA-bis 2013 in der multi-Spalte ListBox ListIndex Eigentum zurückgeben würde 0 wenn keine Elemente ausgewählt sind, als wenn das erste Element wäre. Das ist, warum ich Durchlaufen Zeilen und überprüfen Selected Eigenschaft. Eine alternative wäre die Doppel-check für eine 0 ListIndex wie If .ListIndex = 0 and .Selected(0) or .ListIndex >0 Then aber das scheint auch unklar, für einen zweiten mal code-review
wie pro meine vorherigen Kommentar können Sie testen wollen, ist diese Lösung gegen eine mögliche keine Auswahl - Szenario
Keine Auswahl, gibt ListIndex = -1, das ist der Grund, warum ich zum testen ListIndex > -1. (Ich benutze Excel 2010, wo es funktioniert wie ein Charme!)
versuchen Sie, und deaktivieren Sie eine Reihe: die .ListIndex Wert bleibt als Letzte ausgewählt (und dann deaktiviert) Zeile noch ausgewählt ist, während .Selected(.ListIndex) (richtig) zurück False
OK, hast du einen Punkt - aktualisiert mein Vorbild! 🙂

InformationsquelleAutor Olle Sjögren
2

Mit einer einzelnen Spalte können Sie den Wert abrufen, wie unten:
```
Dim str as String
str = me.ListBox1.Value
```
Mit einem mehrspaltigen Sie können den Wert abrufen, wie diese:
```
Dim strCol1 as String
Dim strCol2 as String
Dim strCol3 as String
strCol1 = ListBox1.List(0, 1)
strCol2 = ListBox1.List(0, 2)
strCol3 = ListBox1.List(0, 3)
```
oder Sie können fügen Sie alle Daten in 1 String:
```
Dim strColumns as String
strColumns = ListBox1.List(0, 1) + " " + ListBox1.List(0, 2) + " " + ListBox1.List(0, 3)
```
Vielen Dank für Ihre Antwort, die ich getestet habe ,kann es nur bekommen CAN20168301436, kann aber nicht alle Informationen, dies ist ein multi-colonne listbox
wie viele Spalten?
Es hat 7 colonnes
siehe update

InformationsquelleAutor DragonSamu

Es ist ein 6column Listenfeld und die 3. Spalte wäre der Multiplikator daher das "(x)". Sie können auch die Liste neu anzuordnen, wie Sie es mögen.

Private Function selList() As String
Dim i As Long

For i =LBound(lstListBox1.List) To UBound(lstListBox1.List)
    If lstListBox1.Selected(i) Then
        selList = selList & lstListBox1.List(i) & " " & lstListBox1.List(i, 1) _
        & "(x" & lstListBox1.List(i, 3) & ")" & " " & lstListBox1.List(i, 2) & " " & lstListBox1.List(i, 4) & ", "
    End If
Next i

If selList= "" Then
    selList= ""
Else
    selList= Left(selList, Len(selList) - 2)
End If

MsgBox selList
End Function

InformationsquelleAutor Mark Vincent Manansala

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.