Kapan Fungsi Right Dibutuhkan?
Tidak semua informasi penting berada di awal sebuah teks. Dalam banyak kasus, justru bagian akhir string yang berisi informasi yang ingin diambil.
Misalnya:
-
kode produk PRD-00125, Anda hanya membutuhkan 00125;
-
nomor invoice INV-2026-00015, Anda ingin mengambil 00015;
-
ekstensi file Laporan.xlsx, Anda ingin mengetahui bahwa file tersebut bertipe xlsx;
-
nomor telepon, Anda hanya ingin mengambil empat digit terakhir.
Untuk kebutuhan seperti ini, VBA menyediakan fungsi Right.
Apa Itu Fungsi Right?
Right adalah fungsi string yang digunakan untuk mengambil sejumlah karakter dari sisi kanan sebuah teks.
Fungsi ini merupakan pasangan dari fungsi Left, tetapi bekerja dari arah yang berlawanan.
Sintaks Fungsi Right
Sintaks umum fungsi Right adalah sebagai berikut.
Right(String, Length)
Keterangan:
-
String adalah teks yang akan diproses.
-
Length adalah jumlah karakter yang ingin diambil dari sebelah kanan.
Cara Kerja Fungsi Right
Misalkan terdapat teks berikut.
Microsoft Excel
Kemudian dijalankan kode:
Right("Microsoft Excel", 5)
Hasilnya:
Excel
Fungsi Right mulai menghitung karakter dari sisi paling kanan.
Contoh Dasar
Sub ContohRight()
MsgBox Right("Belajar VBA", 3)
End Sub
Hasil:
VBA
Mengambil Karakter dari Isi Sel
Sub AmbilKode()
MsgBox Right(Range("A1").Value, 5)
End Sub
Jika sel A1 berisi:
PRD-00125
hasilnya:
00125
Menggunakan Variabel
Sub ContohVariabel()
Dim Invoice As String
Invoice = "INV-2026-00015"
MsgBox Right(Invoice, 5)
End Sub
Output:
00015
Jika Jumlah Karakter Terlalu Besar
Perhatikan contoh berikut.
Right("Excel", 10)
Hasilnya:
Excel
Jika jumlah karakter yang diminta melebihi panjang string, VBA akan mengembalikan seluruh isi teks tanpa menghasilkan kesalahan.
Menggunakan Right Bersama Len
Sebelum mengambil karakter dari kanan, Anda dapat memeriksa panjang teks.
Sub Contoh()
Dim Kode As String
Kode = Range("A1").Value
If Len(Kode) >= 5 Then
MsgBox Right(Kode, 5)
End If
End Sub
Pendekatan ini membuat proses manipulasi data menjadi lebih aman.
Menggunakan Right Bersama Trim
Data berikut memiliki spasi di akhir.
PRD-00125
Jika langsung diproses:
Right(Range("A1").Value, 5)
hasilnya dapat mengandung karakter spasi.
Lebih baik gunakan:
Right(Trim(Range("A1").Value), 5)
Mengambil Ekstensi File
Misalkan terdapat nama file.
Laporan.xlsx
Untuk mengambil ekstensi file.
Sub EkstensiFile()
MsgBox Right("Laporan.xlsx", 4)
End Sub
Hasil:
xlsx
Studi Kasus
Perusahaan menggunakan nomor transaksi dengan format berikut.
TRX-2026-000321
Enam karakter terakhir merupakan nomor transaksi.
Sub NomorTransaksi()
Dim Kode As String
Kode = Range("A2").Value
MsgBox Right(Kode, 6)
End Sub
Hasil:
000321
Right vs Left vs Mid
Ketiga fungsi ini memiliki kegunaan yang berbeda.
| Fungsi | Mengambil Karakter |
|---|---|
Left |
Dari sebelah kiri |
Right |
Dari sebelah kanan |
Mid |
Dari posisi tertentu |
Pilih fungsi sesuai dengan lokasi informasi yang ingin diambil.
Menggunakan Right Bersama InStrRev
Misalkan Anda ingin mengambil nama file tanpa folder.
C:\Dokumen\Laporan.xlsx
Dim Lokasi As String
Lokasi = "C:\Dokumen\Laporan.xlsx"
MsgBox Right(Lokasi, Len(Lokasi) - InStrRev(Lokasi, "\"))
Hasil:
Laporan.xlsx
Kombinasi Right, Len, dan InStrRev sering digunakan dalam pengolahan path file.
Kesalahan yang Sering Terjadi
Salah Menentukan Jumlah Karakter
Misalnya:
Right("INV-2026", 4)
Hasilnya:
2026
Jika hanya membutuhkan dua digit terakhir, gunakan nilai 2, bukan 4.
Tidak Menghapus Spasi
Data hasil impor sering memiliki spasi di akhir.
Gunakan:
Right(Trim(Teks), 5)
agar hasil yang diperoleh sesuai.
Menggunakan Right untuk Mengambil Karakter Tengah
Right hanya mengambil karakter dari bagian akhir string.
Jika ingin mengambil karakter di tengah, gunakan fungsi Mid.
Tips Praktis
💡 Gunakan Right untuk mengambil nomor urut, kode, atau informasi yang berada di bagian akhir teks.
💡 Kombinasikan Right dengan Len agar proses manipulasi data lebih aman.
💡 Gunakan Trim sebelum Right untuk menghilangkan spasi yang tidak diperlukan.
💡 Padukan Right dengan InStrRev untuk mengambil nama file atau folder dari sebuah path.
💡 Hindari menuliskan jumlah karakter secara berulang. Jika nilainya tetap, simpan dalam konstanta (Const) agar kode lebih mudah dipelihara.
Ringkasan
| Fungsi | Kegunaan |
|---|---|
Right |
Mengambil karakter dari sebelah kanan |
Right + Len |
Memastikan panjang teks sebelum diproses |
Right + Trim |
Menghilangkan spasi di awal dan akhir |
Right + InStrRev |
Mengambil teks setelah karakter terakhir tertentu |
Kesimpulan
Right merupakan fungsi string yang digunakan untuk mengambil sejumlah karakter dari sisi kanan sebuah teks. Fungsi ini sangat berguna untuk mengekstrak informasi seperti nomor transaksi, kode produk, digit terakhir nomor telepon, atau ekstensi file. Dengan mengombinasikannya bersama Len, Trim, dan InStrRev, Anda dapat membuat proses pengolahan teks di VBA Excel menjadi lebih efisien, akurat, dan mudah dipahami.
