Ikhlaskanlah....
Tidak ada satupun hamba-Ku yang ikhlas kuambil harta yg Kuberikan padanya, kecuali Kuganti dengan yang lebih baik. Tidak ada satupun hamba-Ku yang ridha dengan bala yang Kutimpakan padanya, kecuali Kunaikkan derajatnya. Dan tidak satupun hambaKu yang bersyukur, kecuali Kutambah nikmatKu padanya-
Macro Excel: Membuat fungsi terbilang
Posted on August 23rd, 2009 10 commentsPengguna 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.
vba-editor" src="http://mdin.staff.uad.ac.id/wp-content/uploads/2009/08/open-vba-editor-300x194.jpg" alt="Membuka VBA Editor di Excel" width="300" height="194" />
Hasil membuka VBA editor seperti gambar dibawah.
vba-editor" src="http://mdin.staff.uad.ac.id/wp-content/uploads/2009/08/vba-editor-300x246.jpg" alt="VBA Editor telah aktif" width="300" height="246" />
Langkah 3: Membuka MODUL baru.
uad.ac.id/wp-content/uploads/2009/08/insert-modul-300x177.jpg" alt="Membuka Modul Baru" width="300" height="177" />
Hasil insert modul, akan tersedia modul yang 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 Function
Function 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.
Hasil testing seperti dibawah.
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 icon microsoft excel,fungsi terbilang excel,fungsi menu dan icon pada microsoft excel,macro excel,macro excel terbilang,terbilang,excel terbilang,,fungsi macro excel,fungsi terbilang pada excel.Related posts:
- Macro Excel untuk Penulisan Rapot SD-SMP-SMA Pada suatu waktu ditanya oleh seseorang tentang menggunakan Excel untuk...
- Macro Excel: Number to Word conversion for various purpose in English The use ms excel to complete office work or personal...
- Belajar bikin Macro dengan VBA untuk Excel Perkenalan dengan program MS Excel sudah lama dan penggunaannya masih...
- Excel untuk kantor Sejarah komputer dan software sangat saya nikmati.. Sejak komputer dengan...
- Mini PC dengan Mega fungsi Komputer dengan ukuran besar nampaknya akan tetap dimiliki oleh para...
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
7 responses to “Macro Excel: Membuat fungsi terbilang”
-
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..
-
diper
sory sel yg e38 hanya contoh.. silahkan ganti dengan cell yg ada di file anda oke
wassalam
-
terima kasih buanyak.. ini sgt bermanfaat, bagi yg belum tau menambahkan kata rupiahnya ini sy tambahkan :
=”# “&terbilang(E38)&” rupiah #”
semoga lebih bermanfaat
diper
jakarta -
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.
-
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..
-
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)
3 Trackbacks / Pingbacks
-
[...] Tata cara membuat fungsi di excel dapat dibaca di blog mushlihudin. [...]
-
[...] dan penggunaan fungsinya sangat gampang dan cepat. Tata cara membuat fungsi secara lengkap di blog mushlihudin. Function TeksKeAngka(ByVal n As Double) As String Dim sSatuan() Dim s As String sSatuan() = [...]
-
[...] Ads was submitted by mdin mdin.staff.uad.ac.id. Source: Nama: mdin mdin.staff.uad.ac.id Email: mdinuad@YAHOO.COM Webpage: [...]
Leave a reply
Pencarian Akurat
i.e.: scholarships, blogs, books, insurances, handphones, etc.
pipit March 3rd, 2010 at 07:29