Obraťte řetězec textu pomocí VBA
Níže uvedený postup VBA umožňuje uživateli zadat řetězec a poté je stejný řetězec zobrazen zpět. Například „pondělí“ se stane „yadnoM“:
| 123456789101112131415161718192021222324252627282930313233343536 | Možnost ExplicitníPrivate Sub CommandButton1_Click ()"Definujte proměnné."Dim Original_String jako řetězecDim Reversed_String jako řetězecDim Next_Char jako řetězecDim Délka jako celé čísloDim Pos jako celé číslo„Získejte originální řetězecOriginal_String = InputBox ("Zadejte prosím původní řetězec:")`` Najděte revidovanou délku řetězceDélka = Len (Original_String)"Nastavte obrácený řetězec."Reversed_String = ""'Procházejte řetězcem na bázi znak po znaku.'"Počínaje posledním znakem a směrem k prvnímu znaku."Pro Pos = délka do 1 Krok -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharDalší pozMsgBox "Obrácený řetězec je" & Reversed_StringEnd Sub |
Hlavní rysy kódu jsou:-
• K aktivaci kódu potřebuje příkazové tlačítko - při události kliknutí
• Nastaví se následující proměnné:-
o Original_String - původní řetězec, který bude obrácen („pondělí“)
o Reversed_String - obrácený řetězec („yadnoM“)
o Next_Char - další znak v řetězci, který bude obrácen
o Délka - délka řetězce
o Pos - aktuální pozice v řetězci
• InputBox k zachycení řetězce. Toto je uloženo v proměnné „Původní řetězec“
• Délka řetězce se vypočítá pomocí funkce LEN a uloží se do proměnné Délka
• Smyčka FOR… NEXT je nastavena tak, aby procházela řetězcem počínaje posledním znakem a pracovala zpět po jednom znaku
• Do obráceného řetězce je pak přidán další znak v původním řetězci (pracující pozpátku)
• Tato smyčka se opakuje, dokud jsme neprošli celou délku řetězce
• Obrácený řetězec je zobrazen v MsgBox.
Stáhněte si soubor aplikace Excel zde
