Nedenfor ser vi på et program i Excel VBA det kan omvendte strenger.
Situasjon:
Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
1. For det første erklærer vi fire variabler. En variabel som kalles tekst av typen String, en variabel som kalles reversedText også av typen String, en variabel som kalles lengden på typen Heltall, og en variabel som heter i av typen Heltall.
Dim tekst As String, reversedText As String, length As Integer, i As Integer
2. Vi initialiserer to variabler. Vi bruker InputBox -funksjonen for å få en tekststreng fra brukeren. Vi bruker Len -funksjonen i Excel VBA for å få lengden på en streng.
text = InputBox ("Skriv inn teksten du vil reversere")
length = Len (tekst)
3. Vi starter en For Next loop.
For i = 0 Til lengde - 1
4. Nå kommer det enkle trikset. Vi tar det siste tegnet fra teksten og plasserer det foran på ReversedText. Vi kan bruke Mid -funksjonen i Excel VBA til å trekke ut et tegn fra en streng. Vi bruker operatøren & til å sammenkoble (sammenføye) to strenger.
reversedText = reversedText & Mid (tekst, (lengde - i), 1)
5. Ikke glem å lukke sløyfen.
Neste jeg
Eksempel: text = "Bil". Lengden på teksten er 3. For i = 0 til 2, trekker vi ut delstrengen av tekst som starter med posisjonslengde - i med lengde 1. Således, for i = 0, Midt (tekst, 3, 1) er lik r. Vi plasserer r på den første posisjonen til reversedText. For i = 1, Midt (tekst, 2, 1) er lik a. Vi legger til a til reversedText som blir ra. For i = 2, Mid (tekst, 1, 1) er lik C. Vi legger C til reversedText som blir raC.
6. Til slutt viser vi reversedText ved hjelp av en MsgBox.
msgbox reversedText
7. Test programmet.
Resultat:
