Membuat Fungsi "Terbilang" di Microsoft Excel (I)

Fungsi "terbilang" adalah fungsi yang digunakan untuk mengkonversikan angka menjadi terbilang. Misalnya kita mau membuat angka 1.000.036 menjadi satu juta tiga puluh enam. Biasanya fungsi ini digunakan untuk membuat kwitansi, nota, dan lain-lain. Di sini kita menggunakan yang namanya Module (Mod), yang biasanya ada di matematika ^_^. daripada lama-lama mending langsung aja aku tunjukin caranya.

• pertama, buka Microsoft Excel kamu, lalu buka Microsoft Visual Basic Editor dari menu Tools>Macro>Visual Basic Editor, atau buat yang pake Microsoft Excel 2007 pilih Developer>Visual Basic. Cara cepatnya Alt+F11.

• kedua, buat sebuah module baru dengan cara klik menu Insert>Module kemudian masukkan script berikut ini:

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

• sekarang kamu bisa tutup lagi Visual Basic kamu, trus coba deh ketik angka yang mau kamu konversikan, sembarang aja di cell mana, misalnya aku pilih E11. coba ketik 35678 (nb: di rumus ini aku buat limit yang bisa dikonversikan adalah 2.147.483.647 )

• di cell yang lain , misalnya E12, ketik =terbilang(E11)

• pastinya di cell E12 akan tertulis tigapuluh limaribu enamratus tujuhpuluh delapan

segitu aja rumusku. sengaja gak dibuat perfect supaya kalian juga belajar memperbaiki rumusnya supaya jadi  Tiga Puluh Lima Ribu Enam Ratus Tujuh Puluh Delapan.

see ya