Fungsi Terbilang Excel 2010

March 9, 2012 at 8:33 am 2 comments

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

Bagi yang tertarik untuk Melihat Vidio Tutorial Instal Add-in fungsi terbilang silahkan Klik Link Download Berikut Fungsi terbilang

That’s All, Selamat Mencoba ya

About these ads

Entry filed under: Categories, Excel, Ms. Office. Tags: , , , , , , , , .

Masking dengan Horizontal Type Mask Tool Nota Kontan Penjualan

2 Comments Add your own

  • 1. Vivin Indriani  |  March 28, 2013 at 8:14 am

    makasihhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh

    Reply
    • 2. iferor  |  April 9, 2013 at 10:08 am

      sama-sama

      Reply

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


aBout Me

agus salim

Recent Posts

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 33 other followers


Follow

Get every new post delivered to your Inbox.

Join 33 other followers

%d bloggers like this: