Ľavá funkcia VBA - Ako používať ľavú funkciu Excel VBA?

Obsah

Excel VBA vľavo

Excel VBA vľavo

VBA Left je tiež jednou z funkcií pracovného hárka kategorizovaných pod textové funkcie, ktoré sa používajú vo VBA s aplikáciou. metóda listu, vráti zadaný počet znakov z ľavej časti reťazca.

Niektoré z funkcií programu Excel sú integrované aj do VBA. Spomedzi všetkých textových funkcií je VBA LEFT jednou z tých funkcií, ktoré používame pomerne často ako iné vzorce.

Ak viete, že je funkcia Excel LEFT, potom je funkcia VBA LEFT úplne rovnaká. Môže extrahovať znaky z ľavej strany reťazca alebo hodnoty zadanej používateľom.

Syntax funkcie LEFT je úplne rovnaká ako vo funkcii listu.

Má dva argumenty.

Reťazec: Toto nie je nič iné ako hodnota alebo odkaz na bunku. Z tejto hodnoty hľadáme sekanie postáv.
Dĺžka: Koľko znakov chcete extrahovať z reťazca, ktorý ste zadali. Malo by ísť o číselnú hodnotu.

Ako používať ľavú funkciu Excel VBA?

Príklad č

Predpokladajme, že máte slovo „Sachin Tendulkar“ a chcete od neho iba prvých 6 znakov. Ukážeme si, ako extrahovať zľava pomocou funkcie LEFT vo VBA.

Krok 1: Vytvorte názov makra a definujte premennú ako reťazec.

Kód:

Sub Left_Example1 () Dim MyValue ako String End Sub

Krok 2: Teraz tejto premennej priraďte hodnotu

Kód:

Sub Left_Example1 () Dim MyValue As String MyValue = End Sub

Krok 3: Otvorte funkciu LEFT.

Kód:

Sub Left_Example1 () Dim MyValue As String MyValue = Left (End Sub

Krok 4: Prvým argumentom je povedať, čo je reťazec alebo hodnota. Naša hodnota je tu „Sachin Tendulkar“.

Kód:

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

Krok 5: Dĺžka nie je nič iné ako to, koľko znakov potrebujeme zľava. Potrebujeme 6 znakov.

Kód:

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

Krok 6: Zobrazte hodnotu vo VBA MsgBox.

Kód:

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

Krok 7: Spustite makro pomocou klávesu F5 alebo manuálne pomocou možnosti spustenia, aby sa výsledok zobrazil v okne so správou.

Výkon:

Namiesto zobrazenia výsledku v schránke správ môžeme tento výsledok uložiť do jednej z buniek v našom pracovnom hárku programu Excel. Musíme len pridať odkaz na bunku a hodnotu premennej.

Kód:

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

Teraz, ak spustíte tento kód, dostaneme hodnotu v bunke A1.

Príklad č. 2 - VĽAVO s inými funkciami

V uvedenom prípade sme priamo zadali dĺžku znakov, ktoré potrebujeme, zľava, ale to je vhodnejšie pre jednu alebo dve hodnoty. Nižšie uvádzajme zoznam hodnôt, ktoré máte vo svojom excelovom hárku.

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

Krok 6: Spustite tento kód manuálne alebo pomocou klávesu F5 získame krstné meno.

Dostali sme krstné meno pre jedno meno, ale máme aj niekoľko ďalších mien. Nemôžeme napísať 100 riadkov kódu, aby sme ich extrahovali, ako to potom extrahujeme?

To je miesto, kde do obrazu vstupuje krása slučiek. Nižšie je uvedený kód slučky, ktorý dokáže eliminovať všetky nechcené kroky a dokáže prácu vykonať v 3 riadkoch.

Kód:

Sub Left_Example2 () Dim FirstName As String Dim i As Integer For i = 2 To 9 FirstName = Left (Cells (i, 1) .Value, InStr (1, Cells (i, 1) .Value, "") - 1) Bunky (i, 2). Hodnota = Meno Ďalej i Koniec Sub