Ini salah satu fungsi VBA kesukaan saya, dan saya yakin bagi anda yang sering bergelut dengan angka fungsi ini pasti juga akan anda sukai. Dengan fungsi ini anda dapat meng-ekstrak angka dari kata yang terdiri variasi huruf dan angka. Anda cukup membuat sebuah module pada visual basic editor microsoft excel anda. Lalu anda dapat menuliskan kode dibawah ini:
Function ekstrakangka(teks)
For lenstr = 1 To Len(teks)
Select Case Asc(Mid(teks, lenstr, 1))
Case 48 To 57
ekstrakangka = ekstrakangka & Mid(teks, lenstr, 1)
End Select
Next
End Function
setelah itu anda dapat membuat formula dengan fungsi =ekstrakangka(cell)
lalu lihat hasilnya, angka sudah ter-ekstrak.
bagaimana sebaliknya jika huruf yang ingin anda ekstrak?
itu akan ada di posting berikutnya.
Tidak ada komentar:
Posting Komentar