VBA venstre funktion - Hvordan bruges Excel VBA Left-funktion?

Indholdsfortegnelse

Excel VBA venstre

Excel VBA venstre

VBA Left er også en af regnearksfunktionerne, der er kategoriseret under tekstfunktionerne, der bruges i VBA sammen med applikationen. regnearksmetode, returnerer det det angivne antal tegn fra venstre del af strengen.

Nogle af excel-funktionerne er også integreret med VBA. Af alle de mange tekstfunktioner er VBA LEFT en af de funktioner, vi bruger ret ofte end andre formler.

Hvis du kender excel LEFT-funktion, er VBA LEFT-funktionen nøjagtig den samme. Det kan udtrække tegnene fra venstre side af strengen eller værdien givet af brugeren.

Syntaksen for LEFT-funktionen er nøjagtig den samme som i regnearksfunktionen.

Det har to argumenter.

Streng: Dette er intet andet end værdien eller cellereferencen. Fra denne værdi søger vi at hugge tegnene.
Længde: Hvor mange tegn, du vil udtrække fra den streng, du har leveret. Dette skal være en numerisk værdi.

Hvordan bruges Excel VBA Left-funktion?

Eksempel nr. 1

Antag, at du har ordet "Sachin Tendulkar", og at du kun vil have de første 6 tegn fra dette ord. Vi viser, hvordan man udtrækker fra venstre ved hjælp af VENSTRE-funktionen i VBA.

Trin 1: Opret et makronavn og definer variabel som streng.

Kode:

Sub Left_Example1 () Dim MyValue As String End Sub

Trin 2: Tildel nu en værdi til denne variabel

Kode:

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

Trin 3: Åbn VENSTRE-funktionen.

Kode:

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

Trin 4: Det første argument er at fortælle, hvad der er strengen eller værdien. Vores værdi her er "Sachin Tendulkar."

Kode:

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

Trin 5: Længde er intet andet end hvor mange tegn, vi har brug for fra venstre. Vi har brug for 6 tegn.

Kode:

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

Trin 6: Vis værdien i VBA MsgBox.

Kode:

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

Trin 7: Kør makroen ved hjælp af F5-tasten eller manuelt gennem en kørselsindstilling for at få resultatet i en meddelelsesboks.

Produktion:

I stedet for at vise resultatet i en meddelelsesboks kan vi gemme dette resultat i en af cellerne i vores Excel-regneark. Vi skal bare tilføje cellereferencen og den variable værdi.

Kode:

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

Nu, hvis du kører denne kode, får vi værdien i celle A1.

Eksempel 2 - VENSTRE med andre funktioner

I ovenstående tilfælde har vi direkte leveret længden af de tegn, vi har brug for fra venstre retning, men dette er mere egnet til en eller to værdier. Antag, at nedenstående er listen over værdier, du har i dit 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

Trin 6: Kør denne kode manuelt, eller gennem F5 får vi fornavnet.

Vi fik fornavnet til det ene navn, men vi har også flere andre navne. Vi kan ikke skrive 100 linjer kode for at udtrække, hvordan udtrækker vi så?

Det er her sløjfernes skønhed kommer ind i billedet. Nedenfor er løkkekoden, som kan fjerne alle de uønskede trin og kan udføre jobbet i 3 linjer.

Kode:

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) Celler (i, 2) .Værdi = Fornavn Næste i Afslut sub