Ovaj će vodič pokazati kako koristiti funkciju Right VBA za izdvajanje teksta s desne strane.
Desna funkcija
VBA Desna funkcija Zadnjih n znakova
Funkcija VBA Right vraća zadnjih n znakova iz niza:
| 123456 | Poddesno Primjer_1 ()MsgBox desno ("ABCDEFGHI", 4) 'Rezultat je: "FGHI"MsgBox desno ("ABCDEFGHI", 2) 'Rezultat je: "HI"MsgBox desno ("ABCDEFGHI", 1) 'Rezultat je: "I"MsgBox desno ("ABCDEFGHI", 100) 'Rezultat je: "ABCDEFGHI"Kraj podm |
VBA Desna funkcija Zadnjih n znakova u varijabli
Kao što je gore prikazano, niz možete definirati jednostavnim unosom teksta okruženog navodnicima. No, funkcija RIGHT također će raditi s string varijablama. Ovi primjeri će izdvojiti posljednjih n znakova iz varijable niza.
| 123456789 | Poddesno Primjer_2 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "ABCDEFGHI"MsgBox desno (StrEx, 4) 'Rezultat je: "FGHI"MsgBox desno (StrEx, 2) 'Rezultat je: "HI"MsgBox desno (StrEx, 1) 'Rezultat je: "I"MsgBox desno (StrEx, 100) 'Rezultat je: "ABCDEFGHI"Kraj podm |
VBA programiranje | Generator koda radi za vas!
VBA Desna funkcija Zadnjih n znakova iz ćelije
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 posljednjih n znakova iz te vrijednosti ćelije radnog lista.
| 123456789101112 | Poddesno Primjer_3 ()Dim StrEx As String 'Definirajte varijablu niza'Pročitajte vrijednost ćelije A1 u listu 1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value'Za ovaj primjer vrijednost ćelije A1 je "ABCDEFG hI"MsgBox desno (StrEx, 4) 'Rezultat je: "G hI"MsgBox desno (StrEx, 2) 'Rezultat je: "hI"MsgBox desno (StrEx, 1) 'Rezultat je: "I"MsgBox desno (StrEx, 100) 'Rezultat je: "ABCDEFG hI"Kraj podm |
VBA desna funkcija Odrežite prvo slovo
Da biste uklonili slova s početka niza, upotrijebite funkciju DESNO 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 početka niza:
| 12345678 | Poddesno Primjer_4 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "ABCDEF"MsgBox desno (StrEx, Len (StrEx)) 'Rezultat je: "ABCDEF"MsgBox desno (StrEx, Len (StrEx) - 1) 'Rezultat je: "BCDEF"MsgBox desno (StrEx, Len (StrEx) - 2) 'Rezultat je: "CDEF"Kraj podm |
VBA Pravo na izdvajanje teksta nakon razmaka
Da biste izvukli prezime iz niza s punim imenom, upotrijebite funkciju Right zajedno s funkcijom Len i Instr.
Funkcija VBA LEN broji broj znakova u nizu:
| 1 | Len (StrEx) |
VBA InStr funkcija traži podniz u nizu i vraća broj pozicije podniz.
| 1 | InStr (StrEx, "") |
Kombiniranjem funkcija možemo izdvojiti dio iza prvog razmaka iz fraze:
| 123456789101112131415 | Poddesno Primjer_5 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "Luke Skywalker"MsgBox desno (StrEx, Len (StrEx) - InStr (StrEx, ""))'Rezultat je: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox desno (StrEx, Len (StrEx) - InStr (StrEx, ""))'Rezultat je: "da Vinci"StrEx = "Neka Sila bude s vama"MsgBox desno (StrEx, Len (StrEx) - InStr (StrEx, ""))'Rezultat je: "Sila s vama"Kraj podm |
Umorni ste od traženja primjera VBA koda? Isprobajte AutoMacro!
VBA Pravo na izdvajanje posljednje riječi
Da biste izvukli posljednju riječ iz niza s frazom, upotrijebite funkciju Right zajedno s funkcijom Len i InstrRev.
Kao što smo vidjeli gore, funkcija VBA LEN broji broj znakova u nizu:
| 1 | Len (StrEx) |
VBA InStrRev funkcija traži podniz u nizu i vraća broj pozicije podniz. Pokreće pretraživanje s kraja fraze (zdesna nalijevo), ali vraća poziciju s početka niza (slijeva nadesno).
| 1 | InStrRev (StrEx, "") |
Kombiniranjem funkcija možemo izdvojiti dio iza zadnjeg razmaka iz fraze:
| 123456789101112131415 | Poddesno Primjer_6 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "Luke Skywalker"MsgBox desno (StrEx, Len (StrEx) - InStrRev (StrEx, ""))'Rezultat je: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox desno (StrEx, Len (StrEx) - InStrRev (StrEx, ""))'Rezultat je: "da Vinci"StrEx = "Neka Sila bude s vama"MsgBox desno (StrEx, Len (StrEx) - InStrRev (StrEx, ""))'Rezultat je: "ti"Kraj podm |
