Fungsi ini menggunakan bantuan makro di Microsoft Excel, melalui menu ‘ Tools | Macro | Visual Basic Editor ‘
Langkah-Langkah
1. Buka Visual Basic Editor ( Tools | Macro | Visual Basic Editor )
2. Klik kanan area kosong project - VBAProject, pilih ‘ Insert | Module ‘
3. Copy kan kode program berikut
===================================================
Function Terbilang(ByVal x As Double) As String
Dim abil As Variant
abil = Array(”", “satu”, “dua”, “tiga”, “empat”, “lima”, “enam”, “tujuh”, “delapan”, “sembilan”, “sepuluh”, “sebelas”)
If x < 12 Then
Terbilang = ” ” & abil(x)
ElseIf x < 20 Then
Terbilang = Terbilang(x - 10) & ” belas”
ElseIf x < 100 Then
Terbilang = Terbilang(x \ 10) & ” puluh” & Terbilang(x Mod 10)
ElseIf x < 200 Then
Terbilang = ” seratus” & Terbilang(x - 100)
ElseIf x < 1000 Then
Terbilang = Terbilang(x \ 100) & ” ratus” & Terbilang(x Mod 100)
ElseIf x < 2000 Then
Terbilang = ” seribu” & Terbilang(x - 1000)
ElseIf x < 1000000 Then
Terbilang = Terbilang(x \ 1000) & ” ribu” & Terbilang(x Mod 1000)
ElseIf x < 1000000000 Then
Terbilang = Terbilang(x \ 1000000) & ” juta” & Terbilang(x Mod 1000000)
Else
Terbilang = “ERROR ! Nilai maksimal sampai dengan 999.999.999″
End If
End Function
==================================================
4. Simpan dan kembali ke Excel
5. Ketikkan pada area kosong Excel, misal 123.123 kemudian pada cell lainnya jalankan program macro diatas dengan cara
‘=Terbilang(B2)’
6. Klo source diatas langsung di copy-paste ke excel, tolong ganti tanda petik gandanya (”) jadi tidak miring kiri/kanan
Selamat Mencoba !