Az alábbiakban megnézzük a programot Excel VBA hogy lehet fordított húrok.
Helyzet:
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először négy változót deklarálunk. Egy String típusú szövegnek nevezett változó, egy fordított szövegnek nevezett változó szintén String típusú, egy változó úgynevezett hossza Integer típusú, és egy változó i, Integer típusú.
A szöveg halványítása karakterláncként, fordított szöveg szövegként karakterláncként, hossza egészként, i egész számként
2. Két változót inicializálunk. Az InputBox funkciót használva szöveges karakterláncot kapunk a felhasználótól. Az Excel VBA Len funkcióját használjuk a karakterlánc hosszának meghatározásához.
text = InputBox ("Írja be a visszafordítani kívánt szöveget")
hossz = Len (szöveg)
3. Elindítjuk a For Next ciklusát.
Ha i = 0 A hosszúsághoz - 1
4. Most jön az egyszerű trükk. Kivesszük az utolsó karaktert a szövegből, és a ReversedText elejére helyezzük. Az Excel VBA Középfunkcióját használhatjuk karakter kinyerésére egy karakterláncból. A & operátort használjuk két karakterlánc összefűzésére (összekapcsolására).
reversedText = reversedText & Mid (szöveg, (hossz - i), 1)
5. Ne felejtse el lezárni a hurkot.
Következő i
Példa: text = "Autó". A szöveg hossza 3. Az i = 0 és 2 esetén kivonjuk a szöveg alhúrját, amely a pozícióhossztól kezdődően - i, 1 hosszúságú. Így i = 0 esetén Közép (szöveg, 3, 1) egyenlő r. A fordított szöveg első pozíciójába helyezzük az r -t. Ha i = 1, Közép (szöveg, 2, 1) egyenlő a. Hozzáadunk egy fordított szöveget, amelyből ra lesz. Ha i = 2, Közép (szöveg, 1, 1) egyenlő C -vel. C -t adunk a fordított szöveghez, amelyből raC lesz.
6. Végül a reversedText -et egy MsgBox használatával jelenítjük meg.
msgbox reversedText
7. Tesztelje a programot.
Eredmény: