Fungsi Merubah Angka ke Kata Untuk MS Excel

August 11, 2008 at 3:30 pm 15 comments

Fungsi Terbilang(…) dan TerbilangRp(…), dan TerbilangSen(…)
Kalau anda sering membuat kuitansi maka fungsi ini penting. 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

anda dapat melihat listing dan download file terbilang.zip dibawah ini

Penggunaannya sama dengan penggunaan fungsi-fungsi dalam excel lainnya.

Contoh 922,337,203,685,477.00

Sengaja file ini tidak diprotect ataupun dibuat menjadi xla untuk mendorong kreativitas anda dalam vba-excel.

Untuk mendownload file terbilang.zip

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 = “”
Exit Function
End If
‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) / 1000 ^ 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)
‘triliun = Int(x / 1000 ^ 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 trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun “
End If

‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = 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
If ribu = 1 Then
baca = baca + “Seribu “
Else

baca = baca + Ratus(ribu, 2) + “ribu “
End If
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + Ratus(sen, 0) + “per seratus “
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Public Function TerbilangRp(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
TerbilangRp = “”
Exit Function
End If
‘jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 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 trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun “
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = 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
If ribu = 1 Then
baca = baca + “Seribu “
Else

baca = baca + Ratus(ribu, 2) + “ribu “
End If
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + “”
End If
‘sebelum bagian sen
baca = baca & “rupiah “
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + Ratus(sen, 0) + “sen “
End If
End If
TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
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)
If a100 = 1 Then
baca = “Seratus “
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + “ratus “
End If
End If
‘baca bagian puluhan dan satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + “puluh “
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
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 Or 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 = “Duabelas “
Case 13: angka = “Tigabelas “
Case 14: angka = “Empatbelas “
Case 15: angka = “Limabelas “
Case 16: angka = “Enambelas “
Case 17: angka = “Tujuhbelas “
Case 18: angka = “Delapanbelas “
Case 19: angka = “Sembilanbelas “
End Select
End Function
Public Function TerbilangSen(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
TerbilangSen = “”
Exit Function
End If
x = Round(x, 2)
‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x – triliun * 1000 ^ 4) / 1000 ^ 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)
‘triliun = Int(x / 1000 ^ 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 trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun “
End If

‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = 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
If ribu = 1 Then
baca = baca + “Seribu “
Else

baca = baca + Ratus(ribu, 2) + “ribu “
End If
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + angka(Left(sen, 1), 1) + angka(Right(sen, 1), 1)
End If
End If
TerbilangSen = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function

About these ads

Entry filed under: Ms Excel, Uncategorized, VBA, Vba Excel. Tags: , , , , , .

Sampling Methods Menuliskan kalimat dengan rumus di Excel

15 Comments Add your own

  • 1. marwan  |  September 20, 2008 at 12:56 am

    bagai mana cara untuk pembacaan angka minus ? misalnya -1000 terbilangnya minus seribu

    Reply
  • 2. aurino  |  September 20, 2008 at 6:44 pm

    Pak Marwan,

    Kalau mau langsung sebetulnya mudah, dengan memakai fungsi gabung text (concanate).

    contoh -10000 ada di sel A1

    =if(a1<0,”minus “&terbilang(A1), terbilang(A1))

    atau kita merubah VB-nya.

    Untuk merubah VBnya akan segera saya buatkan kalau waktu sedang senggang …

    Thank for your question

    http://excel.aurino.com
    http://mathematica.aurino.com
    http://abc-bsm.aurino.com

    Reply
  • 3. Awing Permana  |  November 5, 2008 at 7:19 am

    Dalam blog itu saya sebenarnya ingin mempublikasikan contoh kerjaan saya, tapi saya gk bisa caranya, tolong dong kirimin tips nya, Terima kasih atas komentar Bang Aurino atas blog saya, mohn saran dan masukannya. Saya Bekerja di sebuah sekolah di Tangerang selama 7 tahun jalan, saya cendrung menggunakan fungsi excell, untuk berbagai keperluan pengolahan data, namun saya tidak bisa mempublikasikannya, itulah latar belakang blog saya.

    Reply
  • 4. aurino  |  November 5, 2008 at 3:39 pm

    Memang di blogspot tidak menyediakan tempat untuk menampung file. biasanya file dititipkan di tempat lain yang menerima upload file sebagai contoh untuk coba search file storage atau free drive atau free upload … banyak sekali tempat penyimpanan file di belantara internet.

    Jadi kang alung dapat mengupload file contohpekerjaan.xls atau contoh.pdf dan linksnya di posting pada blog ilmu komputer kang alung.

    atau mulai coba blog di wordpress yang menyediakan upload file. (http://wordpress.com) yang juga gratis.

    nah kalau mau hosting yang menyediakan tempat gratis serta bisa blogging atau membuat website coba access http://blog.aurino.com

    Reply
  • 5. wignyo  |  December 15, 2008 at 12:49 pm

    Saya sering mengolah data pakai excel dan menggunakan macro tapi dibuatkan oleh temen bagaimana menggunakan macro diexcel.

    THANKS

    Reply
  • 6. supian  |  December 24, 2008 at 4:05 am

    Thanks banget, pekerjaan laporan keuangan sekolah saya lebih mudah, tapi ketika koma sekian masih muncul sen, bagaimana caranya supaya sen hilang,

    exel forever

    Reply
  • 7. aurino  |  December 25, 2008 at 8:10 pm

    Kalau sennya bisa dihilangkan dengan cara :
    Buat angkanya integer =terbilang(INT(1050.20)

    Reply
  • 8. endro  |  January 19, 2009 at 2:27 pm

    Kalau dalam SSP Pajak Panjang Kolomnya kan terbatas, gimana biar begitu kolom tidak muat terbilang nya berlanjut ke baris berikutnya?
    Tq

    Reply
  • 9. miyo  |  January 23, 2009 at 2:51 am

    Saya sedang belajar buat penghitungan gaji, termasuk pph21. Berapa harga software sederhana untuk payroll? thanks

    Reply
  • 10. posp  |  March 12, 2009 at 7:30 am

    baiklah!
    akan saya coba!

    Reply
  • 11. bagus  |  April 1, 2009 at 8:06 am

    mohon bantunaya tutoialnya membuat aplikasi penjualan dengan macro excel,
    penting sekali buat toko saya.
    kasih cara bikinya aja yang penting detail. makasih

    Reply
  • 12. aurino  |  April 1, 2009 at 3:55 pm

    Pak bagus… bisa dijelaskan lebih lengkap maksud dari aplikasi penjualannya … apakah membuat faktur atau yang lainnya

    Reply
  • 13. imam  |  May 6, 2009 at 2:48 am

    pak minta tolong gimana kalau 4 desimal saya perlu yang 4 desimal, jadi kalau bisa terbilang, terbilansen, terbilang rp satu tambahan 4 desimal

    Reply
  • 14. supriyanto  |  June 8, 2012 at 6:25 am

    Pak bagaimana caranya kita merubah angka ke huruf bukan berbentuk puluhan, ratusan atau jutaan tapi menyebutkan satu satu misalnya 78,90 ( Tujuh Delapan Koma Sembilan Nol).
    Terimakasih atas bantuannya. (Prie Padang Panjang)

    Reply
  • 15. aurino  |  May 8, 2009 at 1:45 am

    Oke pak segera dibuatkan

    Reply

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 13 other followers

Blog Stats

  • 75,588 hits

Twitter Updates

Error: Twitter did not respond. Please wait a few minutes and refresh this page.

Iklan


Follow

Get every new post delivered to your Inbox.

%d bloggers like this: