Inversați un șir de text cu VBA
Rutina VBA de mai jos permite utilizatorului să introducă un șir și apoi este prezentat cu același șir înapoi. De exemplu, „luni” devine „yadnoM”:
| 123456789101112131415161718192021222324252627282930313233343536 | Opțiune explicităPrivate Sub CommandButton1_Click ()„Definiți variabileDim Original_String As StringDim Reversed_String As StringDim Next_Char As StringReduceți lungimea ca întregDim Pos Ca întreg„Obțineți șirul originalOriginal_String = InputBox ("Vă rugăm să introduceți șirul original:")„Găsiți lungimea revizuită a șiruluiLungime = Len (Original_String)'Configurați șirul inversatReversed_String = ""„Progresează prin șir pe bază de caracter„Începând de la ultimul personaj și mergând spre primul personajPentru Pos = Lungime la 1 Pas -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharUrmătoarea pozițieMsgBox „Șirul inversat este” & Șir_inversatSfârșitul Sub |
Principalele caracteristici ale codului sunt: -
• Este nevoie de un buton de comandă pentru a activa codul - la evenimentul de clic
• Sunt configurate următoarele variabile: -
o Original_String - șirul original care va fi inversat („luni”)
o Reversed_String - șirul inversat („yadnoM”)
o Next_Char - următorul caracter din șirul care va fi inversat
o Lungime - lungimea șirului
o Pos - poziția curentă în șir
• Un InputBox pentru a captura șirul. Aceasta este stocată în variabila „Șir original”
• Lungimea șirului este calculată utilizând funcția LEN și stocată în variabila Lungime
• O buclă FOR … NEXT este configurată pentru a parcurge șirul începând de la ultimul caracter și funcționând înapoi, un caracter la rând
• Următorul caracter din șirul original (care lucrează înapoi) este apoi adăugat la șirul inversat
• Această buclă este iterată până când am parcurs întreaga lungime a șirului
• Șirul inversat este afișat într-un MsgBox.
Descărcați fișierul Excel aici
