Žemiau apžvelgsime programą Excel VBA tai gali atvirkštinės eilutės.
Situacija:
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirmiausia deklaruojame keturis kintamuosius. Vienas kintamasis, vadinamas „String“ tipo tekstu, vienas kintamasis „reversedText“, taip pat „String“ tipo, vienas kintamasis, pavadintas „Integer“ tipo ilgiu, ir vienas kintamasis, vadinamas „Integer“ tipo.
Pritemdyti tekstą kaip eilutę, atvirkštinį tekstą kaip eilutę, ilgį kaip sveiką skaičių ir i kaip sveiką skaičių
2. Inicijuojame du kintamuosius. Norėdami gauti teksto eilutę iš vartotojo, naudojame funkciją „InputBox“. Mes naudojame „Len“ funkciją „Excel VBA“, kad gautume eilutės ilgį.
text = InputBox ("Įveskite tekstą, kurį norite pakeisti")
ilgis = Len (tekstas)
3. Mes pradedame „For Next“ ciklą.
Jei i = 0 iki ilgio - 1
4. Dabar ateina paprastas triukas. Mes paimame paskutinį simbolį iš teksto ir padedame jį „ReversedText“ priekyje. „Excel“ VBA funkciją „Mid“ galime naudoti norėdami išgauti simbolį iš eilutės. Mes naudojame & operatorių, kad sujungtume (sujungtume) dvi eilutes.
reversedText = reversedText & Mid (tekstas, (ilgis - i), 1)
5. Nepamirškite uždaryti kilpos.
Kitas I.
Pavyzdys: text = "Automobilis". Teksto ilgis yra 3. Jei i = nuo 0 iki 2, ištraukiame teksto antrinę eilutę, pradedant nuo pozicijos ilgio - i su ilgiu 1. Taigi, jei i = 0, vidurys (tekstas, 3, 1) lygus r. Mes dedame r į pirmąją atvirkštinio teksto padėtį. Jei i = 1, vidurys (tekstas, 2, 1) yra lygus a. Prie reversedText pridedame a, kuris tampa ra. Jei i = 2, vidurys (tekstas, 1, 1) yra lygus C. Prie atvirkštinio teksto pridedame C, kuris tampa raC.
6. Galiausiai mes rodome reversedText naudodami „MsgBox“.
„msgbox reversedText“
7. Išbandykite programą.
Rezultatas:
