Im Folgenden werden wir ein Programm in Excel VBA suchen, die Strings umkehren.

Situation:

Reverse String in Excel VBA

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Zuerst erklären wir vier Variablen. Eine Variable namens Textes vom Typ String, eine Variable mit dem Namen reversedText auch vom Typ String, eine Variable mit dem Namen Länge vom Typ Integer und eine Variable namens i vom Typ Integer.

Dim text As String, reversedText As String, length As Integer, i As Integer

  1. Wir initialisieren zwei Variablen. Wir verwenden die Funktion InputBox eine Textzeichenfolge von dem Benutzer zu erhalten. Wir verwenden die Len-Funktion in Excel VBA die Länge einer Zeichenfolge zu erhalten.

text = InputBox("Enter the text you want to reverse")

length = Len(text)

Enter Text

  1. Wir beginnen eine For Next-Schleife.

For i = 0 To length - 1

  1. Jetzt kommt der einfachen Trick. Wir nehmen das letzte Zeichen von Text und legen Sie sie an der Vorderseite des ReversedText. Wir können die Mid-Funktion in Excel VBA verwenden, um ein Zeichen aus einer Zeichenfolge zu extrahieren. Wir verwenden den Operator & verketten (verbinden) zwei Strings.

reversedText = reversedText & Mid(text, (length - i), 1)

  1. Vergessen Sie nicht, um die Schleife zu schließen.

Next i

Beispiel: text = „Auto“. Die Länge des Textes ist 3. Für i = 0 bis 2, wir den Teiltext extrahieren an Position Länge beginnend – i mit der Länge 1. Damit für i = 0, Mid (Text, 3, 1) ist gleich r. Wir legen r an der ersten Position von reversedText. Für i = 1, Mid (Text, 2, 1) gleich ein. Wir fügen eine zu reversedText der ra wird. Für i 2 =, Mid (Text, 1, 1) C. gleich Wir fügen C bis reversedText die rac wird.

  1. Schließlich haben wir reversedText mit einem MsgBox anzuzeigen.

msgbox reversedText

  1. Testen Sie das Programm.

Ergebnis:

Reverse String Result