Wie kann ich die return-multi-select-listbox-Werte in einem Satz mit Word-VBA?

Habe ich einen multi-select-listbox auf einer userform. Es gibt 9 items in die listbox. Wie kann ich sammeln die ausgewählten Elemente in einem Satz?

Die listbox enthält die Gründe für die Rücksendung einen Scheck. Die Elemente in der listbox sind idenfiers oder Platzhalter für eine längere Zeichenfolge, so dass die Auswahl "unsigned", schafft der string zurückgegeben wird, "die Prüfung wurde nicht signiert".

Der Benutzer kann wählen Sie mehrere Gründe, so wird abhängig von der Auswahl, ich brauche Satzbau, dass Formate wie z.B.: "x, y, und z" ODER "y" und "z" ODER "z". (ex: "der Scheck ist nicht unterschrieben, die Prüfung ist post-datiert, und der check ist ein Dritte-Partei-check.")

Scheint es, als ob ein array muss erstellt werden, aus der Selektionen die Selektionen gezählt, dann eine "Wenn, dann" - Anweisung zu erstellen den Satz, aber da bin ich überfragt.
Ich kann Sie zählen, die ausgewählten Elemente habe, kann ich den Satz, wenn nur 1 Element ausgewählt ist, aber der zusammengesetzte Satz stümpfe mich.

Dieser code verwendet ein Wörterbuch, um die ausgewählten Elemente, spart zu dimensionieren arrays. exceldevelopmentplatform.blogspot.com/2018/03/...

InformationsquelleAutor JFrench | 2013-10-23

11

Habe ich diese Funktion gibt ein array der ausgewählten Elemente aus einem listbox. Ich habe aktualisiert und aus meiner ursprünglichen Antwort, um wieder eine durch Trennzeichen getrennte Zeichenfolge anstelle eines Arrays von ausgewählten Elementen:
```
Public Function GetSelectedItems(lBox As MSForms.ListBox) As String
'returns an array of selected items in a ListBox
Dim tmpArray() As Variant
Dim i As Integer
Dim selCount As Integer
    selCount = -1
    '## Iterate over each item in the ListBox control:
    For i = 0 To lBox.ListCount - 1
        '## Check to see if this item is selected:
        If lBox.Selected(i) = True Then
            '## If this item is selected, then add it to the array
            selCount = selCount + 1
            ReDim Preserve tmpArray(selCount)
            tmpArray(selCount) = lBox.List(i)
        End If
    Next

    If selCount = -1 Then
        '## If no items were selected, return an empty string
        GetSelectedItems = "" ' or "No items selected", etc.
    Else:
        '## Otherwise, return the array of items as a string,
        '   delimited by commas
        GetSelectedItems = Join(tmpArray, ", ")
    End If
End Function
```
Rufen Sie diese durch die Zuweisung zu einem array:
```
Dim mySentence as String
mySentence = GetSelectedItems(MyUserForm.MyListBox)
```
Ab diesem Punkt, können Sie einfach ersetzen Sie die letzten Komma mit einem "und" und Sie sollten alle gesetzt.
- Während ich bereits erwähnt in einem Kommentar, dass diese Lösung arbeitete, vernachlässigte ich hinzufügen, dass die überprüfung der Antwort. Ich habe den verwendeten Versionen dieser Lösung mehrmals seit diesem post und es ist schon eine tolle Ergänzung zu meinem code-set. Danke, wieder!
- cheers, bin froh, dass ich helfen konnte!
- Ich bekomme eine Fehlermeldung, dass MSForms.ListBox ist eine Benutzer-definierte Typ
- Sie müssen entweder zu aktivieren Verweis auf die Microsoft Forms library, oder ändern, die Erklärung zu lBox As Object.
- Ich dachte, das könnte der Fall sein, aber da bin ich in Access nicht es scheinen, wie sinnvoll es ist, aber es zu verändern lBox As Object funktioniert! Danke!
- MSForms ist nicht in der Liste der Referenz-Bibliothek, aber Sie können finden Sie in der Referenzen-Liste, indem Sie auf den Button "Durchsuchen...": es heißt "FM20.dll"
- Es heißt "Microsoft Forms 2.0 Object Library" in der Liste der Verweise (Office 2010) oder " ja " können Sie suchen Sie die entsprechende .DLL statt. Cheers.
- Wunderbar! Ich habe die lBox As MSForms.ListBox zu lBox As Object wie vorgeschlagen zu vermeiden, die fehlende Bibliothek Fehler, aber das musste ich auch ändern tmpArray(selCount) = lBox.List(i) zu tmpArray(selCount) = lBox.ItemData(i), wie ich war immer eine ungültige Eigenschaft, die Fehler in dieser Zeile. Ansonsten funktioniert wunderbar! Das hat es für mich arbeiten, auf Access 2010.
InformationsquelleAutor David Zemens
0

Diese ist sehr basic und ich nur schnell warf Sie zusammen, aber für das, was Sie zu tun versuchen:
```
Private Sub ListBox1_Change()

    If ListBox1.Selected(0) = True Then
        msg1 = ListBox1.List(0)
    End If

    If ListBox1.Selected(1) = True Then
        msg2 = ListBox1.List(1)
    End If

    If ListBox1.Selected(2) = True Then
        msg3 = ListBox1.List(2)
    End If

    MsgBox msg1 & ", " & msg2 & ", " & msg3

End Sub
```
- Was ist, wenn es eine variable Anzahl von Elementen in der listbox? Dieser nur Art arbeitet, wenn es genau 3 Elemente. Wenn es weniger als 3 Elemente, es werden Fehler 9 Subscript out of Range. Wenn es mehr als 3 Elemente, Bedarf es der zusätzlichen, Variablen-Deklaration, - Verkettung, bedingte Anweisung, die für jeden potenziellen listbox-item, etc. Außerdem konnte die Ausbeute hässlich Zeichenfolgen wie , , z oder , y, .
- Wie ich bereits erwähnt habe, das war ein wirklich schnelles und einfaches Beispiel, dass ich gerade zusammen. Die Frage war sehr spezifisch auf 9 Elemente der Liste, und es ist sehr gut möglich, dass das Element, das in der Liste ausgewählte box zurückgeben muss, eine völlig andere Zeichenfolge zusammen. Zum Beispiel, wenn das Listenelement, sagt "NSF", und der Satz zurückgegeben werden muss, zu sagen: "der Scheck zurückgegeben wurde, für die nicht genügend Mittel", die es klingt wie das möglich sein kann, und dass diese Person ist das schreiben einer mail merge senden Sie die Briefe hin, für die wieder Kontrollen. Nur Spekulation. Wie auch immer, ich mag deine Lösung, es ist eine gute Funktion.
- Ich denke, es kann ein wenig viel für die user zu verstehen, je nach skill-level, so wird vielleicht ein Zusammenbruch wäre gut. Es klingt wie der Fragesteller ist ziemlich neu in diesem, und natürlich versuchen zu lernen, das ist toll, aber er/Sie müssen ein bisschen mehr detaillierte und beschreibende Antwort. Eine weitere option anstelle eines Arrays könnte eine Sammlung, die ich erinnere mich lieber mit arrays in vba. Ich erinnere mich irritiert mit, dass Sie erneut die dimension des Arrays um die genaue Größe des Arrays. Ich habe selten arbeiten mit vba mehr und ich bin ein wenig eingerostet.
- Ich habe ein paar mehr Kommentare zu meinem code und überarbeitet, um die Rückkehr einer durch Trennzeichen getrennte Zeichenfolge anstelle eines Arrays.
- Ich habe aus dem Büro, so dass ich entschuldige mich für nicht früher reagiert. Ich bin sicherlich ein Neuling, Programmierer. Ich habe versucht beide Antworten und die zweite version, die David zur Verfügung gestellt am besten funktioniert. Durch ändern nur das Letzte Komma in der Join-Anweisung " und ", wechselte alle Trennzeichen. Gibt es eine Möglichkeit zu sagen: Wenn Count = 1 ist, verwenden Sie das ausgewählte Element; ElseIf Anzahl = 2, verwenden Sie "und" für das Trennzeichen; Elseif Anzahl = 3 verwenden "ausgewählt item1" & ", " & "ausgewählte item2" & "und" & "selecteditem3"? Ich war mit eine popup-Fehlermeldung, die für mehr als 3 ausgewählten Elemente. Danke Euch allen für Eure Hilfe!!!
InformationsquelleAutor Howard Renollet

Vergessen die REDim array-Konzept - kann manchmal verwirrend erhalten. Eine einfache Möglichkeit, zu sammeln multiselect-Auswahl ist folgende

Sub SelectMulti()
picklist1 = ""
For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) = True Then
      Debug.Print i    ' optional 
      If picklist1 = "" Then
         picklist1 = ListBox1.List(i)
       Else
         picklist2 = ListBox1.List(i)
         picklist1 = picklist1 & ";" & picklist2
       End If
    End If
Next
Debug.Print picklist1

End sub

InformationsquelleAutor Eve

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.