Im Folgenden sehen wir uns ein Programm in an Excel VBA das trennt Saiten.
Lage:
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir eine Variable namens fullname vom Typ String, eine Variable namens commaposition vom Typ Integer und eine Variable namens i vom Typ Integer.
Dim fullname As String, Kommaposition As Integer, i As Integer
Das Problem, mit dem wir es zu tun haben, ist, dass wir Excel VBA mitteilen müssen, wo wir die Zeichenfolge trennen möchten. Im Fall von Smith, Mike steht das Komma an Position 6, während im Fall von Williams, Janet das Komma an Position 9 steht.
2. Wir verwenden eine Schleife, um die Operationen für jeden in Excel eingegebenen Namen auszuführen. Zuerst initialisieren wir die Variable fullname. Als nächstes verwenden wir die Instr-Funktion, um die Position des Kommas zu ermitteln.
Für i = 2 bis 7
fullname = Cells(i, 1).Value
Kommaposition = InStr(vollständiger Name, ",")
3. Schließlich wollen wir den Teil nach dem Komma in Spalte B und den Teil vor dem Komma in Spalte C schreiben. Dies erreichen Sie, indem Sie die Zeilen hinzufügen:
Cells(i, 2).Value = Mid(vollständiger Name, Kommaposition + 2)
Cells(i, 3).Value = Left(vollständiger Name, Kommaposition - 1)
Mid(fullname, commaposition + 2) bedeutet, dass der Teil des vollständigen Namens mit dem Zeichen 'commaposition + 2' beginnt (dies ist genau der Vorname).
Left(fullname, commaposition - 1) bedeutet, dass der Teil des vollständigen Namens vom Anfang bis zum Zeichen 'commaposition-1' (dies ist genau der Nachname) beginnt.
4. Vergessen Sie nicht, die Schleife zu schließen.
Als nächstes
5. Fügen Sie zu Range("A2:A7") sechs durch Komma und Leerzeichen getrennte Namen hinzu.
6. Testen Sie das Programm.
Ergebnis:
