Deze tutorial laat zien hoe je de Right VBA-functie gebruikt om tekst van rechts te extraheren.
Juiste functie
VBA Right-functie Laatste n tekens
De functie VBA Right retourneert de laatste n tekens van een tekenreeks:
| 123456 | Sub RechtsVoorbeeld_1()MsgBox Right("ABCDEFGHI", 4) 'Resultaat is: "FGHI"MsgBox Right("ABCDEFGHI", 2) 'Resultaat is: "HI"MsgBox Right("ABCDEFGHI", 1) 'Resultaat is: "I"MsgBox Right ("ABCDEFGHI", 100) 'Resultaat is: "ABCDEFGHI"Einde sub |
VBA juiste functie Laatste n tekens in een variabele
Zoals hierboven weergegeven, kunt u een tekenreeks eenvoudig definiëren door tekst tussen aanhalingstekens in te voeren. Maar de RECHTS-functie werkt ook met tekenreeksvariabelen. Deze voorbeelden extraheren de laatste n tekens uit een tekenreeksvariabele.
| 123456789 | Sub RechtsVoorbeeld_2()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "ABCDEFGHI"MsgBox Right(StrEx, 4) 'Resultaat is: "FGHI"MsgBox Right(StrEx, 2) 'Resultaat is: "HI"MsgBox Right(StrEx, 1) 'Resultaat is: "I"MsgBox Right(StrEx, 100) 'Resultaat is: "ABCDEFGHI"Einde sub |
VBA-programmering | Code Generator werkt voor u!
VBA juiste functie Laatste n tekens uit een cel
Strings kunnen worden gedefinieerd in VBA-code, maar u kunt ook waarden uit cellen gebruiken. Lees de waarde van een cel, bewaar deze in een tekenreeksvariabele en extraheer de laatste n tekens uit die werkbladcelwaarde.
| 123456789101112 | Sub RechtsVoorbeeld_3()Dim StrEx As String 'Definieer een stringvariabele''Lees de waarde van cel A1 in werkblad Blad1'StrEx = ThisWorkbook.Worksheets("Blad1").Bereik("A1").Waarde'Voor dit voorbeeld is de waarde van cel A1 "ABCDEFG hI"MsgBox Right(StrEx, 4) 'Resultaat is: "G hI"MsgBox Right(StrEx, 2) 'Resultaat is: "hI"MsgBox Right(StrEx, 1) 'Resultaat is: "I"MsgBox Right(StrEx, 100) 'Resultaat is: "ABCDEFG hI"Einde sub |
VBA Rechterfunctie Eerste letter afsnijden
Om letters aan het begin van een tekenreeks te verwijderen, gebruikt u de functie RECHTS samen met de LEN-functie.
De VBA LEN-functie telt het aantal tekens in een string:
| 1 | Len (StrEx) |
Door de functies te combineren, kunnen we een bepaald aantal tekens vanaf het begin van de string verwijderen:
| 12345678 | Sub RechtsVoorbeeld_4()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "ABCDEF"MsgBox Right(StrEx, Len(StrEx)) 'Resultaat is: "ABCDEF"MsgBox Right(StrEx, Len(StrEx) - 1) 'Resultaat is: "BCDEF"MsgBox Right(StrEx, Len(StrEx) - 2) 'Resultaat is: "CDEF"Einde sub |
VBA-recht om tekst na spatie te extraheren
Om de achternaam uit een string met een volledige naam te halen, gebruikt u de Right Function samen met Len en Instr Function.
De VBA LEN-functie telt het aantal tekens in een string:
| 1 | Len (StrEx) |
De VBA InStr-functie zoekt naar een subtekenreeks binnen een tekenreeks en retourneert het positienummer van de subtekenreeks.
| 1 | InStr(StrEx, " ") |
Door de functies te combineren, kunnen we het deel na de eerste spatie uit een zin halen:
| 123456789101112131415 | Sub RechtsVoorbeeld_5()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "Luke Skywalker"MsgBox Rechts(StrEx, Len(StrEx) - InStr(StrEx, " "))'Resultaat is: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox Rechts(StrEx, Len(StrEx) - InStr(StrEx, " "))'Resultaat is: "da Vinci"StrEx = "Moge de Force bij je zijn"MsgBox Rechts(StrEx, Len(StrEx) - InStr(StrEx, " "))'Resultaat is: "the Force be with you"Einde sub |
Moe van het zoeken naar voorbeelden van VBA-codes? Probeer AutoMacro!
VBA-recht om het laatste woord te extraheren
Om het laatste woord uit een string met een zin te extraheren, gebruikt u de functie Rechts samen met de functie Len en InstrRev.
Zoals we hierboven hebben gezien, telt de VBA LEN-functie het aantal tekens in een string:
| 1 | Len (StrEx) |
De VBA InStrRev-functie zoekt naar een subtekenreeks binnen een tekenreeks en retourneert het positienummer van de subtekenreeks. Het begint de zoekopdracht vanaf het einde van de zin (van rechts naar links) maar retourneert de positie vanaf het begin van de tekenreeks (links naar rechts).
| 1 | InStrRev(StrEx, " ") |
Door de functies te combineren, kunnen we het deel na de laatste spatie uit een zin halen:
| 123456789101112131415 | Sub RechtsVoorbeeld_6()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "Luke Skywalker"MsgBox Rechts(StrEx, Len(StrEx) - InStrRev(StrEx, " "))'Resultaat is: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox Rechts(StrEx, Len(StrEx) - InStrRev(StrEx, " "))'Resultaat is: "da Vinci"StrEx = "Moge de Force bij je zijn"MsgBox Rechts(StrEx, Len(StrEx) - InStrRev(StrEx, " "))'Resultaat is: "jij"Einde sub |
