Membuat Fungsi Terbilang di Excel

Posted by

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

  1. Klik  File pada menu bar, kemudian klik  Options di panel kiri.
  2. Pilih kategori Add-Ins .
  3. Pada kotak  Manage, klik Excel Add-ins, kemudian klik  Go.
  4. Klik  Browse, kemudian cari lokasi  file terbilang.xla yang telah didownload tadi.
  5. Keluar dari Excel, dan kemudian masuk Excel lagi. Tinggal mencoba fungsinya apakah bisa jalan atau tidak
Source : http://harisaryono.com/2011/07/membuat-fungsi-terbilang-di-excel/


DR.CB
MS. Office TutorialUpdated at : March 30, 2013

1 comments:

  1. pekerjaan jadi lebih mudah sekarang
    dengan adanya terbilang. terima kasih ya

    ReplyDelete