Venstre VBA-funksjon - Hvordan bruker jeg Excel VBA Left-funksjon?

Innholdsfortegnelse

Excel VBA venstre

Excel VBA venstre

VBA Left er også en av regnearkfunksjonene kategorisert under tekstfunksjonene som brukes i VBA med applikasjonen. regnearkmetoden, returnerer det angitte antall tegn fra venstre del av strengen.

Noen av excel-funksjonene er også integrert med VBA. Av alle de mange tekstfunksjonene er VBA LEFT en av de funksjonene vi bruker ganske ofte enn andre formler.

Hvis du kjenner excel LEFT-funksjon, er VBA LEFT-funksjon nøyaktig den samme. Det kan trekke ut tegnene fra venstre side av strengen eller verdien gitt av brukeren.

Syntaksen til VENSTRE-funksjonen er nøyaktig den samme som i regnearkfunksjonen.

Den har to argumenter.

Streng: Dette er ingenting annet enn verdien eller cellereferansen. Fra denne verdien ønsker vi å hugge karakterene.
Lengde: Hvor mange tegn du vil trekke ut fra strengen du har levert. Dette skal være en numerisk verdi.

Hvordan bruker jeg Excel VBA Left-funksjon?

Eksempel 1

Anta at du har ordet “Sachin Tendulkar” og at du bare vil ha de seks første tegnene fra dette ordet. Vi vil vise hvordan du trekker ut fra venstre ved hjelp av VENSTRE-funksjonen i VBA.

Trinn 1: Opprett et makronavn og definer variabel som streng.

Kode:

Sub Left_Example1 () Dim MyValue As String End Sub

Trinn 2: Nå tilordne en verdi til denne variabelen

Kode:

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

Trinn 3: Åpne VENSTRE-funksjonen.

Kode:

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

Trinn 4: Det første argumentet er å fortelle hva som er strengen eller verdien. Vår verdi her er "Sachin Tendulkar."

Kode:

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

Trinn 5: Lengde er ikke annet enn hvor mange tegn vi trenger fra venstre. Vi trenger 6 tegn.

Kode:

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

Trinn 6: Vis verdien i VBA MsgBox.

Kode:

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

Trinn 7: Kjør makroen ved hjelp av F5-tasten eller manuelt gjennom et alternativ for å få resultatet i en meldingsboks.

Produksjon:

I stedet for å vise resultatet i en meldingsboks, kan vi lagre dette resultatet i en av cellene i Excel-regnearket. Vi trenger bare å legge til cellereferanse og variabel verdi.

Kode:

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

Nå, hvis du kjører denne koden, får vi verdien i celle A1.

Eksempel 2 - VENSTRE med andre funksjoner

I tilfelle ovenfor har vi direkte levert lengden på tegnene vi trenger fra venstre retning, men dette er mer egnet for en eller to verdier. Anta at nedenfor er listen over verdier du har i excel-arket ditt.

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

Trinn 6: Kjør denne koden manuelt, eller gjennom F5 får vi fornavnet.

Vi fikk fornavnet til det ene navnet, men vi har også flere andre navn. Vi kan ikke skrive 100 linjer med kode for å trekke ut, hvordan pakker vi ut?

Det er her skjønnheten til sløyfer kommer inn i bildet. Nedenfor er sløyfekoden, som kan eliminere alle uønskede trinn og kan gjøre jobben i tre 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) .Value = FirstName Neste i End Sub