VBA vänster funktion - Hur använder jag Excel VBA Left-funktion?

Innehållsförteckning

Excel VBA vänster

Excel VBA vänster

VBA Left är också en av kalkylfunktionerna kategoriserade under de textfunktioner som används i VBA med applikationen. kalkylbladsmetod returnerar det angivna antalet tecken från den vänstra delen av strängen.

Några av Excel-funktionerna är också integrerade med VBA. Av alla de många textfunktionerna är VBA VÄNSTER en av de funktioner vi använder ganska ofta än andra formler.

Om du känner till excel LEFT-funktion är VBA LEFT-funktionen exakt densamma. Det kan extrahera tecknen från vänster sida av strängen eller värdet som ges av användaren.

Syntaxen för VÄNSTER-funktionen är exakt densamma som i kalkylbladets funktion.

Den har två argument.

Sträng: Detta är inget annat än värdet eller cellreferensen. Från detta värde vill vi hugga karaktärerna.
Längd: Hur många tecken du vill extrahera från strängen du har angett. Detta bör vara ett numeriskt värde.

Hur använder jag Excel VBA Left-funktion?

Exempel 1

Antag att du har ordet "Sachin Tendulkar" och att du bara vill ha de första 6 tecknen från detta ord. Vi visar hur man extraherar från vänster med VÄNSTER-funktionen i VBA.

Steg 1: Skapa ett makronamn och definiera variabel som sträng.

Koda:

Sub Left_Example1 () Dim MyValue As String End Sub

Steg 2: Tilldela nu ett värde till denna variabel

Koda:

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

Steg 3: Öppna VÄNSTER-funktionen.

Koda:

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

Steg 4: Det första argumentet är att berätta vad som är strängen eller värdet. Vårt värde här är "Sachin Tendulkar."

Koda:

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

Steg 5: Längd är inget annat än hur många tecken vi behöver från vänster. Vi behöver sex tecken.

Koda:

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

Steg 6: Visa värdet i VBA MsgBox.

Koda:

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

Steg 7: Kör makrot med F5-tangenten eller manuellt genom ett köralternativ för att få resultatet i en meddelandefält.

Produktion:

Istället för att visa resultatet i en meddelandefält kan vi lagra detta resultat i en av cellerna i vårt Excel-kalkylblad. Vi behöver bara lägga till cellreferensen och variabelvärdet.

Koda:

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

Nu, om du kör den här koden får vi värdet i cell A1.

Exempel # 2 - VÄNSTER med andra funktioner

I ovanstående fall har vi direkt angett längden på de tecken vi behöver från vänster riktning, men detta är mer lämpligt för ett eller två värden. Antag att nedan är listan över värden som du har i ditt excel-ark.

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

Steg 6: Kör den här koden manuellt, eller genom F5 får vi förnamnet.

Vi fick förnamnet för det ena namnet, men vi har också flera andra namn. Vi kan inte skriva 100 rader kod för att extrahera, hur extraherar vi då?

Det är här som öglornas skönhet kommer in i bilden. Nedan visas slingkoden, som kan eliminera alla oönskade steg och kan göra jobbet i tre rader.

Koda:

Under vänster_exempel2 () Dim förnamn som sträng Dim i som heltal för i = 2 till 9 Förnamn = vänster (celler (i, 1) .Värde, InStr (1, celler (i, 1) .Värde, "") - 1) Celler (i, 2) .Value = Förnamn Nästa i End Sub