Een tekenreeks omkeren met VBA
Met de onderstaande VBA-routine kan de gebruiker een tekenreeks invoeren en wordt dezelfde tekenreeks vervolgens achterstevoren weergegeven. Bijvoorbeeld "maandag" wordt "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Optie explicietPrivé Sub CommandButton1_Click()'Definieer variabelen'Dim Original_String als stringDim Reversed_String als stringDim Next_Char As StringDim lengte als geheel getalDim Pos als geheel getal'Verkrijg de originele string'Original_String = InputBox("Voer de originele string in: ")'Zoek de herziene lengte van de string'Lengte = Len (Originele_String)'Stel de omgekeerde string in'Reversed_String = ""'Voortgang door de tekenreeks per teken''Begin bij het laatste teken en ga naar het eerste teken'Voor Pos = lengte tot 1 stap -1Volgende_Char = Mid(Originele_String, Pos, 1)Reversed_String = Reversed_String & Volgende_CharVolgende PosMsgBox "De omgekeerde string is " & Reversed_StringEinde sub |
De belangrijkste kenmerken van de code zijn: -
• Er is een opdrachtknop nodig om de code te activeren - op de klikgebeurtenis
• De volgende variabelen zijn ingesteld: -
o Original_String - de originele string die wordt omgekeerd (“maandag”)
o Reversed_String - de omgekeerde string (“yadnoM”)
o Next_Char - het volgende teken in de tekenreeks dat wordt omgekeerd
o Lengte - de lengte van de string
o Pos - de huidige positie in de string
• Een InputBox om de string vast te leggen. Dit wordt opgeslagen in de variabele “Original String”
• De lengte van de string wordt berekend met behulp van de LEN-functie en opgeslagen in de variabele Lengte
• Een FOR… NEXT-lus is ingesteld om door de tekenreeks te gaan, beginnend bij het laatste teken en één teken tegelijk achteruit
• Het volgende teken in de originele tekenreeks (achterwaarts werkend) wordt dan toegevoegd aan de omgekeerde tekenreeks
• Deze lus wordt herhaald totdat we de hele lengte van de string hebben doorlopen
• De omgekeerde string wordt weergegeven in een MsgBox.
Download hier het Excel-bestand
