Konversi angka menjadi teks dalam Ms. Excel

Salam,
Kali ini saya akan kembali menulis. Dan agak sedikit berbeda dari tulisan-tulisan sebelumnya, saya akan berbagi (dari yang sudah saya dapat) ilmu yang sedang saya geluti dengan semi amatir dan sangat tidak profesional.
Saya awali dengan merubah angka yang kita tulis untuk diterjemahkan menjadi teks. Misalnya, dalam penulisan data menggunakan Ms. Excel 2003 atau pun 2007, kita memasukkan angka 1700000, lalu otomatis di sel yang lain otomati muncul teks "satu juta tujuh ratus ribu rupiah". Mungkin jika datanya cuma 1 atau 10 tidak rumit. Jika datanya ratusan ? Dijamin, tukang pijat obatnya dan obat sakit kepala.

MULAI :

Pertama sekali buka lembar kerja baru pada Microsoft Excel buatlah desain kwitansi pembayaran atau Tanda terima yang menggunakan konversi huruf (Terbilang), setelah desain tersebut selesai kita kerjakan kemudian kita masuk pada tahap pembuatan kode Macro. Disini penulis membuat kemudahan supaya penulisan kode tidak anda ketik lagi (Tinggal Copy Paste) silahkan Download kodenya disini KodeTerbilang.txt

Cara menyisipkan kode tersebut dalam lembar kerja yang telah kita desain tersebut, Klik Tool Kemudian Klik Macro Kemudian Klik Visual Basic Editor atau Alt+F11, setelah kita masuk pada jendela kerja Visual Basic Editor Kemudian Klik Insert Kemudian Klik Module, setelah itu kita Paste kode yang telah kita download tadi. Kemudian klik File Kemudian Klik Close and Return to Microsoft Excel Atau Alt+Q.

Sampai disini kita sudah berhasil membuat Konversi huruf terbilang pada lembar kerja yang telah kita desain tersebut. Berikutnya buatlah sebuah Formula atau Rumus pada lembar kerja :
contoh ketik angka pada sel C2 : 25900 kemudian buatlah formula pada sel C3 =Terbilang(C2), maka setelah kita tekan enter akan muncul huruf pada sel C3 : Dua puluh lima ribu sembilan ratus rupiah.-
apa bila kita tidak menginginkan tulisan rupiah dan mengantinya dengan Kilogram atau apapun kita tinggal merubah pada kode macro lihat dibawah ini :
Konv0 = Trim(Huruf)
Konv1 = Left(Konv0, 1)
Konv2 = UCase(Konv1)
Konv3 = Mid(Konv0, 2, 150)
Terbilang = Konv2 & Konv3 & " rupiah.-"
End Function

Apabila Konversi tidak berhasil mungkin akan muncul #NAME? Coba anda Klik Tool Kemudian Klik Macro Kemudian Klik Security Kemudian pada Security Level anda pilih Medium Kemudian Klik Ok. Kemudian tutup lembar kerja anda dan buka kembali lembar kerja tersebut pada saat start up akan muncul kotak dialog... anda klik saja Enable Macros dan aplikasi anda sudah berjalan sesuai dengan yang diharapkan.

Ok. Mungkin dan semoga bermanfaat. Saya tunggu umpan baliknya. Berkah Dalem.