Pada posting sebelumnya sudah diulas bagaimana mengekstrak angka dari suatu teks di file excel dengan menggunakan macro. Kali ini dengan teknik yang hampir sama, akan ditunjukkan bagaimana jika huruf yang ingin kita ekstrak dari teks yang memiliki variasi angka dan huruf.
Yang anda perlu lakukan pertama-tama adalah menuliskan script VBA di bawah pada Visual Basic Editor pada Excel Anda:
Function EkstrakHuruf(teks)
For lenstr = 1 To Len(teks)
Select Case Asc(Mid(teks, lenstr, 1))
Case 65 To 90
EkstrakHuruf = EkstrakHuruf & Mid(teks, lenstr, 1)
Case 97 To 122
EkstrakHuruf = EkstrakHuruf & Mid(teks, lenstr, 1)
End Select
Next
End Function
Setelah itu anda tinggal menggunakan formula = EkstrakHuruf(Cell Teks) pada cell dimana anda ingin memperoleh hasil ekstrak huruf dari sebuah teks (seperti contoh gambar diatas).
Lalu lihat hasilnya.. ya anda telah berhasil mengekstrak huruf dari variasi angka dan huruf.
Mudah kan. Jika kita mengerjakan perkerjaan dengan excel tanpa bantuan macro dan formula (Kerja Manual) bisa berjam-jam. Tapi jika kita menguasai Macro, dan Trik-trik Excel Lainnya pekerjaan berjam-jam itu dapat kita selesaikan hanya dalam hitungan menit. Menyenangkan bukan? Selamat Mencoba
Tidak ada komentar:
Posting Komentar