Deze zelfstudie laat zien hoe u de linker VBA-functie gebruikt.
Linker Functie
De functie VBA Left retourneert de eerste n tekens van een tekenreeks.
VBA Linkerfunctie n Eerste tekens
De functie VBA Left retourneert de eerste n tekens van een tekenreeks:
123456 | Sub LinksVoorbeeld_1()MsgBox Left("ABCDEFGHI", 4) 'Resultaat is: "ABCD"MsgBox Left("ABCDEFGHI", 2) 'Resultaat is: "AB"MsgBox Left("ABCDEFGHI", 1) 'Resultaat is: "A"MsgBox Left("ABCDEFGHI", 100) 'Resultaat is: "ABCDEFGHI"Einde sub |
VBA Linkerfunctie n Eerste tekens in een variabele
Zoals hierboven weergegeven, kunt u een tekenreeks eenvoudig definiëren door tekst tussen aanhalingstekens in te voeren. Maar de LEFT-functie werkt ook met stringvariabelen. In deze voorbeelden worden de eerste n tekens uit een tekenreeksvariabele geëxtraheerd.
1234567891011 | Sub LinksExample_2()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "ABCDEFGHI"MsgBox Left(StrEx, 4) 'Resultaat is: "ABCD"MsgBox Left(StrEx, 2) 'Resultaat is: "AB"MsgBox Left(StrEx, 1) 'Resultaat is: "A"MsgBox Left(StrEx, 100) 'Resultaat is: "ABCDEFGHI"Einde sub |
VBA Linkerfunctie n Eerste tekens in 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 n eerste tekens uit die werkbladcelwaarde.
12345678910111213 | Sub LinksExample_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 "A bCDEFGHI"MsgBox Left(StrEx, 4) 'Resultaat is: "ABCD"MsgBox Left(StrEx, 2) 'Resultaat is: "AB"MsgBox Left(StrEx, 1) 'Resultaat is: "A"MsgBox Left(StrEx, 100) 'Resultaat is: "ABCDEFGHI"Einde sub |
VBA Linkerfunctie Knip de laatste letter af
Gebruik de LEFT-functie samen met de LEN-functie om letters aan het einde van een string te verwijderen.
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 aan het einde van de string verwijderen:
123456789 | Sub LinksExample_4()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "ABCDEF"MsgBox Left(StrEx, Len(StrEx)) 'Resultaat is: "ABCDEF"MsgBox Left(StrEx, Len(StrEx) - 1) 'Resultaat is: "ABCDE"MsgBox Left(StrEx, Len(StrEx) - 2) 'Resultaat is: "ABCD"Einde sub |
VBA links om voornaam te extraheren
Om de voornaam uit een tekenreeks met een volledige naam te extraheren, gebruikt u de functie Links samen met de functie Instr.
De functie VBA Instr 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 eerste woord uit een zin halen:
12345678910111213141516171819 | Sub LeftExample_5()Dim StrEx As String 'Definieer een stringvariabele'StrEx = "Alexander Graham Bell"MsgBox Links(StrEx, InStr(StrEx, " "))'Resultaat is: "Alexander" (let op de spatie aan het einde)MsgBox Links(StrEx, InStr(StrEx, " ") - 1)'Resultaat is: "Alexander" (GEEN spatie aan het einde)StrEx = "Leonardo da Vinci"MsgBox InStr(StrEx, " ")'Resultaat is: 9 omdat er ruimte is gevonden in positie 9MsgBox Links(StrEx, InStr(StrEx, " ") - 1)'Resultaat is: "Leonardo"Einde sub |