VBA bal funkció - Hogyan kell használni az Excel VBA bal funkciót?

Tartalomjegyzék

Excel VBA balra

Excel VBA balra

A VBA Left szintén az egyik munkalapfüggvény, amelyet a szöveges függvények alá sorolnak, és amelyet a VBA használ az alkalmazással. munkalap metódus, a megadott számú karaktert adja vissza a karakterlánc bal oldalán.

Néhány excel funkció integrálva van a VBA-val is. A sok szöveges függvény közül a VBA LEFT egyike azoknak a funkcióknak, amelyeket gyakran használunk, mint más képleteket.

Ha ismeri az excel LEFT függvényt, akkor a VBA LEFT függvény pontosan ugyanaz. Kivonhatja a karaktereket a karakterlánc bal oldalából vagy a felhasználó által megadott értékből.

A BAL funkció szintaxisa pontosan megegyezik a munkalap függvényével.

Két érve van.

Karakterlánc: Ez nem más, mint az érték vagy a cellahivatkozás. Ebből az értékből a karaktereket kívánjuk felaprítani.
Hossz: Hány karaktert szeretne kivonni a megadott karakterláncból . Ennek numerikus értéknek kell lennie.

Hogyan kell használni az Excel VBA bal funkciót?

1. példa

Tegyük fel, hogy megvan a „Sachin Tendulkar” szó, és ebből a szóból csak az első 6 karaktert szeretné. Megmutatjuk, hogyan vonható ki balról a VBA LEFT funkciója.

1. lépés: Hozzon létre egy makrónevet, és határozza meg a változó karakterláncként.

Kód:

Bal oldali_példa1 () Dim MyValue mint karakterlánc vége Sub

2. lépés: Most rendeljen értéket ehhez a változóhoz

Kód:

Bal oldali_Példa1 () Dim MyValue As String MyValue = End Sub

3. lépés: Nyissa meg a BAL funkciót.

Kód:

Bal oldali_Példa1 () Dim MyValue mint karakterlánc MyValue = Bal (End Sub

4. lépés: Az első érv megmondja, hogy mi a karakterlánc vagy az érték. Értékünk itt a „Sachin Tendulkar”.

Kód:

Bal oldali_példa1 () Dim MyValue mint karakterlánc MyValue = Bal ("Sachin Tendulkar", End Sub

5. lépés: A hossz nem más, mint hogy hány karakterre van szükségünk balról. 6 karakter kell.

Kód:

Bal oldali_Példa1 () Dim MyValue mint karakterlánc MyValue = Bal ("Sachin Tendulkar", 6) Vége Sub

6. lépés: Az érték megjelenítése a VBA MsgBox-ban.

Kód:

Bal oldali_példa1 () Dim MyValue mint karakterlánc MyValue = Bal ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

7. lépés: Futtassa a makrót az F5 billentyűvel vagy manuálisan egy futtatási opcióval, hogy az eredmény üzenetmezőbe kerüljön.

Kimenet:

Ahelyett, hogy eredményt jelenítenénk meg egy üzenetmezőben, ezt az eredményt az excel munkalapunk egyik cellájában tárolhatjuk. Csak hozzá kell adnunk a cella referenciát és a változó értéket.

Kód:

Bal oldali_Példa1 () Dim MyValue mint karakterlánc MyValue = Bal ("Sachin Tendulkar", 6) Tartomány ("A1"). Érték = MyValue End Sub

Most, ha futtatja ezt a kódot, megkapjuk az értéket az A1 cellában.

2. példa - BAL más funkciókkal

A fenti esetben közvetlenül megadtuk a szükséges karakterek hosszát a bal irányból, de ez inkább egy vagy két értékre alkalmas. Tegyük fel, hogy az alábbiakban felsoroljuk az excel lapon szereplő értékek listáját.

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. lépés: Futtassa ezt a kódot manuálisan vagy az F5 segítségével, megkapjuk a keresztnevet.

Megkaptuk az egy név keresztnevét, de több más nevünk is van. Nem írhatunk 100 sornyi kódot a kibontáshoz, akkor hogyan tudjuk kibontani?

Itt jön a képbe a hurkok szépsége. Az alábbiakban látható a hurok kód, amely kiküszöböli az összes nem kívánt lépést, és 3 sorban tudja elvégezni a munkát.

Kód:

Bal oldali_példa2 () Dim FirstName mint karakterlánc Dim i egész számként az i = 2–9 keresztnévhez = Bal (Cellák (i, 1). Érték, InStr (1, Cellák (i, 1). Érték, "") - 1) Cellák (i, 2). Érték = Keresztnév Következő i Vége al