Leva funkcija VBA - Kako uporabljati funkcijo Excel VBA Left?

Kazalo

Excel VBA levo

Excel VBA levo

VBA Left je tudi ena od funkcij delovnega lista, razvrščena v besedilne funkcije, ki se uporablja v VBA z aplikacijo. metoda delovnega lista, vrne določeno število znakov iz levega dela niza.

Nekatere funkcije excel so integrirane tudi z VBA. VBA LEFT je od vseh številnih besedilnih funkcij ena izmed tistih funkcij, ki jih uporabljamo pogosto kot druge formule.

Če poznate funkcijo excel LEFT, potem je funkcija VBA LEFT popolnoma enaka. Znake lahko izvleče iz leve strani niza ali vrednosti, ki jo je dal uporabnik.

Sintaksa funkcije LEVO je popolnoma enaka kot v funkciji delovnega lista.

Ima dva argumenta.

Niz: to ni nič drugega kot referenca vrednosti ali celice. Iz te vrednosti iščemo sekanje znakov.
Dolžina: Koliko znakov želite izvleči iz niza, ki ste ga navedli. To bi morala biti številčna vrednost.

Kako uporabljati funkcijo Excel VBA Left?

Primer # 1

Recimo, da imate besedo "Sachin Tendulkar" in želite samo prvih 6 znakov iz te besede. Pokazali bomo, kako izvleči od leve s pomočjo funkcije LEVO v VBA.

1. korak: Ustvarite ime makra in spremenljivko definirajte kot niz.

Koda:

Sub Left_Example1 () Dim MyValue kot niz na koncu Sub

2. korak: Zdaj tej spremenljivki dodelite vrednost

Koda:

Sub Left_Example1 () Zatemni MyValue kot niz MyValue = Končaj Sub

3. korak: Odprite funkcijo LEVO.

Koda:

Sub Left_Example1 () Dim MyValue kot niz MyValue = Left (End Sub

4. korak: Prvi argument je povedati, kaj je niz ali vrednost. Naša vrednost je "Sachin Tendulkar."

Koda:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", End Sub

5. korak: Dolžina ni nič drugega kot koliko znakov potrebujemo z leve. Potrebujemo 6 znakov.

Koda:

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

6. korak: Prikažite vrednost v VBA MsgBox.

Koda:

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

7. korak: Zaženite makro s tipko F5 ali ročno prek možnosti zagon, da dobite rezultat v polju za sporočila.

Izhod:

Namesto da bi rezultat prikazali v oknu za sporočila, ga lahko shranimo v eno od celic na našem Excelovem delovnem listu. Dodati moramo le referenco celice in vrednost spremenljivke.

Koda:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) Obseg ("A1"). Value = MyValue End Sub

Če zaženete to kodo, bomo dobili vrednost v celici A1.

Primer # 2 - LEVO z drugimi funkcijami

V zgornjem primeru smo dolžino znakov, ki jih potrebujemo, podali neposredno iz leve smeri, vendar je to bolj primerno za eno ali dve vrednosti. Predpostavimo, da je spodaj seznam vrednosti, ki jih imate na Excelovem 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

6. korak: Zaženite to kodo ročno ali prek F5, dobili bomo prvo ime.

Ime za eno ime smo dobili, imamo pa tudi več drugih imen. Ne moremo napisati 100 vrstic kode za ekstrakcijo, kako potem ekstrahirati?

Tu nastopi lepota zank. Spodaj je koda zanke, ki lahko odpravi vse neželene korake in opravi delo v treh vrsticah.

Koda:

Sub Left_Example2 () Dim FirstName kot niz Dim i As Integer za i = 2 do 9 FirstName = Left (Celice (i, 1) .Value, InStr (1, Celice (i, 1) .Value, "") - 1) Celice (i, 2) .Vrednost = FirstName Next i End Sub