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 Variant
On 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 Select
Exit 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
pekerjaan jadi lebih mudah sekarang
ReplyDeletedengan adanya terbilang. terima kasih ya