VBA lijeva funkcija - Kako koristiti Excel VBA lijevu funkciju?

Sadržaj

Excel VBA lijevo

Excel VBA lijevo

VBA lijevo također je jedna od funkcija radnog lista kategorizirana u tekstualne funkcije koja se koristi u VBA s aplikacijom. metoda radnog lista, vraća navedeni broj znakova s lijevog dijela niza.

Neke od excel funkcija integrirane su i s VBA. Od svih mnogih tekstualnih funkcija, VBA LIJEVO jedna je od funkcija koje koristimo prilično često od ostalih formula.

Ako znate excel LEFT funkciju, tada je VBA LEFT funkcija potpuno ista. Može izvući znakove s lijeve strane niza ili vrijednost koju je dao korisnik.

Sintaksa funkcije LIJEVO potpuno je ista kao u funkciji radnog lista.

Ima dva argumenta.

Niz: Ovo nije ništa drugo nego referenca vrijednosti ili ćelije. Iz ove vrijednosti tražimo sjeckanje likova.
Duljina: Koliko znakova želite izdvojiti iz niza koji ste naveli. Ovo bi trebala biti brojčana vrijednost.

Kako koristiti Excel VBA lijevu funkciju?

Primjer # 1

Pretpostavimo da imate riječ "Sachin Tendulkar" i da želite samo prvih 6 znakova iz ove riječi. Pokazat ćemo kako izvući slijeva pomoću funkcije LIJEVO u VBA.

Korak 1: Stvorite ime makronaredbe i definirajte varijablu kao niz.

Kodirati:

Sub Left_Example1 () Zatamni MyValue kao niz na kraju Sub

Korak 2: Sada ovoj varijabli dodijelite vrijednost

Kodirati:

Sub Left_Example1 () Zatamni MyValue kao niz MyValue = Kraj Sub

Korak 3: Otvorite funkciju LIJEVO.

Kodirati:

Sub Left_Example1 () Zatamni MyValue kao niz MyValue = Lijevo (Kraj Sub

Korak 4: Prvi argument je reći koji je niz ili vrijednost. Naša vrijednost ovdje je "Sachin Tendulkar."

Kodirati:

Sub Left_Example1 () Priguši MyValue kao niz MyValue = Lijevo ("Sachin Tendulkar", Kraj Sub

Korak 5: Duljina nije ništa drugo do koliko znakova trebamo s lijeve strane. Treba nam 6 znakova.

Kodirati:

Sub Left_Example1 () Priguši MyValue kao niz MyValue = Lijevo ("Sachin Tendulkar", 6) Kraj Sub

Korak 6: Prikažite vrijednost u VBA MsgBoxu.

Kodirati:

Sub Left_Example1 () Dim MyValue As String MyValue = Lijevo ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

Korak 7: Pokrenite makronaredbu pomoću tipke F5 ili ručno kroz opciju pokretanja da biste dobili rezultat u okviru s porukom.

Izlaz:

Umjesto prikazivanja rezultata u okviru za poruke, taj rezultat možemo pohraniti u jednu od ćelija na našem radnom listu Excel. Samo trebamo dodati referencu na ćeliju i vrijednost varijable.

Kodirati:

Sub Left_Example1 () Priguši MyValue kao niz MyValue = Lijevo ("Sachin Tendulkar", 6) Raspon ("A1"). Vrijednost = MyValue End Sub

Sada, ako pokrenete ovaj kod, dobit ćemo vrijednost u ćeliji A1.

Primjer # 2 - LIJEVE s ostalim funkcijama

U gore navedenom slučaju izravno smo naveli duljinu znakova koji su nam potrebni iz lijevog smjera, ali to je prikladnije za jednu ili dvije vrijednosti. Pretpostavimo da je dolje popis vrijednosti koje imate u svom excel listu.

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left( End Sub

Step 3: Here, we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function, don’t enter the length of the characters manually. Apply the Instr function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

Korak 6: Pokrenite ovaj kod ručno ili ćemo dobiti F5, dobit ćemo prvo ime.

Dobili smo prvo ime za jedno ime, ali imamo i nekoliko drugih imena. Ne možemo napisati 100 redaka koda za izdvajanje, kako onda izvaditi?

Tu dolazi do izražaja ljepota petlji. Ispod je kôd petlje koji može ukloniti sve neželjene korake i može obaviti posao u 3 retka.

Kodirati:

Sub Left_Example2 () Dim FirstName kao niz Dim Dim As As Integer For i = 2 do 9 FirstName = Left (Cells (i, 1) .Value, InStr (1, Cells (i, 1) .Value, "") - 1) Ćelije (i, 2) .Vrijednost = ImeSljedeće i Kraj Sub