Alla tarkastelemme ohjelmaa Excel VBA se voi käänteiset merkkijonot .
Tilanne:
Excel-kaavan etunimi sukunimi
Aseta a komentopainiketta laskentataulukkoon ja lisää seuraavat koodirivit:
1. Ilmoitamme ensin 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.
Ei mitääntekstiKutenJono, käänteinen tekstiKuten Jousisoitin, pituusKuten Kokonaisluku, iKuten Kokonaisluku
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.
ajan muuntokaavio minuutit desimaalitunteinatext = InputBox ('Kirjoita käännettävä teksti')
pituus = Len (teksti)
3. Aloitamme For For Next -silmukan.
Varteni = 0Vastaanottajapituus - 14. 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.
SeuraavaiEsimerkki: text = 'Auto'. Tekstin pituus on 3. Jos i = 0 - 2, poimimme tekstin alimerkkijonon, joka alkaa sijainnin pituudesta - i pituudella 1. Näin ollen, jos i = 0, Mid (teksti, 3, 1) on 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.
kuinka käyttää stdevia Excelissä
6. Lopuksi näytämme reversedTextin käyttämällä MsgBoxia.
msgbox reversedText7. Testaa ohjelma.
Tulos:
Siirry seuraavaan lukuun: Päivämäärä ja aika
