Alla tarkastelemme ohjelmaa Excel VBA se voi käänteiset merkkijonot.
Tilanne:
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ensin ilmoitamme neljä muuttujaa. Yksi muuttuja nimeltä teksti tyyppiä String, yksi muuttuja nimeltä reversedText myös tyypin String, yksi muuttuja nimeltä pituus kokonaisluku ja yksi muuttuja nimeltä i kokonaislukua.
Himmennä teksti merkkijonona, käänteinen teksti merkkijonona, pituus kokonaislukuna ja i kokonaislukuna
2. Alustamme kaksi muuttujaa. Käytämme InputBox -toimintoa saadaksesi tekstimerkkijonon käyttäjältä. Käytämme Excel VBA: n Len -funktiota saadaksesi merkkijonon pituuden.
text = InputBox ("Kirjoita käännettävä teksti")
pituus = Len (teksti)
3. Aloitamme For For Next -silmukan.
Jos i = 0 Pituuteen - 1
4. Nyt tulee yksinkertainen temppu. Otamme tekstistä viimeisen merkin ja sijoitamme sen ReversedTextin eteen. Voimme käyttää Excel VBA: n Mid -toimintoa poimiaksesi merkin merkkijonosta. Käytämme & -operaattoria kahden merkkijonon ketjutukseen (yhdistämiseen).
reversedText = reversedText & Mid (teksti, (pituus - i), 1)
5. Älä unohda sulkea silmukkaa.
Seuraavaksi minä
Esimerkki: text = "Auto". Tekstin pituus on 3. Jos i = 0 - 2, poimimme tekstin alimerkkijonon, joka alkaa sijainnin pituudesta - i ja jonka pituus on 1. Näin ollen, jos i = 0, Mid (teksti, 3, 1) on yhtä suuri kuin r. Asetamme r käänteisen tekstin ensimmäiseen kohtaan. Jos i = 1, Mid (teksti, 2, 1) on a. Lisäämme käännetyn tekstin, josta tulee ra. Jos i = 2, Mid (teksti, 1, 1) on yhtä suuri kuin C.Lisätään C käänteiseen tekstiin, josta tulee raC.
6. Lopuksi näytämme reversedTextin käyttämällä MsgBoxia.
msgbox reversedText
7. Testaa ohjelma.
Tulos: