VBA Excel'de Sağ Fonksiyon
Sağ İşlevi, hem çalışma sayfası işlevinde hem de VBA'da olduğu gibi aynıdır, bu işlevin kullanımı bize belirli bir dizeden alt dizeyi vermesidir, ancak arama dizenin sağından soluna yapılır, bu VBA'daki bir dizi işlevidir. application.worksheet işlevi yöntemi ile kullanılır.
Sağlanan metin değerlerinin sağ tarafındaki karakterleri çıkarmak için kullanılan Excel VBA'da SAĞ İşlevi. Excel'de, metin tabanlı verilerle ilgilenmek için birçok metin işlevimiz vardır. Kullanışlı işlevlerden bazıları, metin değerlerinden karakterleri çıkarmak için UZUNLUK, SOL, SAĞ, ORTA işlevidir. Bu işlevleri kullanmanın yaygın örneği, adı ve soyadı tam addan ayrı olarak çıkarmaktır.
DOĞRU formül de çalışma sayfasında var. VBA'da VBA RIGHT işlevine erişmek için çalışma sayfası işlev sınıfına güvenmemiz gerekir, bunun yerine VBA'da yerleşik RIGHT işlevine de sahibiz.
Şimdi VBA RIGHT formülünün aşağıdaki sözdizimine bir göz atın.
- String: Bu bizim değerimiz ve bu değerden karakterleri dizenin sağ tarafından çıkarmaya çalışıyoruz.
- Uzunluk: Sağlanan dizeden kaç karaktere ihtiyacımız var. Sağ taraftan dört karaktere ihtiyacımız varsa, argümanı 4 olarak sağlayabiliriz.
Örneğin, dizge “Cep Telefonu” ise ve sadece “Telefon” kelimesini çıkarmak istiyorsak aşağıdaki gibi argümanı sağlayabiliriz.
SAĞ ("Cep Telefonu", 5)
5'ten bahsetmemin nedeni, "Telefon" kelimesinin içinde 5 harf olması. Yazının sonraki bölümünde VBA'da nasıl kullanabileceğimizi göreceğiz.
Excel VBA Sağ Fonksiyonu Örnekleri
Aşağıdakiler Sağ İşlev VBA Excel'in örnekleridir.
Bu VBA Sağ Fonksiyon Excel Şablonunu buradan indirebilirsiniz - VBA Sağ Fonksiyon Excel Şablonu
Örnek 1
İşlemlere başlamak için size basit bir örnek göstereceğim. "New York" dizesine sahip olduğunuzu varsayın ve sağdan 3 karakter çıkarmak istiyorsanız, kodu yazmak için aşağıdaki adımları izleyin.
Adım 1: Değişkeni VBA Dizesi olarak bildirin.
Kod:
Alt Sağ_Örnek1 () Dim k As String End Sub
Adım 2: Şimdi bu değişken için, RIGHT fonksiyonunu uygulayarak değeri atayacağız.
Kod:
Alt Sağ_Örnek1 () Dim k As String k = Right (End Sub
Adım 3: İlk argüman String'dir ve bu örnek için dizemiz "New York" dur.
Kod:
Alt Sağ_Örnek1 () Dim k As String k = Sağ ("New York", End Sub 
Adım 4: Sıradaki, sağlanan dizeden kaç karaktere ihtiyacımız olduğudur. Bu örnekte 3 karaktere ihtiyacımız var.
Kod:
Alt Sağ_Örnek1 () Dim k As String k = Right ("New York", 3) End Sub 
Adım 5: Çözmemiz gereken 2 argüman var, yani işimiz bitti. Şimdi bu değişkenin değerini VBA'daki mesaj kutusuna atayın.
Kod:
Alt Sağ_Örnek1 () Dim k As String k = Right ("New York", 3) MsgBox k End Sub 
Kodu F5 tuşunu kullanarak veya manuel olarak çalıştırın ve sonucu bir mesaj kutusunda görün.
Sağ taraftaki “New York” kelimesinde 3 karakter “ork” dur.
Şimdi tam değeri elde etmek için uzunluğu 3'ten 4'e değiştireceğim.
Kod:
Alt Sağ_Örnek1 () Dim k As String k = Right ("New York", 4) MsgBox k End Sub 
Bu kodu manuel olarak veya F5 tuşunu kullanarak çalıştırın, ardından “York” alacağız.
Örnek 2
Şimdi bir örneğe daha bakın, bu sefer dize değerini "Michael Clarke" olarak düşünün.
Uzunluğu 6 olarak verirseniz, sonuç olarak "Clarke" alacağız.
Kod:
Alt Sağ_Örnek1 () Dim k As String k = Right ("Michael Clarke", 6) MsgBox k End Sub 
Sonucu görmek için bu kodu F5 tuşunu kullanarak veya manuel olarak çalıştırın.
Excel VBA'da Dinamik Sağ Fonksiyon
Önceki iki örneğimizi gözlemlerseniz, uzunluk bağımsız değişken numaralarını manuel olarak sağladık. Ancak bu, işi yapmak için doğru süreç değil.
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”) return 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 the of each string we can use this. Once we find the space character position we need to minus that from a 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 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 For a = 2 To 5 L = Len(Cells(a, 1).Value) S = InStr(1, Cells(a, 1).Value, " ") Cells(a, 2).Value = Right(Cells(a, 1), L - S) Next a End Sub
The result of this code is as follows.
