Rätt funktion i VBA Excel
Högerfunktion är densamma som i både kalkylfunktionen och VBA, användningen av den här funktionen är att den ger oss strängen från en given sträng men sökningen görs från höger till vänster om strängen, detta är en typ av strängfunktion i VBA används med application.worksheet funktionsmetod.
RIGHT-funktionen i Excel VBA används för att extrahera tecken från höger sida av de medföljande textvärdena. I Excel har vi många textfunktioner för att hantera textbaserad data. Några av de användbara funktionerna är LEN, VÄNSTER, HÖGER, MID-funktionen för att extrahera tecken från textvärdena. Det vanliga exemplet med att använda dessa funktioner är att extrahera förnamn och efternamn separat från hela namnet.
Rätt formel finns också i kalkylbladet. I VBA måste vi förlita oss på arbetsbladets funktionsklass för att komma åt VBA RIGHT-funktionen; snarare har vi också den inbyggda RIGHT-funktionen i VBA.
Ta nu en titt på nedanstående syntax för VBA RIGHT-formeln.
- Sträng: Detta är vårt värde och från detta värde försöker vi extrahera tecknen från strängens högra sida.
- Längd: Från den medföljande strängen, hur många tecken vi behöver. Om vi behöver fyra tecken från höger sida kan vi ange argumentet som 4.
Till exempel, om strängen är "Mobiltelefon" och om vi bara vill extrahera ordet "Telefon" kan vi ange argumentet enligt nedan.
HÖGER (“Mobiltelefon”, 5)
Anledningen till att jag nämnde 5 eftersom ordet "Telefon" har 5 bokstäver i sig. I nästa avsnitt av artikeln kommer vi att se hur vi kan använda den i VBA.
Exempel på Excel VBA Right-funktion
Följande är exempel på Right Function VBA Excel.
Exempel 1
Jag visar ett enkelt exempel för att inleda förfarandet. Antag att du har strängen "New York" och om du vill extrahera 3 tecken från höger, följ stegen nedan för att skriva koden.
Steg 1: Förklara variabeln som VBA-sträng.
Koda:
Sub Right_Example1 () Dim k Som strängänd Sub
Steg 2: Nu, för denna variabel, tilldelar vi värdet genom att använda RIGHT-funktionen.
Koda:
Sub Right_Example1 () Dim k As String k = Right (End Sub
Steg 3: Det första argumentet är String, och vår sträng för detta exempel är "New York."
Koda:
Sub Right_Example1 () Dim k As String k = Right ("New York", End Sub
Steg 4: Nästa är hur många tecken vi behöver från den medföljande strängen. I det här exemplet behöver vi tre tecken.
Koda:
Sub Right_Example1 () Dim k As String k = Right ("New York", 3) End Sub
Steg 5: Vi har två argument att hantera, så vi är klara. Tilldela nu värdet på denna variabel i meddelandefältet i VBA.
Koda:
Sub Right_Example1 () Dim k As String k = Right ("New York", 3) MsgBox k End Sub
Kör koden med F5-tangenten eller manuellt och se resultatet i en meddelandefält.
I ordet "New York" från höger sida är 3 tecken "ork."
Nu kommer jag att ändra längden från 3 till 4 för att få fullt värde.
Koda:
Sub Right_Example1 () Dim k As String k = Right ("New York", 4) MsgBox k End Sub
Kör den här koden manuellt eller med F5-tangenten. Då får vi "York".
Exempel 2
Ta nu en titt på ytterligare ett exempel, den här gången betraktar du strängvärdet som "Michael Clarke."
Om du anger längden 6 får vi "Clarke" som ett resultat.
Koda:
Sub Right_Example1 () Dim k As String k = Right ("Michael Clarke", 6) MsgBox k End Sub
Kör den här koden med F5-tangenten eller manuellt för att se resultatet.
Dynamisk högerfunktion i Excel VBA
If you observe our previous two examples, we have supplied the length argument numbers manually. But this is not the right process to do the job.
In each of the string, right-side characters are different in each case. We cannot refer to the length of the characters manually for each value differently. This where the other string function “Instr” plays a vital role.
Instr function returns the supplied character position in the supplied string value. For example, Instr (1,” Bangalore,” a”) returns the position of the letter “a” in the string “Bangalore” from the first (1) character.
In this case, the result is 2 because from the first character position of the letter “a” is the 2nd position.
If I change the starting position from 1 to 3, it will return 5.
Instr (3,” Bangalore,” a”).
The reason why it returns 5 because I mentioned the starting position to look for the letter “a” only from the 3rd letter. So the position of the second appeared “a” is 5.
So, to find the space character of each string, we can use this. Once we find the space character position, we need to minus that from the total length of the string by using LEN.
For example, in the string “New York,” the total number of characters is 8, including space, and the position of the space character is 4th. So 8-4 = 4 right will extract 4 characters from the right.
Now, look at the below code for your reference.
Code:
Sub Right_Example3() Dim k As String Dim L As String Dim S As String L = Len("Michael Clarke") S = InStr(1, "Michael Clarke", " ") k = Right("Michael Clarke", L - S) MsgBox k End Sub
In the above code variable, “L” will return 14, and the variable “S” will return 8.
In the VBA right formula, I have applied L - S, i.e., 14-8 = 6. So from right side 6 characters, i.e., “Clarke.”
Loops with Right Function in Excel VBA
When we need to apply the VBA RIGHT function with many cells, we need to include this inside the loops. For example, look at the below image.
We cannot apply many lines of the code to extract a string from the right side. So we need to include loops. The below code will do it for the above data.
Code:
Sub Right_Example4 () Dim k Som String Dim L Som String Dim S Som String Dim a Som heltal För a = 2 till 5 L = Len (Celler (a, 1). Värde) S = InStr (1, Cells (a, 1) ) .Value, "") Cells (a, 2) .Value = Right (Cells (a, 1), L - S) Next a End Sub
Resultatet av denna kod är som följer.
