Membuat Fungsi Terbilang di Excel 2007/2010

Jika perkerjaan kamu selalu berurusan dengan Uang dan Excel, nah kebetulan excel kamu excel 2007, pastinya kamu juga butuh fungsi TERBILANG dari angka-angka duit kamu itu. Untuk Fungsi terbilang di Excel 2003 kayaknya sudah banyak banget para blogger yang bahas dan excel 2007 pun udah banyak di bahas oleh para bloger,  Kali ini aku bagi tips untuk fungsi terbilang di Excel 2007/2010

1.     Download dulu add in disini dan ekstrak atau disini

2.     Kemudian untuk membuat supaya setiap lembar kerja Excel 2007 kamu selalu punya fungsi ini, taruh atau copas (copy paste) file yang baru kamu download tadi di folder startup excel 2007 (letaknya di c:\Program Files\Microsoft Office\Office12\XLSTART) 

3.     Sekarang buka Aplikasi Excel 2007 kamu, jangan tetangga……….

4.     Coba ketikkan angka, misal 1500

5.     Kemudian di sel lain coba kamu ketikkan fungsi =terbilang(…….)

6.     Liat hasilnya, Seribu lima ratus rupiah

7.     Selamat mencoba

Atau kamu bisa menggunakan cara yang ini : yaitu buka ms excel kamu (ingat jangan tetangga) kamu klik Qustomize Quick Access Toolbar (yg ada gambar segitiga terbalik diatas menu bar) kemudian klik More Commands kemudian Klik Add-Ins terus klik Go yang ada di bawah, terus klik browse kemudian klik file yang baru kamu download tadi Terus Klik OK deh...

sekarang kamu tinggal ngegunain caranya tinggal =terbilang(alamat cell yg ingin dibuat fungsi terbilang)
contoh: =terbilang(c4) enter deh dan lihat hasilnya

Catatan :
=propper(terbilang(…..)) akan menghasilkan kata Seribu Lima Ratus Rupiah
=upper(terbilang(…..)) akan menghasilkan kata SERIBU LIMA RATUS RUPIAH

atau kalau ingin tanpa ada kata rupiah di akhir angka terbilang, kamu bisa gunakan cara yang ini:

• Buat document baru, atau buka document yang sudah ada dan ingin diberi fungsi terbilang ini. Kemudian buka Microsoft Visual Basic Editor dari menu Tools > Macro > Visual Basic Editor untuk office 2003 atau langsung tekan tombol Alt + F11 untuk office 2007.
• Buat sebuah module baru dengan cara klik menu Insert > Module kemudian tambahkan script berikut. :

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

• Tutup kembali Visual Basis Editor dan kembali ke lembar kerja excel, coba ketikkan angka sembarang di sembarang tempat. Misal di cell C5ketikkan1250200 (nb: Maksimal 2147483647)
• Kemudia di cell yang yang lain / tempat menaruh hasil terbilang ketikkan formula=terbilang(C5)
• Kemudian di cell tersebut akan muncul hasil terbilang yaitu satu juta dua ratus lima puluh ribu dua ratus
  

• Jika ingin di belakang hasil terbilang ada kata Rupiah tambahkan di dalam formula=terbilang(C5) & “Rupiah”

atau silahkan klik disini
Selamat mencoba.....