Spodaj si bomo ogledali program v Excel VBA to lahko povratne strune.
Situacija:
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasimo štiri spremenljivke. Ena spremenljivka, imenovana besedilo tipa String, ena spremenljivka, imenovana reversedText, tudi vrste String, ena spremenljivka, imenovana dolžina tipa Integer, in ena spremenljivka, imenovana i, tipa Integer.
Zatemni besedilo kot niz, obrnjeno besedilo kot niz, dolžina kot celo število, i kot celo število
2. Inicializiramo dve spremenljivki. Funkcijo InputBox uporabljamo za pridobivanje besedilnega niza od uporabnika. Funkcijo Len uporabljamo v Excelu VBA, da dobimo dolžino niza.
text = InputBox ("Vnesite besedilo, ki ga želite obrniti")
dolžina = Len (besedilo)
3. Zaženemo zanko For Next.
Za i = 0 V dolžino - 1
4. Zdaj prihaja preprost trik. Iz besedila vzamemo zadnji znak in ga postavimo na sprednjo stran ReversedText. Funkcijo Mid v Excelu VBA lahko uporabimo za ekstrahiranje znaka iz niza. Operater & uporabljamo za združevanje (združevanje) dveh nizov.
reversedText = reversedText & Mid (besedilo, (dolžina - i), 1)
5. Ne pozabite zapreti zanke.
Naprej i
Primer: text = "Avto". Dolžina besedila je 3. Za i = 0 do 2 izvlečemo podniz besedila, ki se začne na dolžini položaja - i z dolžino 1. Tako je za i = 0 Mid (besedilo, 3, 1) enako r. R postavimo na prvo mesto obrnjenega besedila. Za i = 1 je sredina (besedilo, 2, 1) enako a. K obrnjenemu besedilu dodamo a, ki postane ra. Za i = 2 je Mid (besedilo, 1, 1) enako C. Dodamo C obrnjenemu besedilu, ki postane raC.
6. Nazadnje prikažemo reversedText z uporabo polja MsgBox.
msgbox reversedText
7. Preizkusite program.
Rezultat:
