/ / Reverse Strings i Excel VBA

Omvända strängar i Excel VBA

Nedan ser vi på ett program i Excel VBA som kan omvänd strängar.

Situation:

Reverse String i Excel VBA

Placera en kommandoknapp på ditt arbetsblad och lägg till följande kodlinjer:

1. Först deklarerar vi fyra variabler. En variabel som heter text av typen String, en variabel som heter reversedText också av typen String, en variabel som heter längd av typen Integer och en variabel som heter I av typen Integer.

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

2. Vi initierar två variabler. Vi använder funktionen InputBox för att få en textsträng från användaren. Vi använder Len-funktionen i Excel VBA för att få längden på en sträng.

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

Skriv text

3. Vi startar en For Next-loop.

For i = 0 To length - 1

4. Nu kommer det enkla tricket. Vi tar den sista karaktären från text och placerar den på framsidan av ReversedText. Vi kan använda Mid-funktionen i Excel VBA för att extrahera ett tecken från en sträng. Vi använder & operatören för att sammanfoga (ansluta) två strängar.

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

5. Glöm inte att stänga slingan.

Next i

Exempel: text = "bil". Textens längd är 3. För i = 0 till 2 extraherar vi substratet av text som börjar vid positionslängden - jag med längd 1. Således för i = 0, är ​​Mid (text, 3, 1) lika med r. Vi placerar r vid första positionen av reversedText. För i = 1, är Mid (text, 2, 1) lika med a. Vi lägger till en till reversedText som blir ra. För i = 2, är Mid (text, 1, 1) lika med C. Vi lägger till C till reversedText som blir raC.

6. Slutligen visar vi reversedText med hjälp av en MsgBox.

msgbox reversedText

7. Testa programmet.

Resultat:

Omvänd strängresultat

Läs också: