Mai jos vom analiza un program în Excel VBA care poate corzile inverse.
Situatie:
Plasați un buton de comandă pe foaia 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ă text inversat, de asemenea, de tip String, o variabilă numită lungime de tip Integer și o variabilă numită i de tip Integer.
Reduce textul ca șir, invers Textul ca șir, lungimea ca întreg, i ca întreg
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 („Introduceți textul pe care doriți să îl inversați”)
lungime = Len (text)
3. Începem o buclă For Next.
Pentru i = 0 La lungime - 1
4. Acum vine trucul simplu. Luăm ultimul caracter din text și îl plasăm în partea din față a ReversedText. Putem folosi funcția Mid în Excel VBA pentru a extrage un caracter dintr-un șir. Folosim operatorul & pentru a concatena (uni) două șiruri.
reversedText = reversedText & Mid (text, (lungime - i), 1)
5. Nu uitați să închideți bucla.
Apoi eu
Exemplu: text = "Mașină". Lungimea textului este 3. Pentru i = 0 la 2, extragem șirul de text începând de la poziția lungime - i cu lungimea 1. Astfel, pentru i = 0, Mid (text, 3, 1) este egal cu r. Plasăm r în prima poziție a textului inversat. Pentru i = 1, Mid (text, 2, 1) este egal cu a. Adăugăm un text inversat care devine ra. Pentru i = 2, Mid (text, 1, 1) este egal cu C. Adăugăm C la Textul inversat care devine raC.
6. În cele din urmă, afișăm textul inversat folosind un MsgBox.
msgbox inversatText
7. Testați programul.
Rezultat: