Mengubah Angka Menjadi Teks Uang di Excell 2003

08 April 2008 - - 2

Kemaren aku dapat tugas suruh ngetik kwitansi untuk laporan keuangan dana pemerintah, kebetulan yang namanya kwitansi ya.... jelas ada penulisan terbilang (dalam angka) dan banyaknya uang (dalam teks). wah kasus juga nich... lha wong banyak banget pa lagi kalau pas njumpai nominal angka yang ribet kayak Rp. 141535,00 biasanya hal semacam ini untuk pembayaran rekening telpon atau rekening listrik. sejak semalem mikir terus... sampe - sampe ada pemikiran pngen buat program yang isinya ada rumus untuk ngubah jenis angka menjadi teks dalam format currency(uang rupiah)....
........?????????
mikir terus.... ternyata susah juga... ketemu rumuse, tapi cuma bisa merubah angka ke teks menggunakan fungsi vlookup, tapi bukan itu yang aku pengeni.. gimana ya....
............????????
akhirnya coba - coba googling... tanya sama pak lurah google... eee.... ternyata ada situs yang menamai dirinya http://priatna.or.id/ disitu ada artikel yang berjudul Macro Excel: Mengubah Angka Menjadi Teks . Silakan unduh kodenya disini sedikit tak modivikasi untuk keperluan pribadi (download). Anda tinggal memasukkannya ke bagian module di MS Visual Basic pada berkas Excel Anda. Di worksheet, Anda bisa memanggil fungsi ini dengan menulis =mung(x). Angka x dapat Anda isikan langsung, atau dapat pula merupakan referensi ke sel lain. petunjuk penggunaan ada dalam file download.

untuk petunjuk singkatnya sebagai berikut:

1. Setelah berkas (file) di atas Anda unduh, bukalah dengan aplikasi pembaca teks. WordPad, misalnya.
2. Bukalah berkas Excel yang baru, atau berkas milik Anda yang ingin ditambahi kode ini.
3. Pergilah ke Tools > Macro > Visual Basic Editor. Langkah ini dapat pula Anda tempuh dengan menekan Alt + F11. Langkah ini akan membuka satu jendela khusus untuk Visual Basic Editor.
4. Di bagian VBAProject di panel sebelah kiri, klik-kanan ThisWorkbook > Insert > Module.
5. Di bagian kosong yang terbuka di bagian kanan, tuliskan kode macro yang tadi dibuka di WordPad/ notepad. Silakan salin-dan-tempel.
6. Kembalilah ke jendela Excel Anda, dan cobalah tuliskan formula terbilang di salah satu sel. Misalnya, tulislah =mung(123) maka hasilnya akan berupa tulisan seratus dua puluh tiga rupiah. Anda juga dapat menulis formula dengan =mung(B3), misalnya, dan sel B3 berisi angka yang ingin dibuat teks.

Semoga bermanfaat.