Obráťte reťazec textu pomocou VBA
Rutina VBA uvedená nižšie umožňuje používateľovi zadať reťazec a potom sa mu rovnaký reťazec zobrazí spätne. Napríklad „pondelok“ sa zmení na „yadnoM“:
| 123456789101112131415161718192021222324252627282930313233343536 | Možnosť explicitnáSúkromné sub CommandButton1_Click ()„Definujte premennéDim Original_String as StringDim Reversed_String as StringDim Next_Char ako reťazecDim dĺžka ako celé čísloDim Pos ako celé číslo„Získajte pôvodný reťazecOriginal_String = InputBox ("Zadajte pôvodný reťazec:")„Nájdite upravenú dĺžku reťazcaLength = Len (Original_String)„Nastavte obrátený reťazecReversed_String = ""'Postupujte podľa reťazca po znakoch po znakoch„Začína sa od posledného znaku a smeruje k prvému znakuPre Pos = dĺžka do 1 Krok -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Obrátený_String & Next_CharNasledujúca pozMsgBox „Obrátený reťazec je“ & Reversed_StringKoniec pod |
Hlavné vlastnosti kódu sú:-
• Na aktiváciu kódu potrebuje príkazové tlačidlo - v prípade kliknutia
• Sú nastavené nasledujúce premenné:-
o Original_String - pôvodný reťazec, ktorý bude obrátený („pondelok“)
o Reversed_String - obrátený reťazec („yadnoM“)
o Next_Char - ďalší znak v reťazci, ktorý bude obrátený
o Dĺžka - dĺžka šnúrky
o Pos - aktuálna pozícia v reťazci
• InputBox na zachytenie reťazca. Je to uložené v premennej „Pôvodný reťazec“
• Dĺžka reťazca sa vypočíta pomocou funkcie LEN a uloží sa do premennej dĺžka
• Slučka FOR… NEXT je nastavená tak, aby prechádzala reťazcom začínajúcim od posledného znaku a pracujúcim vzad po jednom znaku
• Ďalší znak v pôvodnom reťazci (pracujúci dozadu) sa potom pridá k obrátenému reťazcu
• Táto slučka sa opakuje, kým neprebehneme celú dĺžku reťazca
• Opačný reťazec sa zobrazí v MsgBox.
Stiahnite si súbor programu Excel tu
