Membuat Konversi Angka ke Huruf Pada Microsoft Excel

Konversi angka ke huruf atau lebih dikenal (terbilang) sudah tidak asing lagi Disebuah perkantoran atau kalangan umum, mudah-mudahan ini dapat membantu anda dalam menyelesaikan tugas kantor terutama kasir, atau bidang apapun yang sering membuat sebuah faktur, bon atau kwitansi.

Kita sering membuat sebuah kwitansi atau tanda terima dengan menuliskan terbilang menggunakan cara manual (menulis dengan tangan, mesin ketik bahkan komputer), ada kemungkinan dalam penulisan kita sering membuat kesalahan dalam penulisan sehingga harus dikoreksi bahkan lupa.. jadi akibatnya sangat fatal. Sementara kita dituntut cepat dalam menyelesaikan tugas ini.

Disini penulis membuat atau memperkecil kesalahan semaksimal mungkin dengan membuat aplikasi sederhana menggunakan Microsooft Excel.

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.doc

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.

Bagi anda yang memerlukan konversi angka ke huruf hingga membaca 2 angka dibelakang koma (English, Rupiah & Tanpa Mata Uang) merupakan trik lanjutan dari Trik ini lihat disini

Download Kode Macronya disini KodeTerbilang.txt
Download Panduan Lengkapnya disini KodeTerbilang.pdf
Download Contoh Aplikasinya disini Terbilang.xls