Hieronder zullen we kijken naar een programma in Excel VBA dat kan omgekeerde snaren.
Situatie:
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Eerst declareren we vier variabelen. Een variabele genaamd tekst van het type String, een variabele genaamd reversedText ook van het type String, een variabele genaamd lengte van het type Integer en een variabele genaamd i van het type Integer.
Dim tekst As String, reversedText As String, lengte As Integer, i As Integer
2. We initialiseren twee variabelen. We gebruiken de InputBox-functie om een tekststring van de gebruiker te krijgen. We gebruiken de Len-functie in Excel VBA om de lengte van een string te krijgen.
text = InputBox ("Voer de tekst in die u wilt omkeren")
lengte = Len(tekst)
3. We starten een For Next-lus.
Voor i = 0 Tot lengte - 1
4. Nu komt de simpele truc. We nemen het laatste teken uit tekst en plaatsen het vooraan in ReversedText. We kunnen de functie Mid in Excel VBA gebruiken om een teken uit een tekenreeks te extraheren. We gebruiken de operator & om twee strings samen te voegen (samen te voegen).
reversedText = reversedText & Mid(tekst, (lengte - i), 1)
5. Vergeet niet de lus te sluiten.
volgende i
Voorbeeld: tekst = "Auto". De lengte van tekst is 3. Voor i = 0 tot 2, extraheren we de substring van tekst beginnend bij positie lengte - i met lengte 1. Dus voor i = 0 is Mid(tekst, 3, 1) gelijk aan r. We plaatsen r op de eerste positie van reversedText. Voor i = 1, is Mid(tekst, 2, 1) gelijk aan a. We voegen a toe aan reversedText die ra wordt. Voor i = 2 is Mid(tekst, 1, 1) gelijk aan C. We voegen C toe aan reversedText, wat raC wordt.
6. Ten slotte geven we reversedText weer met een MsgBox.
msgbox reversedText
7. Test het programma.
Resultaat:
