U nastavku ćemo pogledati program u Excel VBA koji mogu obrnuti nizovi.
Situacija:
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, deklariramo četiri varijable. Jedna varijabla koja se naziva tekst tipa String, jedna varijabla koja se naziva reversedText također tipa String, jedna varijabla koja se naziva dužina tipa Integer i jedna varijabla koja se naziva i tipa Integer.
Zatamni tekst kao niz, reversedText kao niz, duljina kao cijeli broj, i kao cijeli broj
2. Pokrećemo dvije varijable. Koristimo funkciju InputBox za dobivanje tekstualnog niza od korisnika. Koristimo funkciju Len u Excelu VBA za dobivanje duljine niza.
text = InputBox ("Unesite tekst koji želite obrnuti")
dužina = Len (tekst)
3. Pokrećemo petlju For Next.
Za i = 0 Na duljinu - 1
4. Sada dolazi jednostavan trik. Uzimamo posljednji znak iz teksta i stavljamo ga ispred ReversedText -a. Možemo koristiti funkciju Mid u Excelu VBA za izdvajanje znaka iz niza. Operator & koristimo za spajanje (spajanje) dva niza.
reversedText = reversedText & Mid (tekst, (duljina - i), 1)
5. Ne zaboravite zatvoriti petlju.
Sljedeći i
Primjer: text = "Auto". Duljina teksta je 3. Za i = 0 do 2 izdvajamo podniz teksta koji počinje od dužine pozicije - i s duljinom 1. Dakle, za i = 0, Mid (tekst, 3, 1) jednak je r. Stavljamo r na prvo mjesto obrnutog teksta. Za i = 1, sredina (tekst, 2, 1) jednaka je a. Obrnutom tekstu dodajemo a koji postaje ra. Za i = 2, Mid (text, 1, 1) je jednak C. Dodajemo C obrnutom tekstu koji postaje raC.
6. Na kraju, prikazujemo reversedText pomoću MsgBox -a.
msgbox reversedText
7. Testirajte program.
Proizlaziti: