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.