VBA Excel : Mencari kata paling belakang

Jika kita lihat pada artikel Step by Step Guide: Mencari kata paling belakang, terlihat untuk mengambil kata paling belakang aja susah banget kalau menggunakan formula, udah gitu memahaminya juga nggak gampang

Cara yang paling gampang dalam mengambil kata paling belakang adalah menggunakan VBA, disamping itu juga lebih mudah dipahami karena bisa diberi komentar2 serta alur programnya tertata rapi

Coba kita buat User Defined Function dng VBA

  • Kita buka VBA Editor dengan Klik Ribbon Developer -->Visual Basic (Alt+F11)
  • Klik kanan pada workbook kita di project Explorer
  • Pilih Insert -->Module
  • Ketik code berikut ini di module yang baru diciptakan diatas

'rngtext diberi type data varian supaya bisa menangani text
'maupun reference cells
Function KataPalingBelakang(rngText As Variant)

'kita trim dulu u/ menghilangkan kelebihan spasi
rngText = Trim(rngText)

'kita gunakan instrRev untuk mencari(FIND) spasi/" "
'tapi dari belakang ke depan
pos = InStrRev(rngText, " ")

'jika ketemu
If pos > 0 Then

'ambil dari mulai posisi ketemu+1
KataPalingBelakang = Mid(rngText, pos + 1, 99)
Else

'diisi kata apa aja atau blank
'yang penting menunjukkan tidak ada kata belakang
KataPalingBelakang = "Ora Ketemu"
End If

'selesai
End Function

  • kembali ke Excel (Alt+F11)
  • Save as type : Excel Macro Enabled Workbook (xlsm)
  • Buat rumus di cells H3
  • =KataPalingBelakang(B3)
  • Fungsi ini ada di kategory user defined
  • hasilnya sama seperti jika menggunakan Formula

Bookmark the permalink.

Leave a Reply