Apakah Fungsi Terbilang Itu?
Fungsi terbilang yang saya maksud disini adalah merubah angka menjadi huruf. Ini sangat penting misalkan ketika kita ingin membuat kwitansi. Dengan menuliskan angka 125000, maka di kolom huruf akan muncul angka “seratus dua puluh lima ribu Rupiah”.
Ini adalah contoh fungsi terbilang yang dapat digunakan untuk string maksimum 2.147.483.647. Saya kira 2 milyar lebih sudah cukup untuk penggunaan sehari-hari.
Mengapa maksimum angkanya hanya 2 milyar?. Karena fungsi ini membaca nilai dari bilangan yang dimasukkan, sedangkan nilai maksimum integer dalam satu sel Excel adalah sebesar itu.
Cara Penggunaan
Cara penggunaan fungsi ini cukup sederhana. Copy paste fungsi dalam sebuah module di excel, kemudian panggil nama fungsinya.
Kalau kurang jelas, silahkan lihat membuat-fungsi-sendiri-di-excel-intermezzo-angka
Function Terbilang(n As Long) As String ‘max 2.147.483.647
Dim satuan As VariantOn Error GoTo terbilang_error
satuan = Array(“”, “Satu”, “Dua”, “Tiga”, “Empat”, “Lima”, “Enam”, “Tujuh”, “Delapan”, “Sembilan”, “Sepuluh”, “Sebelas”)Select Case n
Case 0 To 11
Terbilang = ” ” + satuan(Fix(n))
Case 12 To 19
Terbilang = Terbilang(n Mod 10) + ” Belas”
Case 20 To 99
Terbilang = Terbilang(Fix(n / 10)) + ” Puluh” + Terbilang(n Mod 10)
Case 100 To 199
Terbilang = ” Seratus” + Terbilang(n – 100)
Case 200 To 999
Terbilang = Terbilang(Fix(n / 100)) + ” Ratus” + Terbilang(n Mod 100)
Case 1000 To 1999
Terbilang = ” Seribu” + Terbilang(n – 1000)
Case 2000 To 999999
Terbilang = Terbilang(Fix(n / 1000)) + ” Ribu” + Terbilang(n Mod 1000)
Case 1000000 To 999999999
Terbilang = Terbilang(Fix(n / 1000000)) + ” Juta” + Terbilang(n Mod 1000000)
Case Else
Terbilang = Terbilang(Fix(n / 1000000000)) + ” Milyar” + Terbilang(n Mod 1000000000)
End SelectExit Function
terbilang_error:
MsgBox Err.Description, vbCritical, “^_^Terbilang Error”
End Function
CATATAN TAMBAHAN
Agar lebih mudah, saya upload fungsi terbilang dalam bentuk file .xla, yang berisi fungsi terbilang() diatas, ditambah dengan fungsi terbilang dalam bahasa Inggris yang bernama SpellNumber().
Cara penggunaannya adalah sebagai berikut:
1. Download fungsi terbilang dari 4shared disini .
Untuk Excel 2003
- Setelah selesai mendownload file tersebut, buka microsoft office excel sobat dan klik menu Tools / Add-ins / Klik Browse dan cari dimana file terbilang yang tadi didownload disimpan.
- Selanjutnya klik file terbilang tersebut dan klik Ok lalu klik Ok lagi, sampai disini fungsi terbilang sudah terinstal pada office excel.
- Langkah selanjunya adalah mencoba dan meng-check apakah fungsi terbilang tersebut sudah terinstal dengan baik dengan cara mencobanya. Tulis di sembarang sel =terbilang(1234)
- untuk terbilang bahasa Inggris, tulis =SpellNumber(1234)
Untuk Excel 2007
- Klik Office button/excel Option Pilih Add Ins dan klik Go
- Muncul list Add Ins. Pilih Browse dan browse file terbilang.xla yang telah didownload
- Klik OK. Saatnya mencoba fungsi terbilang dan SpellNumber. Lihat gambar
Untuk Excel 2010
- Klik File pada menu bar, kemudian klik Options di panel kiri.
- Pilih kategori Add-Ins .
- Pada kotak Manage, klik Excel Add-ins, kemudian klik Go.
- Klik Browse, kemudian cari lokasi file terbilang.xla yang telah didownload tadi.
- Keluar dari Excel, dan kemudian masuk Excel lagi. Tinggal mencoba fungsinya apakah bisa jalan atau tidak
By Ngadirin, 29 January 2012 at 8:32 am
Mas Haryono, apakah menerima latihan MsExcel? Kalau ada file Excel untuk membuat kuitansi dan SPJ otomatis, tolong dishare, saya mau bantu bos saya membuatnya.
Terima kasih,
By Admin, 30 January 2012 at 5:32 pm
@ngadirin : untuk tutor ms excel, masih belum ada rencana, tapi kalau mau edit2 sendiri bentuk spj otomatis saya, bolehlah saya kasih contoh spj tahun 2011. Untuk yang 2012 saya belum punya waktu buat tutorialnya, mana yang perlu diedit, dan mana yang tidak boleh diedit. Tapi kalau bapak mau saya customize kan untuk instansi bapak boleh kapan2 kita atur waktunya. Link download besok ya, filenya ada di kantor
By eno, 9 February 2012 at 11:53 am
Maaf mas mau tanya
Klo cara edit fungsi terbilang bagaimana caranya ?
contoh : limabelas
cara memberikan spasi bagaimana ?
terima kasih
By Admin, 11 February 2012 at 12:33 pm
editnya harus di programnya. Kalau gak salah fungsi terbilang saya sudah ada spasinya.
By agus, 9 March 2012 at 3:14 pm
mas kalao 2010 pripun
By Admin, 9 March 2012 at 5:03 pm
@agus: maksudnya excel 2010?. Pada dasarnya sama saja kok. Lihat kembali posting diatas, sudah saya tambah
By aldrien, 26 March 2012 at 2:18 pm
mas thx buat ” fungsi terbilangnya ”
tapi kok rupiahnya gak keluar
mohon pencerahannya
By Admin, 26 March 2012 at 8:20 pm
@aldrien: memang terbilang ini tidak menyertakan tulisan “rupiah” kalau mau nambah rupiah di belakangnya, ya silahkan tambah sendiri. rumusnya =terbilang(a4) & “Rupiah”
By Sarah, 30 March 2012 at 8:39 am
untuk membuat terbilang dollar dalam bahasa indonesia di ms.excel bagaimana caranya mas? Misal US$ 5,445.65 … please bantuannya nhe mas..
Tq. GBU
By Admin, 30 March 2012 at 9:47 am
@sarah: pertanyaannya saya belum faham. Kalau langsung terbilang dalam bentuk dollar, koma juga langsung dibaca. Contoh di A1 ditulis 5445.65, B1 ditulis rumus =SpellNumber(A1), maka yang keluar adalah Five Thousand Four Hundred Forty Five Point Sixty Five
By Sarah, 30 March 2012 at 10:40 am
@admin: nah yang saya butuh terbilang ny itu dalam bahasa Indonesia mas.. jd seharus nya adalah Lima ribu empat ratus empat puluh lima US Dollar dan Enam puluh lima sen.
Klo untuk terbilang ny agar menjadi seprti itu, bagaimana rumus ny mas?? TQ . GBU
By Admin, 30 March 2012 at 1:50 pm
@sarah: Oh begitu. bisa saja. Misalkan di H7 kamu tulis nilai 4554.65, maka di i7 tulis Rumusnya : = terbilang(MID(H7;1;SEARCH(“.”;H7;1)-1))&” US Dollar dan “&terbilang(MID(H7;SEARCH(“.”;H7;1)+1;LEN(H7)))&” Sen”
bingung khan?. Intinya, pecah angkanya jadi 2, sebelum titik dan sesudah titik, sebelum titik dibaca pake fungsi terbilang, lalu ditambahi ” US Dollar ” dan setelah titik dimasukkan fungsi terbilang juga dan ditambah ” Sen”.
Memecahnya pake mid dan search, terus menggabungnya pake &
By tsayafrizal, 3 May 2012 at 3:59 pm
Terimakasih untuk transaksi kas harian dan laoprannya, tapi ada masalah dikit, saat pertama dicoba semua ok berjalan mulus, tapi saat dicoba kembali kemudian di PC saya pakai windows XP SP 3 office 2007 ndak mau jalan lagi fungsi terbilangnya muncul peringatan error dan tombol enter, << dan >> serta lainnya tidak aktif, nah di laptop setiap saat digunakan fungsi terbilangnya harus diaktifkan lagi lalu link ke sheet Report tidak mau hidup, error juga padahal sudah saya coba hapus dan buat hyperlink lain hasilnya tetap sama error. Ada solusinya? mohon bantuannya
Trims
By Admin, 3 May 2012 at 9:57 pm
@tsyafrizal: untuk fungsi terbilang, biar gak ada lagi peringatan, letakkan file terbilang tersebut di C:\Program Files\Microsoft Office\Office12\Library\ yang secara default merupakan trusted location. Ketika peringatan itu muncul, harusnya yang dipilih adalah enable this content. Yang kedua, this workbook has lost its vba project, mungkin anda repairnya save as xlsx, sehingga programnya hilang, atau macro tidak enable. Download ulang saja.
By tsyafrizal, 3 May 2012 at 4:08 pm
Saya sudah mengikuti petunjuk untuk excel 2007 tapi tetap muncul repair to ‘transaksi harian dan laporan.xlsm’ dan ada tulisan This workbook has lost its VBA project, ActiveX controls and any other programmability-related features. mohon petunjuknya – trims
By joji, 4 July 2012 at 9:06 am
pagi pak setelah saya download fail xlanya,
trus saya ketik kan angka 3.161.000 terbilangnya muncul tulisan
(tiga juta seratus enam puluh seribu rupiah)
seharusnya yang betulkan tiga juta seratus enam puluh satu ribu rupiah
bagaimana pak solusi perbaikan rumusnya atau macam mana cara edit rumusnya
mohon pencerahan, thank
By Admin, 4 July 2012 at 9:25 am
programnya gak usah diedit. Mungkin kesalahannya pada penulisan angka anda. coba titiknya nggak usah ditulis. Contoh 3161000. Untuk memberi titik, pakai aja format cell di HOME , terus klik comma style (,)
By Tony, 4 May 2013 at 8:22 am
Thanks, Sangat bermanfaat