Macro Excel: Membuat fungsi terbilang

Posted on August 23rd, 2009 me 10 comments

Pengguna MS Excel yang sering menggunakannya untuk hitung keuangan, mungkin sangat ingin dari hasil yang diperoleh ada tambahan kalimat yang menyebutkan jumlah hasil perhitungan. Misal hasil perhitungan: Rp 1.000.000,- , muncul kalimat: Satu Juta Rupiah.

Dibawah kami bantu untuk merealisasikan keinginan tersebut. Kode ini saya peroleh dari internet yang ditujukan untuk pengguna openoffice. Setelah saya tes di Excel ternyata dapat berfungsi dengan baik.

Pekerjaan mengubah dari angka menjadi kalimat seperti diatas disebut FUNGSI TERBILANG. Fungsi terbilang akan tercatat dalam daftar function di excel dalam kelompok user defined, artinya fungsi yang dibuat oleh pengguna.

Ok kita mulai ya…

Langkah 1: Buka Workbook Excel.

Buka Book baru

Langkah 2: Buka Visual Basic Application Editor. Alt+F11 atau melalui menu menu Tools.

Membuka VBA Editor di Excel

Hasil membuka VBA editor seperti gambar dibawah.

VBA Editor telah aktif

Langkah 3: Membuka MODUL baru.

Membuka Modul Baru

Hasil insert modul, akan tersedia modul yang siap dipakai.

Modul baru siap dipakai

Langkah 4: Mengisi Modul dengan script Fungsi berikut, dengan copy dan paste ke dalam modul.

Function TeksKeAngka(ByVal n As Double) As String Dim sSatuan() Dim s As String sSatuan() = Array("nol", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas", "dua belas", "tiga belas", "empat belas", "lima belas", "enam belas", "tujuh belas", "delapan belas", "sembilan belas", "dua puluh") s = "" If n > 999 and n < 200 Then s = "seribu" n = n MOD 1000 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If If n > 199 Then s = s & sSatuan(Fix(n / 100)) & " ratus" n = n MOD 100 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If If n > 99 and n < 200 Then s = "seratus" n = n MOD 100 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If If n > 20 and n < 100 Then s = s & sSatuan(Fix(n / 10)) & " puluh" n = n MOD 10 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If TeksKeAngka = s & sSatuan(n) End FunctionFunction Terbilang(ByVal n) As String Dim sBil() sBil = Array( "", "ribu", "juta", "milyar", "triliun", "quadriliun") Dim i As Integer Dim iInt As Integer Dim s As String Dim dInt As Double dInt = Fix(n) If (dInt < 2000) Then Terbilang = TeksKeAngka(CInt(dInt)) Exit Function End If i = 0 s = "" Do While dInt > 0 iInt = CInt(dInt - Fix(dInt / 1000) * 1000) If iInt <> 0 Then If Len(s) > 0 Then s = " " & s s = TeksKeAngka(iInt) & " " & sBil(i) & s End If i = i + 1 dInt = Fix(dInt / 1000) Loop Terbilang = s End Function

Copy script Fungsi Terbilang Ke Modul

Langkah 5: Tes fungsi di Worksheet Excel.

Melakukan tes fungsi terbilang

Hasil testing seperti dibawah.

Hasil fungsi Terbilang bekerja dengan baik

Langkah 6: SIMPAN BOOK tersebut, dan gunakan book tersebut jika akan digunakan untuk aktifitas perhitungan. Karena Fungsi HANYA melekat atau akan aktif pada workbook tersebut, bukan pada aplikasi MS Excel secara permanen. Atau jika Anda sudah memiliki workbook yang sudah ada hasil hitungan dan ingin ditambahi fungsi terbilang bisa mengikuti langkah 1-6.

Selesai. Selamat mencoba.

Dan silakan dicoba file excelnya yang saya buat.

Other Search Terms:
fungsi terbilang excel,fungsi macro excel,fungsi terbilang vba,macro excel terbilang,fungsi terbilang di excel,modul macro excel,macro terbilang,software terbilang,modul excel macro,fungsi macro.

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

Aneka Tips angka, editor, excel, fungsi, kalimat, Macro, membuat fungsi, mengubah, mengubah angka, menjadi kalimat, Modul, terbilang, VBA, Visual Basic Application

The Most Populer Terms:
bahaya facebook,www marioteguh com,pdf creator free download,bandwidth monitor,djvu reader free download,www mario teguh com,mp3 editor free download,free download pdf creator,logo universitas ahmad dahlan,dampak perkembangan teknologi terhadap lingkungan,belajar macro excel,tools jaringan,hardware monitor,logo uad,download mp3 editor,download pdf creator free,download pdf creator,pencemaran lingkungan akibat perkembangan teknologi,marioteguh com,www marioteguh asia.

7 responses to “Macro Excel: Membuat fungsi terbilang”

pipit March 3rd, 2010 at 07:29

pa, kalo utk aplikasi di open office bagaimana caranya ? tolong infonya. tq

#Mdin: Aplikasi ini pernah dicoba di Open Office dan behasil. Silakan coba juga..

[Translate]
diper January 14th, 2010 at 15:37

diper

sory sel yg e38 hanya contoh.. silahkan ganti dengan cell yg ada di file anda oke

wassalam

[Translate]
diper January 14th, 2010 at 15:36

terima kasih buanyak.. ini sgt bermanfaat, bagi yg belum tau menambahkan kata rupiahnya ini sy tambahkan :

=”# “&terbilang(E38)&” rupiah #”

semoga lebih bermanfaat

diper
jakarta

[Translate]
mazroni November 26th, 2009 at 08:02

ini menyenangkan sekali, mdh buat kerja. Trims

[Translate]
daniel October 14th, 2009 at 10:20

pak, ada yg tertinggal, untuk ribuan belum bisa, misalnya 1565 hasilnya adalah lima belas ratus ..

Pls advise Pak
Thanks.

#Ada yang perlu diubah dikit cari angka <200 ubah ke <2000.

[Translate]
Hen August 29th, 2009 at 20:20

ya bagus sich, cuma masih ada yang kurang yaitu menambahkan kata rupiah diakhir penyebutan terbilang bagaimana?
percuma masih belum bisa dipakai untuk bikin kuitansi padahal di kuitansi khan ada penyebutan rupiah diakhir terbilang.

#mdin: silakan ditambah sendiri pada excelnya.. mudah kok. Coba cari kodenya..

[Translate]
sukabj August 26th, 2009 at 08:28

makasih ilmunya pak, bisa di aplikasi untuk bikin kuitansi di mergerkan dengan word.. klo bs ada contoh file yg sudah jadi unt bs didownload… (he3x cari lebh kepenak & praktisnya)

[Translate]