Membuat Fungsi Terbilang di Microsoft Excel 2003 dan 2007

Beberapa hari yang lalu, seorang teman bertanya tentang formula untuk mengubah sebuah angka menjadi teks. Dia ingin mengubah, misalnya, angka 1505 menjadi "seribu lima ratus lima". Seperti tulisan “terbilang” yang ada di kuitansi-kuitansi.

Seingat saya dulu pernah mendownload sebuah macro di Excel yang berfungsi seperti ini (saya lupa dapat dari mana). Sebenarnya, macro ini outputnya huruf besar semua (UPPERCASE), karena kurang enak dipandang kemudian saya mengubahnya menjadi huruf besar di awal kata (Title Case).


Bagi yang penasaran silahkan download codenya pada link dibawah.

Fungsi Title Case

Fungsi UPPERCASE

Kode kunci : triple-os.blogspot.com

Lalu paste di fasilitas Visual Basic di Microsoft Excel.

Cara mengaktifkan Visual Basic di Excel :
# Untuk Microsoft Excel 2003, lihat gambar dibawah :

# Untuk Microsoft Excel 2007, aktifkan dulu menu Developer:
1. Klik Office Menu, lalu klik Excel Options

2. Pada tab Popular centang Show Developer tab in the Ribbon, lalu klik OK.

3. Klik menu Developer, lalu klik tombol Visual Basic.

Jendela Microsoft Visual Basic telah terbuka.
Selanjutnya klik Insert, kemudian klik Module

Paste code diatas tadi. Terakhir tutup jendela Visual Basic.

Sekarang coba ketik formula dibawah pada cell kosong.

=Terbilang(123456789)

atau

=Terbilang(CELL_ANGKA)