Denne vejledning viser, hvordan du bruger den venstre VBA -funktion.
Venstre funktion
Funktionen VBA Left returnerer de første n tegn fra en streng.
VBA venstre funktion n første tegn
Funktionen VBA Venstre returnerer de første n tegn fra en streng:
123456 | Sub LeftExample_1 ()MsgBox Venstre ("ABCDEFGHI", 4) 'Resultat er: "ABCD"MsgBox Venstre ("ABCDEFGHI", 2) 'Resultat er: "AB"MsgBox Venstre ("ABCDEFGHI", 1) 'Resultat er: "A"MsgBox Venstre ("ABCDEFGHI", 100) 'Resultat er: "ABCDEFGHI"Afslut Sub |
VBA venstre funktion n første tegn i en variabel
Som vist ovenfor kan du definere en streng ved blot at indtaste tekst omgivet af anførselstegn. Men LEFT -funktionen fungerer også med strengvariabler. Disse eksempler vil udtrække de første n tegn fra en strengvariabel.
1234567891011 | Sub venstreeksempel_2 ()Dim StrEx som streng 'Definer en strengvariabelStrEx = "ABCDEFGHI"MsgBox Venstre (StrEx, 4) 'Resultat er: "ABCD"MsgBox Venstre (StrEx, 2) 'Resultat er: "AB"MsgBox Venstre (StrEx, 1) 'Resultatet er: "A"MsgBox Venstre (StrEx, 100) 'Resultat er: "ABCDEFGHI"Afslut Sub |
VBA venstre funktion n første tegn i en celle
Strenge kan defineres i VBA -kode, men du kan også bruge værdier fra celler. Læs værdien af en celle, gem den i en strengvariabel, og udtræk n første tegn fra denne regnearkscelleværdi.
12345678910111213 | Under venstreeksempel_3 ()Dim StrEx som streng 'Definer en strengvariabel'Læs værdien af celle A1 i regneark Ark1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Område ("A1"). Værdi'I dette eksempel er værdien af celle A1 "A bCDEFGHI"MsgBox Venstre (StrEx, 4) 'Resultat er: "ABCD"MsgBox Venstre (StrEx, 2) 'Resultat er: "AB"MsgBox Venstre (StrEx, 1) 'Resultatet er: "A"MsgBox Venstre (StrEx, 100) 'Resultat er: "ABCDEFGHI"Afslut Sub |
VBA venstre funktion Trim det sidste bogstav
Hvis du vil fjerne bogstaver fra enden af en streng, skal du bruge LEFT -funktionen sammen med LEN -funktionen.
VBA LEN -funktionen tæller antallet af tegn i en streng:
1 | Len (StrEx) |
Ved at kombinere funktionerne kan vi fjerne et bestemt antal tegn fra slutningen af strengen:
123456789 | Sub venstreeksempel_4 ()Dim StrEx som streng 'Definer en strengvariabelStrEx = "ABCDEF"MsgBox Venstre (StrEx, Len (StrEx)) 'Resultat er: "ABCDEF"MsgBox Venstre (StrEx, Len (StrEx) - 1) 'Resultat er: "ABCDE"MsgBox Venstre (StrEx, Len (StrEx) - 2) 'Resultat er: "ABCD"Afslut Sub |
VBA tilbage for at udtrække fornavn
Hvis du vil udtrække fornavnet fra en streng med et fuldt navn, skal du bruge den venstre funktion sammen med Instr -funktionen.
VBA Instr -funktionen søger efter en delstreng inde i en streng og returnerer placeringsnummeret for delstrengen.
1 | InStr (StrEx, "") |
Ved at kombinere funktionerne kan vi udtrække det første ord fra en sætning:
12345678910111213141516171819 | Sub VenstreEksempel_5 ()Dim StrEx som streng 'Definer en strengvariabelStrEx = "Alexander Graham Bell"MsgBox Venstre (StrEx, InStr (StrEx, ""))'Resultatet er: "Alexander" (bemærk pladsen til sidst)MsgBox Venstre (StrEx, InStr (StrEx, "") - 1)'Resultatet er: "Alexander" (INGEN plads i slutningen)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'Resultatet er: 9, fordi der findes plads i position 9MsgBox Venstre (StrEx, InStr (StrEx, "") - 1)'Resultatet er: "Leonardo"Afslut Sub |