Fungsi Tepat di VBA Excel
Fungsi Kanan sama seperti pada fungsi lembar kerja dan VBA, penggunaan fungsi ini adalah memberi kita substring dari string yang diberikan tetapi pencarian dilakukan dari kanan ke kiri string, ini adalah jenis fungsi string di VBA digunakan dengan metode fungsi application.worksheet.
Fungsi KANAN di Excel VBA digunakan untuk mengekstrak karakter dari sisi kanan nilai teks yang diberikan. Di excel, kami memiliki banyak fungsi teks untuk menangani data berbasis teks. Beberapa fungsi yang berguna adalah fungsi LEN, LEFT, RIGHT, MID untuk mengekstrak karakter dari nilai teks. Contoh umum penggunaan fungsi ini adalah mengekstrak nama depan & nama belakang secara terpisah dari nama lengkap.
Rumus KANAN juga ada di lembar kerja. Di VBA, kita perlu mengandalkan kelas fungsi lembar kerja untuk mengakses fungsi VBA RIGHT; sebaliknya, kami memiliki fungsi KANAN bawaan di VBA juga.
Sekarang lihat sintaks di bawah ini dari rumus VBA RIGHT.
- String: Ini adalah nilai kami, dan dari nilai ini, kami mencoba mengekstrak karakter dari sisi kanan string.
- Panjang: Dari String yang disediakan , berapa banyak karakter yang kita butuhkan. Jika kita membutuhkan empat karakter dari sisi kanan, kita dapat menyediakan argumennya sebagai 4.
Misalnya, jika stringnya adalah "Ponsel" dan jika kita hanya ingin mengekstrak kata "Telepon", kita dapat memberikan argumen seperti di bawah ini.
KANAN (“Ponsel,” 5)
Alasan saya menyebutkan 5 karena kata “Telepon” memiliki 5 huruf di dalamnya. Di bagian artikel selanjutnya, kita akan melihat bagaimana kita bisa menggunakannya di VBA.
Contoh Fungsi Kanan VBA Excel
Berikut ini adalah contoh dari Right Function VBA Excel.
Contoh 1
Saya akan menunjukkan contoh sederhana untuk memulai prosesnya. Asumsikan Anda memiliki string "New York", dan jika Anda ingin mengekstrak 3 karakter dari kanan, ikuti langkah-langkah di bawah ini untuk menulis kode.
Langkah 1: Deklarasikan variabel sebagai VBA String.
Kode:
Sub Right_Example1 () Dim k Sebagai String End Sub
Langkah 2: Sekarang, untuk variabel ini, kita akan menetapkan nilainya dengan menerapkan fungsi RIGHT.
Kode:
Sub Kanan_Contoh1 () Dim k Sebagai String k = Kanan (End Sub
Langkah 3: Argumen pertama adalah String, dan string kami untuk contoh ini adalah "New York".
Kode:
Sub Right_Example1 () Dim k Sebagai String k = Right ("New York", End Sub
Langkah 4: Selanjutnya adalah berapa banyak karakter yang kita butuhkan dari string yang disediakan. Dalam contoh ini, kita membutuhkan 3 karakter.
Kode:
Sub Right_Example1 () Dim k As String k = Right ("New York", 3) End Sub
Langkah 5: Kami memiliki 2 argumen untuk ditangani, jadi kami selesai. Sekarang tetapkan nilai variabel ini di kotak pesan di VBA.
Kode:
Sub Right_Example1 () Dim k As String k = Right ("New York", 3) MsgBox k End Sub
Jalankan kode menggunakan tombol F5 atau secara manual dan lihat hasilnya di kotak pesan.
Pada kata "New York" dari sisi kanan, 3 karakter adalah "ork".
Sekarang saya akan mengubah panjang dari 3 menjadi 4 untuk mendapatkan nilai penuh.
Kode:
Sub Right_Example1 () Dim k As String k = Right ("New York", 4) MsgBox k End Sub
Jalankan kode ini secara manual atau menggunakan tombol F5. Lalu, kita akan mendapatkan "York."
Contoh # 2
Sekarang lihat satu contoh lagi, kali ini anggap nilai string sebagai "Michael Clarke."
Jika Anda memasukkan panjang 6, kita akan mendapatkan "Clarke" sebagai hasilnya.
Kode:
Sub Right_Example1 () Dim k As String k = Right ("Michael Clarke", 6) MsgBox k End Sub
Jalankan kode ini menggunakan tombol F5 atau secara manual untuk melihat hasilnya.
Fungsi Kanan Dinamis di 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 For a = 2 To 5 L = Len (Cells (a, 1) .Value) S = InStr (1, Cells (a, 1 ) .Value, "") Sel (a, 2) .Value = Kanan (Sel (a, 1), L - S) Berikutnya Sub Akhir
Hasil dari kode ini adalah sebagai berikut.
