Reverse Strings în Excel VBA

Mai jos ne vom uita la un program în Excel VBA care poate invers.

Situatie:

Plasați un buton de comandă pe foaia dvs. de lucru și adăugați următoarele linii de cod:

1. În primul rând, declarăm patru variabile. O variabilă numită text de tip String, o variabilă numită reversedText de tip String, o variabilă numită lungime de tip Integer și o variabilă numită i de tip Integer.

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

2. Inițializăm două variabile. Folosim funcția InputBox pentru a obține un șir de text de la utilizator. Folosim funcția Len în Excel VBA pentru a obține lungimea unui șir.

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

3. Începem o buclă For Next.

For i = 0 To length - 1

4. Acum vine trucul simplu. Luăm ultimul caracter din text și îl plasăm în partea din față a lui ReversedText. Putem folosi funcția Mid din Excel VBA pentru a extrage un caracter dintr-un șir. Folosim operatorul & pentru a concatena (alatura) doua siruri de caractere.

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

5. Nu uitați să închideți bucla.

Next i

Exemplu: text = "Mașină". Lungimea textului este de 3. Pentru i = 0 până la 2, extragem substringul de text pornind de la lungimea poziției - i cu lungimea 1. Astfel, pentru i = 0, Mid (text, 3, 1) este egal cu r. Am plasat r în prima poziție de inversatText. Pentru i = 1, Mid (text, 2, 1) este egal cu a. Adăugăm un a la reversedText care devine ra. Pentru i = 2, Mid (text, 1, 1) este egal cu C. Adăugăm C la inversatText care devine raC.

6. În final, afișăm reversedText folosind un MsgBox.

msgbox reversedText

7. Testați programul.

Rezultat: