/ / Fordított sorok Excel VBA-ban

Fordított sorok Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA hogy lehet fordított húrok.

Helyzet:

Fordított karakterlánc az Excel VBA-ban

Helyezzen egy parancsgombot a munkalapra, és adja hozzá a következő kódsorokat:

1. Először négy változót deklarálunk. Egy változó, a String típusú szöveg, egy fordított String nevű változó, egy változó, az Integer hossza és az Integer nevű i változó.

Dim text As String, reversedText As String, length As Integer, i As Integer

2. Két változót inicializálunk. Az InputBox funkcióval szövegbevitelt kapunk a felhasználótól. A Len funkciót Excel VBA-ban használjuk, hogy megkapjuk a húr hosszát.

text = InputBox("Enter the text you want to reverse")
length = Len(text)

Írja be a szöveget

3. Elindítunk egy For Next hurkot.

For i = 0 To length - 1

4. Most jön az egyszerű trükk. Az utolsó karaktert a szövegből vettük, és a ReversedText elé helyezzük. Az Excel VBA középfunkcióját használhatjuk egy karaktersorozat karakterének kivonására. A & kezelőt két karakterlánc összekapcsolására (csatlakozásra) használjuk.

reversedText = reversedText & Mid(text, (length - i), 1)

5. Ne felejtse el bezárni a hurkot.

Next i

Példa: text = "Autó". A szöveg hossza 3. Az i = 0 és 2 között a szöveg hosszában az i hosszúságú kezdőpontból nyerjük ki az 1-es hosszat. Ily módon i = 0, Mid (szöveg, 3, 1) egyenlő r-vel. Az r helyét a reversedText első pozíciójába helyezzük. I = 1, Mid (szöveg, 2, 1) egyenlő a. Hozzáadunk egy a fordított szöveghez, ami ra lesz. I = 2, Mid (szöveg, 1, 1) egyenlő C. Hozzáadjuk a C-t a fordított szöveghez, amely raC lesz.

6. Végül a reversedText-t egy MsgBox segítségével jelenítjük meg.

msgbox reversedText

7. Vizsgálja meg a programot.

Eredmény:

Fordított sorrend eredmény

Szintén olvasható: