Richtige Funktion in VBA Excel
Die rechte Funktion ist dieselbe wie in der Arbeitsblattfunktion und in VBA. Diese Funktion verwendet die Teilzeichenfolge einer bestimmten Zeichenfolge, die Suche erfolgt jedoch von rechts nach links von der Zeichenfolge. Dies ist eine Art Zeichenfolgenfunktion in VBA Wird mit der Funktionsmethode application.worksheet verwendet.
RECHTS Mit der Funktion in Excel VBA werden Zeichen von der rechten Seite der angegebenen Textwerte extrahiert. In Excel haben wir viele Textfunktionen, um mit textbasierten Daten umzugehen. Einige der nützlichen Funktionen sind LEN, LEFT, RIGHT, MID, um Zeichen aus den Textwerten zu extrahieren. Das häufigste Beispiel für die Verwendung dieser Funktionen ist das Extrahieren des Vor- und Nachnamens getrennt vom vollständigen Namen.
Die RECHTE Formel befindet sich auch im Arbeitsblatt. In VBA müssen wir uns auf die Arbeitsblatt-Funktionsklasse verlassen, um auf die VBA RIGHT-Funktion zugreifen zu können. Vielmehr haben wir die integrierte RIGHT-Funktion auch in VBA.
Schauen Sie sich nun die folgende Syntax der VBA RIGHT-Formel an.
- Zeichenfolge: Dies ist unser Wert, und aus diesem Wert versuchen wir, die Zeichen von der rechten Seite der Zeichenfolge zu extrahieren.
- Länge: Aus der angegebenen Zeichenfolge , wie viele Zeichen wir benötigen. Wenn wir vier Zeichen von der rechten Seite benötigen, können wir das Argument als 4 angeben.
Wenn die Zeichenfolge beispielsweise "Mobiltelefon" lautet und wir nur das Wort "Telefon" extrahieren möchten, können wir das folgende Argument angeben.
RECHTS ("Handy", 5)
Der Grund, warum ich 5 erwähnt habe, weil das Wort "Telefon" 5 Buchstaben enthält. Im nächsten Abschnitt des Artikels werden wir sehen, wie wir es in VBA verwenden können.
Beispiele für die Excel VBA Right-Funktion
Im Folgenden finden Sie Beispiele für Right Function VBA Excel.
Beispiel 1
Ich werde Ihnen ein einfaches Beispiel zeigen, um das Verfahren zu starten. Angenommen, Sie haben die Zeichenfolge "New York". Wenn Sie 3 Zeichen von rechts extrahieren möchten, führen Sie die folgenden Schritte aus, um den Code zu schreiben.
Schritt 1: Deklarieren Sie die Variable als VBA-String.
Code:
Sub Right_Example1 () Dim k As String End Sub
Schritt 2: Für diese Variable weisen wir den Wert durch Anwenden der RECHTS-Funktion zu.
Code:
Sub Right_Example1 () Dim k As String k = Right (End Sub
Schritt 3: Das erste Argument ist String, und unser String für dieses Beispiel lautet "New York".
Code:
Sub Right_Example1 () Dim k As String k = Right ("New York", End Sub
Schritt 4: Als nächstes sehen Sie, wie viele Zeichen wir aus der angegebenen Zeichenfolge benötigen. In diesem Beispiel benötigen wir 3 Zeichen.
Code:
Sub Right_Example1 () Dim k As String k = Right ("New York", 3) End Sub
Schritt 5: Wir müssen uns mit zwei Argumenten befassen, also sind wir fertig. Weisen Sie nun den Wert dieser Variablen im Meldungsfeld in VBA zu.
Code:
Sub Right_Example1 () Dim k As String k = Right ("New York", 3) MsgBox k End Sub
Führen Sie den Code mit der Taste F5 oder manuell aus und sehen Sie das Ergebnis in einem Meldungsfeld.
Im Wort "New York" auf der rechten Seite sind 3 Zeichen "Ork".
Jetzt werde ich die Länge von 3 auf 4 ändern, um den vollen Wert zu erhalten.
Code:
Sub Right_Example1 () Dim k As String k = Right ("New York", 4) MsgBox k End Sub
Führen Sie diesen Code manuell oder mit der Taste F5 aus. Dann werden wir "York" bekommen.
Beispiel 2
Schauen Sie sich nun ein weiteres Beispiel an. Betrachten Sie diesmal den Zeichenfolgenwert als "Michael Clarke".
Wenn Sie die Länge als 6 angeben, erhalten wir als Ergebnis "Clarke".
Code:
Sub Right_Example1 () Dim k As String k = Right ("Michael Clarke", 6) MsgBox k End Sub
Führen Sie diesen Code mit der Taste F5 oder manuell aus, um das Ergebnis anzuzeigen.
Dynamische Rechtsfunktion in 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 As String Dim L As String Dim S As String Dim a As Integer Für a = 2 bis 5 L = Len (Zellen (a, 1) .Wert) S = InStr (1, Zellen (a, 1) ) .Wert, "") Zellen (a, 2) .Wert = Rechts (Zellen (a, 1), L - S) Weiter a End Sub
Das Ergebnis dieses Codes ist wie folgt.
