Denne opplæringen vil demonstrere hvordan du bruker den venstre VBA -funksjonen.
Venstre funksjon
VBA venstre -funksjonen returnerer de første n -tegnene fra en streng.
VBA venstre funksjon n første tegn
VBA venstre -funksjonen returnerer de første n tegnene 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"Slutt Sub |
VBA venstre funksjon n første tegn i en variabel
Som vist ovenfor kan du definere en streng ved å skrive inn tekst omgitt av anførselstegn. Men LEFT -funksjonen vil også fungere med strengvariabler. Disse eksemplene trekker ut de første n -tegnene fra en strengvariabel.
| 1234567891011 | Sub VenstreEksempel_2 ()Dim StrEx As String 'Definer en strengvariabelStrEx = "ABCDEFGHI"MsgBox Venstre (StrEx, 4) 'Resultat er: "ABCD"MsgBox Venstre (StrEx, 2) 'Resultat er: "AB"MsgBox Venstre (StrEx, 1) 'Resultat er: "A"MsgBox Venstre (StrEx, 100) 'Resultat er: "ABCDEFGHI"Slutt Sub |
VBA venstre funksjon n første tegn i en celle
Strenger kan defineres i VBA -kode, men du kan også bruke verdier fra celler. Les verdien av en celle, behold den i en strengvariabel, og trekk ut n første tegn fra den regnearkcelleverdien.
| 12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Definer en strengvariabel'Les verdien av celle A1 i regnearkark1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Område ("A1"). Verdi'For dette eksemplet er verdien av celle A1 "A bCDEFGHI"MsgBox Venstre (StrEx, 4) 'Resultat er: "ABCD"MsgBox Venstre (StrEx, 2) 'Resultat er: "AB"MsgBox Venstre (StrEx, 1) 'Resultat er: "A"MsgBox Venstre (StrEx, 100) 'Resultat er: "ABCDEFGHI"Slutt Sub |
VBA venstre funksjon Trim av siste bokstav
Hvis du vil fjerne bokstaver fra enden av en streng, bruker du VENSTRE -funksjonen sammen med LEN -funksjonen.
VBA LEN -funksjonen teller antall tegn i en streng:
| 1 | Len (StrEx) |
Ved å kombinere funksjonene kan vi fjerne et visst antall tegn fra slutten av strengen:
| 123456789 | Sub LeftExample_4 ()Dim StrEx As String '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"Slutt Sub |
VBA igjen for å trekke ut fornavn
For å trekke ut fornavnet fra en streng med et fullt navn, bruker du venstrefunksjonen sammen med Instr -funksjonen.
VBA Instr -funksjonen søker etter en delstreng inne i en streng og returnerer posisjonsnummeret til delstrengen.
| 1 | InStr (StrEx, "") |
Ved å kombinere funksjonene kan vi trekke ut det første ordet fra en setning:
| 12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Definer en strengvariabelStrEx = "Alexander Graham Bell"MsgBox Venstre (StrEx, InStr (StrEx, ""))'Resultatet er: "Alexander" (legg merke til mellomrommet til slutt)MsgBox Venstre (StrEx, InStr (StrEx, "") - 1)'Resultatet er: "Alexander" (INGEN plass på slutten)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'Resultatet er: 9 fordi det er plass i posisjon 9MsgBox Venstre (StrEx, InStr (StrEx, "") - 1)'Resultatet er: "Leonardo"Slutt Sub |
