Hoe een string in vba om te keren (met voorbeeld)

U kunt de functie StrReverse in VBA gebruiken om een tekstreeks om te keren.

Hier is een gebruikelijke manier om deze functie in de praktijk te gebruiken:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Dit specifieke voorbeeld keert elke tekenreeks in het bereik A2:A11 om en geeft de resultaten weer in het bereik B2:B11 .

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: tekenreeksen omkeren met VBA

Stel dat we de volgende kolom met basketbalteamnamen in Excel hebben:

Stel dat we de naam van elk team willen omdraaien en de resultaten in de overeenkomstige cel in kolom B willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Kolom B toont elke teamnaam in kolom A achterstevoren.

Bijvoorbeeld:

• Mavs wordt svaM
• Spurs worden SrupS
• Raketten worden stekcoR
• Koningen wordt sgniK

Enzovoort.

Merk op dat de StrReverse- functie ook met getallen werkt.

Als u bijvoorbeeld de functie StrReverse op het getal 1234 toepast, wordt 4321 geretourneerd.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: hoe controleer je of een string een andere string bevat?
VBA: het aantal rijen binnen bereik tellen
VBA: Hoe COUNTIF- en COUNTIFS-functies te schrijven