Membuat fungsi terbilang di Exel

Membuat fungsi terbilang di exel 2007 

Sering menggunakan exel sebagai media kerja, dan ingin merubah dari angka menjadi kata 
misalnya : 2.000 maka akan tertulis dua ribu rupiah seperti gambar disamping

maka sobat mesti memakai rumus terbilang ini
cara membuatnya begini bos.

STEP 1 _________________________________________________________________

1. buka exel anda setelah tampil clik simbol kotak  Restore windows di ujung paling kanan spt gambar di 
    bawah ini (tapi kalo memang tampilanya sudah minimaze nggak perlu lagi ...ok).

 

2. lanjuut....    kalo sudah clik kanan mouse sobat di simbol exel yang ada tulisanya Book1 (kalo bingung 

    pegangan ya ntar jatoh lagi he he he) sory bercanda, liat gambar di bawah ya:

    Lanjuuut..... dah maka akan tampil pilihan seperti gambar diatas, lalu clik View code maka akan tampil 
    form  Microsoft visual basic, dan akan tampil juga form Book1- this workbook kode .


3. kalau dah tampil di lembar halaman Book1 
    copy code di bawah ini dan pastekan ke form Book1- this workbook kode

Ini kodenya ;
  

Public Function terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
'Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
'Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
'Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
'Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
'Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1)
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen "
End If
End If
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "rupiah "
End Function
Public Function terbilangkurung(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
'Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
'Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
'Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
'Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
'Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1)
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen "
End If
End If
terbilangkurung = "( " + UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "rupiah)"
End Function
Function ratus(x As Currency, posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
'Baca Bagian Ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, 2) + "ratus "
End If
End If
'Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)
Else
If a10 > 0 Then
baca = baca + angka(a10, 2) + "puluh "
End If
If a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If
End If
End If
ratus = baca
End Function
Function angka(x As Integer, posisi As Integer)
Select Case x
Case 0: angka = "Nol"
Case 1:
If posisi = 2 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Dua belas "
Case 13: angka = "Tiga belas "
Case 14: angka = "Empat belas "
Case 15: angka = "Lima belas "
Case 16: angka = "Enam belas "
Case 17: angka = "Tujuh belas "
Case 18: angka = "Delapan belas "
Case 19: angka = "Sembilan belas "
End Select
End Function

maka akan tampil seperti berikut :

 

4. kalo dah clik simpan yang berlogo disket lalu clik close yang bertanda x bro

    maka akan kembali ke work sheet awal exel. belum selesai nih brooo
    kemudian simpan dengan me click  Save file exel tersebut dengan type Excel 97-2003
    Add-In(*.xla).
    fille namenya misalnya Terbilang_V08.xla ke drive C:\
    kalo dah tutup exelnya

 = = = = = = maka selesailah Step 1 = = = = = =

STEP 2 ___________________________________________________________________

sekarang tinggal bagaimana supaya bisa tampil atau ber fungsi di exel... lanjut bos...
1. buka exel lagi bos
2. kalo dah sekarang clik Ofice buton yang simbol bulatwarna orange sehingga tampil gambar seperti di bawah ini

3. lalu pilih clik Exel Options maka akan tampil form Exel Option kemudian clik Add-Ons seperti di bawah ini :

4. lalu clik Go maka akan tampil form Add On seperti gambar di bawah :

5. Clik Browse (cari lokasi dimana sobat simpan fille Terbilang_V08.xla tadi) kalo dah maka pada form Add-Ins
    akan muncul Terbilang_Vo8 lalu centang di kotak pilihan dan clik OK

6. kalau sudah maka sobat akan kembali ke book1 exel, sekarang tinggal mencobanya 
7. tulis angka 20000 di kolom B2 dan ketik rumus berikut di kolom C2 "=terbilang(B2)" tanpa tanda kurung 
    seperti contoh gambar berikut.

8. maka lihat hasilnya....

Selamat ya..atas perjuangan panjang Sobat.....

cara ini memang bukan cara yang mudah tapi jika sobat tidak mau repot untuk buat rumusnya, sobat download aja file di sini 
lalu simpan fille misalnya ke C:\ dan selanjutnya Lakukan Langkah dari Step 2.
Selamat Mencoba... dan tunggu rumus exel lainnya.

Ok makasih dah baca ... semoga bermanfaat bagi sobat semua 
dan jangan lupa komennya ya.