« | Home | »

Fungsi Merubah Angka ke Kata Untuk MS Excel

By Aurino Djamaris | August 11, 2008

Fungsi Merubah Angka ke Kata Untuk MS Excel

Fungsi Terbilang(…) dan TerbilangRp(…), dan TerbilangSen(…)
Pada worksheet ini kita memakai fungsi terbilang yang telah di entry pada module Terbilang
Pada module tersebut kita memiliki dua fungsi utama untuk menampilkan angka menjadi:
1. Terbilang(x) -> sekian koma sekian per seratus
2. TerbilangRp(x) -> sekian rupiah sekian sen
2. TerbilangSen(x) -> sekian koma sekian sekian

Penggunaannya sama dengan penggunaan fungsi-fungsi dalam excel lainnya.


Get Linked from thousands of Classifieds for FREE with one click.

Contoh 922,337,203,685,477.00

Ditulis : = TerbilangRp(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh rupiah

Ditulis : = Terbilang(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh

Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh

Memasukkan Fungsi Terbilang
Masukkan Kode dalam listing vba function dengan cara mengcopy seluruh kode
ke dalam module Vba dalam suatu worksheet.

1. Blok/sorot A1:A163 dan Copy atau Ctrl-C pada Sheet Listing Vba Function

2. Pilih Tool – Macro – Visual Basic Editor atau Alt-F11
3. Insert – Module
4. Edit – Paste atau Ctrl-V
5 File Save … Beri nama misalnya: BacaAngka atau yang lainnya
selesai
anda tinggal menggunakannya.

contoh

!!!! Ingat anda harus men-setup macro security ke medium !!!!
Caranya
1 Menu Tools pilih tab Security lalu

2 Tekan tombol Macro Security pilih option Medium tekan Ok

3 Tutup Microsoft Excell dan Exit dari Excell
4 Buka Microsoft Excell
5 Mulai

LISTING

‘This Public Function for Indonesian “Numeric to string Converstion”
‘You can copy, modify or take part of this function
‘Redesign and retouch to get new rupiah function by: aurinoradjamaris@yahoo.com
‘aurinodjamaris@gmail.com
Web Site:

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
If x > 1E+15 Then
Terbilang = “”

Topics: Excel and Database, Function, Ms Excell 2007, Tips, Tutorial | Comments Off

Comments are closed.