Ta vadnica bo pokazala, kako uporabljati funkcijo Left VBA.
Leva funkcija
Funkcija VBA Left vrne prvih n znakov iz niza.
Leva funkcija VBA n Prvi znaki
Funkcija VBA Left vrne prvih n znakov iz niza:
| 123456 | Podlevoprimer_1 ()MsgBox levo ("ABCDEFGHI", 4) 'Rezultat je: "ABCD"MsgBox Levo ("ABCDEFGHI", 2) 'Rezultat je: "AB"MsgBox Levo ("ABCDEFGHI", 1) 'Rezultat je: "A"MsgBox levo ("ABCDEFGHI", 100) "Rezultat je:" ABCDEFGHI "End Sub |
Leva funkcija VBA n Prvi znaki v spremenljivki
Kot je prikazano zgoraj, lahko niz preprosto definirate tako, da vnesete besedilo, obdano z narekovaji. Toda funkcija LEFT bo delovala tudi s spremenljivkami niza. Ti primeri bodo izvlekli prvih n znakov iz spremenljivke niza.
| 1234567891011 | Spodaj LevoPrimer_2 ()Dim StrEx As String 'Določite spremenljivko nizaStrEx = "ABCDEFGHI"MsgBox Levo (StrEx, 4) 'Rezultat je: "ABCD"MsgBox Levo (StrEx, 2) 'Rezultat je: "AB"MsgBox Levo (StrEx, 1) 'Rezultat je: "A"MsgBox Levo (StrEx, 100) 'Rezultat je: "ABCDEFGHI"End Sub |
Leva funkcija VBA n Prvi znaki v celici
Niz je mogoče definirati v kodi VBA, lahko pa uporabite tudi vrednosti iz celic. Preberite vrednost celice, jo hranite v spremenljivki niza in izvlecite n prvih znakov iz te vrednosti celice delovnega lista.
| 12345678910111213 | PodlevoPrimer_3 ()Dim StrEx As String 'Določite spremenljivko niza'Preberite vrednost celice A1 na listu delovnega lista1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value"V tem primeru je vrednost celice A1" A bCDEFGHI "MsgBox Levo (StrEx, 4) 'Rezultat je: "ABCD"MsgBox Levo (StrEx, 2) 'Rezultat je: "AB"MsgBox Levo (StrEx, 1) 'Rezultat je: "A"MsgBox Levo (StrEx, 100) 'Rezultat je: "ABCDEFGHI"End Sub |
Leva funkcija VBA Odreži zadnjo črko
Če želite odstraniti črke s konca niza, uporabite funkcijo LEFT skupaj s funkcijo LEN.
Funkcija VBA LEN šteje število znakov v nizu:
| 1 | Len (StrEx) |
S kombinacijo funkcij lahko odstranimo določeno število znakov s konca niza:
| 123456789 | Spodaj LevoPrimer_4 ()Dim StrEx As String 'Določite spremenljivko nizaStrEx = "ABCDEF"MsgBox Levo (StrEx, Len (StrEx)) 'Rezultat je: "ABCDEF"MsgBox Levo (StrEx, Len (StrEx) - 1) 'Rezultat je: "ABCDE"MsgBox Levo (StrEx, Len (StrEx) - 2) 'Rezultat je: "ABCD"End Sub |
VBA Levo za ekstrahiranje imena
Če želite izvleči prvo ime iz niza s polnim imenom, uporabite funkcijo Left skupaj s funkcijo Instr.
Funkcija VBA Instr išče podniz v nizu in vrne številko položaja podniz.
| 1 | InStr (StrEx, "") |
S kombinacijo funkcij lahko iz stavka izvlečemo prvo besedo:
| 12345678910111213141516171819 | Spodaj levoPrimer_5 ()Dim StrEx As String 'Določite spremenljivko nizaStrEx = "Alexander Graham Bell"MsgBox levo (StrEx, InStr (StrEx, ""))"Rezultat je:" Alexander "(opazite presledek na koncu)MsgBox levo (StrEx, InStr (StrEx, "") - 1)"Rezultat je:" Alexander "(na koncu ni presledka)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")"Rezultat je: 9, ker je na položaju 9 prostorMsgBox levo (StrEx, InStr (StrEx, "") - 1)"Rezultat je:" Leonardo "End Sub |
