Skip to content

Membuat Fungsi Terbilang di Excel

November 23, 2011

http://harisaryono.com/2011/07/membuat-fungsi-terbilang-di-excel/

 

Membuat Fungsi Terbilang di Excel

Ditulis oleh pada 4 July, 2011
Belum ada komentar
Post ini ditulis dalam kategori [ MS Excel ]

 

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 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

NB.

Untuk membuat fungsi terbilang dalam bahasa Inggris, silahkan klik link berikut ini

Posting yang berhubungan :

No comments yet

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: