Im Folgenden sehen wir uns ein Programm in an Excel VBA das kann umgekehrte Saiten.
Lage:
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir vier Variablen. Eine Variable namens text vom Typ String, eine Variable namens reversedText ebenfalls vom Typ String, eine Variable namens length vom Typ Integer und eine Variable namens i vom Typ Integer.
Dim text As String, reversedText As String, length As Integer, i As Integer
2. Wir initialisieren zwei Variablen. Wir verwenden die InputBox-Funktion, um eine Textzeichenfolge vom Benutzer zu erhalten. Wir verwenden die Len-Funktion in Excel VBA, um die Länge einer Zeichenfolge zu erhalten.
text = InputBox("Geben Sie den Text ein, den Sie umkehren möchten")
Länge = Len(Text)
3. Wir starten eine For Next-Schleife.
Für i = 0 bis Länge - 1
4. Jetzt kommt der einfache Trick. Wir nehmen das letzte Zeichen aus dem Text und platzieren es vor ReversedText. Wir können die Mid-Funktion in Excel VBA verwenden, um ein Zeichen aus einer Zeichenfolge zu extrahieren. Wir verwenden den &-Operator, um zwei Strings zu verketten (zu verbinden).
reversedText = reversedText & Mid(Text, (Länge - i), 1)
5. Vergessen Sie nicht, die Schleife zu schließen.
Als nächstes
Beispiel: Text = "Auto". Die Textlänge ist 3. Für i = 0 bis 2 extrahieren wir die Teilzeichenkette des Textes beginnend bei Position length - i mit Länge 1. Somit ist für i = 0 Mid(text, 3, 1) gleich r. Wir platzieren r an der ersten Position von reversedText. Für i = 1 ist Mid(text, 2, 1) gleich a. Wir fügen a zu reversedText hinzu, was zu ra wird. Für i = 2 ist Mid(text, 1, 1) gleich C. Wir fügen C zu reversedText hinzu, was zu raC wird.
6. Schließlich zeigen wir reversedText mit einer MsgBox an.
msgbox reversedText
7. Testen Sie das Programm.
Ergebnis:
