Fungsi Terbilang Pada Ms.Excel

ALL ABOUT COMPUTER

http://elhaidar.files.wordpress.com/2011/01/13.jpg?w=500

Fungsi terbilang adalah perintah atau formula untuk mengubah angka menjadi teks. Misalkan kita ingin mengubah angka 1,000 menjadi kata seribu, atau seribu rupiah

Akan saya berikan Dua cara untuk mengaktifkan fungsi terbilang pada excel, yaitu:

Cara Pertama : Instal Add-in, Download dulu add-in nya disini, ekstrak dan install add-in tersebut. Sebelum install add-in, matikan dulu security macronya, supaya add-in ini bisa jalan, Caranya:
Buka Excel Anda
Klik File pilih Options
Pilih Trust Centre >> Trust Centre Settings >> Macro Settings
Pada Macro settings pilih Enable All Macro kemudian klik OK
Masuk ke Menu Add-Ins –>> Manage
Klik Go
Browse dan arahkan ke file terbilang.xla yang sudah anda download sebelumnya.
Jangan lupa aktifkan (centang) terbilang pada daftar add-in
Klik OK dan siap digunakan.

Cara Kedua :
Buka Microsoft Visual Basic Editor tekan tombol Alt + F11 akan muncul gambar seperti dibawah

Buat Modul baru, caranya Klik pada Menu Insert –>> Module, kemudian Tuliskan Script Berikut

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

Pastikan Penulisan Scrip sudah benar, kalau masih muncul tulisan warna merah, artinya Script masih ada yang eror.

Jika semuanya sudah benar, maka tutup kembali Visual Basic Editor dan kembali ke lembar kerja excel, coba ketikkan angka sembarang di sembarang tempat. untuk kali ini saya contohkan misalkan saya Ketik angka 1.000 pada Cell A1, Lalu pada Cell B saya Ketik rumus =Terbilang(A1), Maka Hasilnya akan menjadi “Seribu”. dan untuk menambahkan Rupiah pada Fungsi terbilang cukup tambahkan &”Rupiah” sehingga Rumus fungsi terbilangnya menjadi =Terbilang(A1),&”Rupiah” dan untuk contoh di atas, seribu akan ditambahkan kata Rupiah sehingga menjadi “Seribu Rupiah”

atau bisa kita masukkan fungsi terbilang yang sudah kita buat dengan cara Klik Auto Sum pada Menu –>> More Functions –>> User Defined –>> Terbilang –>> OK