Macro terbilang disini adalah fungsi untuk mengkonversi
angka menjadi terbilang. Contoh angka 2500 akan dikonversi menjadi dua ribu
lima ratus, macro seperti ini banyak digunakan untuk membuat faktur, nota, kwitans
dan lain-lain.
Untuk membuat fungsi ini di Microsoft Excel caranya sebagai berikut:
Untuk membuat fungsi ini di Microsoft Excel caranya sebagai berikut:
2.
Buka Microsoft Visual Basic Editor dengan
menekan tombol Alt + F11 untuk office 2007
3.
Buat sebuah module baru dengan cara klik menu Insert - Module
Silahkan Copy Pastekan script berikut. :
Function Terbilang(n As Long) As String 'max 2.147.483.647
Function Terbilang(n As Long) As String 'max 2.147.483.647
Dim satuan As Variant, Minus As Boolean
On Error GoTo terbilang_error
satuan = Array("", "Satu", "Dua",
"Tiga", "Empat", "Lima", "Enam",
"Tujuh", "Delapan", "Sembilan",
"Sepuluh", "Sebelas")
If n < 0 Then
Minus = True
n = n * -1
End If
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
If Minus = True Then
Terbilang = "Minus" + Terbilang
End If
Exit Function
terbilang_error:
MsgBox Err.Description, vbCritical, "^_^Terbilang Error"
End Function
4.
Tutup kembali Visual Basis Editor dan kembali ke
lembar kerja excel, coba ketikkan angka sembarang di sembarang tempat. Misal di
cell A1 ketikkan 1500
5.
Pada cell yang yang lain / tempat menaruh hasil
terbilang ketikkan formula =terbilang(A1)
6.
Kemudian di cell tersebut akan muncul hasil
terbilang Seribu Lima Ratus
Tidak ada komentar:
Posting Komentar