Ovaj će vodič pokazati kako se koristi lijeva VBA funkcija.
Lijeva funkcija
Funkcija VBA Left vraća prvih n znakova iz niza.
VBA lijeva funkcija n Prvi znakovi
Funkcija VBA Left vraća prvih n znakova iz niza:
123456 | Podlijevo Primjer_1 ()MsgBox lijevo ("ABCDEFGHI", 4) 'Rezultat je: "ABCD"MsgBox lijevo ("ABCDEFGHI", 2) 'Rezultat je: "AB"MsgBox lijevo ("ABCDEFGHI", 1) 'Rezultat je: "A"MsgBox lijevo ("ABCDEFGHI", 100) 'Rezultat je: "ABCDEFGHI"Kraj podm |
VBA lijeva funkcija n Prvi znakovi u varijabli
Kao što je gore prikazano, niz možete definirati jednostavnim unosom teksta okruženog navodnicima. No, funkcija LEFT također će raditi s string varijablama. Ovi će primjeri izdvojiti prvih n znakova iz varijable niza.
1234567891011 | Podlijevo Primjer_2 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "ABCDEFGHI"MsgBox lijevo (StrEx, 4) 'Rezultat je: "ABCD"MsgBox lijevo (StrEx, 2) 'Rezultat je: "AB"MsgBox lijevo (StrEx, 1) 'Rezultat je: "A"MsgBox lijevo (StrEx, 100) 'Rezultat je: "ABCDEFGHI"Kraj podm |
VBA lijeva funkcija n Prvi znakovi u ćeliji
Nizovi se mogu definirati u VBA kodu, ali možete koristiti i vrijednosti iz ćelija. Pročitajte vrijednost ćelije, zadržite je u string varijabli i izvucite n prvih znakova iz te vrijednosti ćelije radnog lista.
12345678910111213 | Podlijevo Primjer_3 ()Dim StrEx As String 'Definirajte varijablu niza'Pročitajte vrijednost ćelije A1 u listu 1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value'U ovom primjeru vrijednost ćelije A1 je "A bCDEFGHI"MsgBox lijevo (StrEx, 4) 'Rezultat je: "ABCD"MsgBox lijevo (StrEx, 2) 'Rezultat je: "AB"MsgBox lijevo (StrEx, 1) 'Rezultat je: "A"MsgBox lijevo (StrEx, 100) 'Rezultat je: "ABCDEFGHI"Kraj podm |
VBA lijeva funkcija Odrežite posljednje slovo
Da biste uklonili slova s kraja niza, upotrijebite funkciju LIJEVO zajedno s funkcijom LEN.
Funkcija VBA LEN broji broj znakova u nizu:
1 | Len (StrEx) |
Kombiniranjem funkcija možemo ukloniti određeni broj znakova s kraja niza:
123456789 | Podlijevo Primjer_4 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "ABCDEF"MsgBox lijevo (StrEx, Len (StrEx)) 'Rezultat je: "ABCDEF"MsgBox lijevo (StrEx, Len (StrEx) - 1) 'Rezultat je: "ABCDE"MsgBox lijevo (StrEx, Len (StrEx) - 2) 'Rezultat je: "ABCD"Kraj podm |
VBA lijevo za izdvajanje imena
Da biste izvukli ime iz niza s punim imenom, upotrijebite funkciju Lijevo zajedno s funkcijom Instr.
VBA Instr funkcija traži podniz u nizu i vraća broj pozicije podniz.
1 | InStr (StrEx, "") |
Kombiniranjem funkcija možemo izvući prvu riječ iz fraze:
12345678910111213141516171819 | Podlijevo Primjer_5 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "Alexander Graham Bell"MsgBox lijevo (StrEx, InStr (StrEx, ""))'Rezultat je: "Alexander" (primijetite razmak na kraju)MsgBox lijevo (StrEx, InStr (StrEx, "") - 1)'Rezultat je: "Alexander" (NEMA razmaka na kraju)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'Rezultat je: 9 jer se nalazi prostor na položaju 9MsgBox lijevo (StrEx, InStr (StrEx, "") - 1)'Rezultat je: "Leonardo"Kraj podm |