VARIASI-KOMBINASI ADD-IN TERBILANG
Fungsi terbilang nyang saya bikin bole jadi kliwat sederhana bangeth, karena cuman bisa mengubah dari format angka menjadi kalimat terbilang, bahkan dibandingin dengan fungsi rupiah nyang telah lebih dolo saya bikin, nyang dapat menghasilkan satuan nyang telah ditentukan dibelakang kalimat terbilang. Namun ada beberapa kelebihan fungsi terbilang 23 baris yang saya udah bikin :
- cuman 23 baris kode, nyang sebenarnya dapat saya singkat menjadi 20 baris aja
- sanggup menangani sampai dengan 15 digit angka dengan nilai maksimal 999.999.999.999.999 (“Sembilanratus Sembilanpuluh Sembilan Triliun Sembilanratus Sembilanpuluh Sembilan Miliar Sembilanratus Sembilanpuluh Sembilan Juta Sembilanratus Sembilanpuluh Sembilan Ribu Sembilanratus Sembilanpuluh Sembilan “).
- penulisan sudah sesuai dengan EYD ….Ā MDLMDL(Monggo Dipun Leresaken Menawi Dalem Lepat) š
ini kodenyah yang 20 baris:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Public Function terb20(x As Double) As String ANGKA = Array(“”, “Se”, “Dua”, “Tiga”, “Empat”, “Lima”, “Enam”, “Tujuh”, “Delapan”, “Sembilan”, “Sepuluh”, “Sebelas”, “Duabelas”, “Tigabelas”, “Empatbelas”, “Limabelas”, “Enambelas”, “Tujuhbelas”, “Delapanbelas”, “Sembilanbelas”) LEVEL = Array(“Triliun “, “Miliar “, “Juta “, “Ribu “, “”) For i = 0 To 4 TEMPRP = “” If Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 1 + (3 * i), 1) > 0 Then TEMPRP = ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 1 + (3 * i), 1)) & “ratus ” If Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 2) < 20 Then TEMPRP = TEMPRP & ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 2)) Else TEMPRP = TEMPRP & ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 1)) & “puluh ” & ANGKA(Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 3 + (3 * i), 1)) End If If Right(TEMPRP, 1) ” ” Then TEMPRP = TEMPRP & ” ” BERILEVEL: If TEMPRP ” ” Then TEMPRP = TEMPRP & LEVEL(i) If TEMPRP = “Se Ribu ” Then TEMPRP = “Seribu ” If TEMPRP ” ” Then terb20 = Application.WorksheetFunction.Substitute(terb20 & TEMPRP, “Se “, “Satu “) Next i If Abs(Round(x, 0)) = 0 Then terb20 = “Nol ” If x < 0 Then terb20 = “Minus ” & terb20 End Function |
bukannya nantangin pinter2 excel tapi kalo ada nyang lebih pendek dengan spek kaya diatas saya pengen belajar, sungguh ….
Hasil yang dikeluarkan oleh fungsi ini bole jadi belum bisa memenuhi kebutuhan anda, namun dengan sedikit kreativitas fungsi ini dapat dibongkar-pasang/digabung dengan fungsi2 bawaan excel laennya biyar bisa memenuhi kebutuhan anda
Berikut beberapa variasi dari kombinasi fungsi terbilang dengan formula bawaan excel
Menambah satuan
Penggabungan dengan fungsi excel sudah saya singgung sedikit pada artikel ADD-INSĀ TERBILANGĀ 23Ā BARIS yang bakal menghasilkan terbilang dengan penambahan satuan dibelakang. berikoot beberapa contonya :
- =terbilang(1)&ā kgā akan menghasilkanĀ Satu Kg
- =terbilang(12)&ā dozinā akan menghasilkan Duabelas dozin
- =terbilang(123)&ā buahā akan menghasilkan Seratus Duapuluh Tiga buah
- =terbilang(4567)&ā rupiahā akan menghasilkan Empat Ribu Limaratus Enampuluh Tujuh rupiah
- =terbilang(-24)&ā derajatā akan menghasilkan Minus Duapuluh Empat derajat
Merubah besar kecil huruf
Secara default kalimat terbilang nyang dihasilkan bakal menampilkan HURUF KAPITAL pada tiyap awal kata, seperti fungsi PROPER pada Excel, untuk merubah besar-kecil hurup yang digunakan, perhatikan pariasi formula2 berikoot :
- =TERBILANG(123) akan menghasilkan Seratus Duapuluh Tiga
- =PROPER(TERBILANG(123)) akan menghasilkan Seratus Duapluuh Tiga
- =LOWER(TERBILANG(123)) akan mengasilkan seratus duapuluh tiga
- =UPPER(TERBILANG(123)) akan menghasilkan SERATUS DUAPULUH TIGA
Penanganan angka2 desimal
Untuk penanganan angka2 desimal nyang memakai koma ada penambahan fungsi khusus, yaitu fungsi AKK (angka ke kata) yang saya sertakan dalam file conto nyang bisa anda donloth, conto liyat gambar berikoot :

- tentukan nilai yang akan di konvesri, misal 123.456789; pada cell C2 ketikkanĀ >> Ā 123.456789
- bulatkan nilai c2 ke bawah tanpa koma dengan cara pada cell C3 ketikkanĀ >>Ā Ā =ROUNDDOWN(C2;0) ; kemudian pada cell D3 ketikkan >> Ā Ā =TERBILANG(C3)Ā , untuk mencari terbilangnya.
- tentukan jumlah digit angka setelah koma yang akan diproses, dalam hal ini 3 angka dibelakang koma; pada cell C4 ketikkanĀ >> Ā =ROUND(10^3*(C2-C3);0)
- dalam hal angka setelah koma disebut langsung satu persatu (tidak menggunakan kalimat terbilang), digunakan fungsi tambahan AKK(Angka Ke Kata) seperti contoh berikut pada cell D4 ketikkanĀ >> Ā =AKK(C4)
- hasil D3 digabung dengan D4 dengan menyisipkan kata koma diantaranya dengan cara pada cell D5 ketikkan >> =$D$3&”koma “&D4
- hasil D3 digabung dengan E4 dengan menyisipkan kata koma diantaranya dengan cara pada cell E5 ketikkan >> =$D$3&”koma “&E4
cara diatas dilakukan secara bertahap agar lebih mudah dimengerti sehingga dibutuhkan beberapa cell, jika digabung dalam satu cell formulanya akan seperti berikut :
- pada cell D6 ketikkanĀ >> =TERBILANG(ROUNDDOWN($C$2;0))&”koma “&TERBILANG(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))
- pada cell E6 ketikkanĀ >> =TERBILANG(ROUNDDOWN($C$2;0))&”koma “&akk(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))
untuk penggunaan dua satuan, misal “……. rupiah …….sen” perhatikan contoh berikut ;
- pada cell D7 ketikkan >>Ā =TERBILANG(ROUNDDOWN($C$2;0))&”Rupiah “&TERBILANG(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))&”Sen”
- pada cell E7 ketikkan >> =TERBILANG(ROUNDDOWN($C$2;0))&”Rupiah “&akk(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))&”Sen”
untuk lebih jelas anda bisa mendownload file variasi terbilang.xls, didalamnya berisi kode fungsi terbilang 20 baris dan fungsi AKK(Angka Ke Kata), untuk merubahnya menjadi add-in bisa anda save as sebagai ms excel add-in, caranya bisa anda baca di artikel2 berikoot :
ADD-INSĀ RUPIAH
TIPS ADD-INSĀ RUPIAH
ADD-INSĀ TERBILANGĀ 23Ā BARIS
bingung cara downloadnya ??Baca aja halaman download dengan klik icon di samping |
feed , email and my social media![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
lail dis aja deh,
ngak mudeng excel
ok bro… š
sebelumnya saya ucapkan terima kasih telah membantu kami untuk mengerti exel lebih baik.
Mas syukron, saya mencoba untuk copy paste skript/kode 20 barisnya ke Microssoft visual Basicnya exel, tapi begitu di cek dengan Debug langsung timbul “Syntax error” pada kalimat “LEVEL = Array(āTriliun ā, āMiliar ā, āJuta ā, āRibu ā, āā)”
tolong mas, apa yang harus saya lakukan?
tolong jawabannya yang cepat ya mas, dan kalau mau juga bisa ke email saya
terima kasih banyak
memang kalO Copy-Paste secara langsung dari kode yang saya sisipkan dalam artikel ini tanda petik (“) kadang bermasalah … solusinya ketik ulang semua tanda petiknya … atau Copy-Paste dari file excel contoh variasiterbilang.xls yang bisa anda download … semoga berhasil dan terimakasih
bUKA KONCI VBA RP.1.XLA NYA BANK BANTU IA
rp1.xla udah kuno pak ndak efisiYen … pake terbilang yang terbaru aja cuman 16 baris … kodenya ada di artikel dan di contoh file … download dari folder terbilang aja … baca aja artikel2 dengan tag terbilang
IA DAH MAS TRIMAKSI MAS
Terima kasih mas, hebat nian nih software excel, pengembangannya bisa sangat luar biasa.
Terima kasih ilmunya Tuan Guru.
bisanya cuman kayak gini š š š š
mas mau tanya..
kalo misal
input : 25,98
output : dua lima koma sembilan delapan
input : 9,06
output : sembilan koma nol enam
input : 8,60
output : delapan koma enam nol
addin nya gimana mas..
makasih ya..
1. pisahkan angka depan dan angka dibelakang koma
2. terjemahkan dengan fungsi AKK yang ada pada terbilangpack.xls
3. gabung dengan menyisipkan ” koma ” diantaranya
mas, gimana jika mau seperti ini :
input : 3,00
output : tiga koma nol nol
input : 10,00
output : sepuluh koma nol nol
input : 3,06
output : tiga koma nol enam
tjoba batja ini
http://wp.me/p5qF4-nh
Mas, kalo tiap kata terpisah gimana caranya? cara edit dari VB-nya gimana…???
seperti :
123 terbilang “Seratus Duapuluh Tiga” (tanpa tanda petik)
supaya menjadi :
123 terbilang “Seratus Dua Puluh Tiga” (tanpa tanda petik)
Matur nuwun sak derengipun Mas….
cari aja di kodenya kata “puluh” ubah menjadi ” puluh” š
yang sesuai EYD gimana yah “Duapuluh” atau “Dua Puluh”
Thanks Pak Syukron…sudah saya terima dan berjalan dengan mulus….
kerjaan saya benar benar menjadi lebih ringan…tq
bisa ndak di tambah di akhir dengan kata RUPIAH dan bisa ndak di buat spasinya pada terbulang seperti ( DUAPULUH) menjadi ( DUA PULUH)
di bantu ya mas
baca lagi artikelnya dan komen2 sebelumnya š
saya sudah ikuti langkah yg di atas, kok ada tulisan rupiah nya ya, pdhal yg sy ketik =terbilang(75), menjadi tujuh puluh lima rupiah, bgmana cr menghilangkan rupiahnya? tlg di respon ya pak guru??
buka kodenya dan hilangkan kata ” rupiah “
udah pada broken semua linknya mas.. mau yg berapapun dibelakang koma di ignore
22000,3212 dibaca “dua puluh dua ribu”
Kalau fungsi AKK-nya gak jalan itu kenapa, ya?
tolong bimbingan bagaimana kalo mau yang seperti ini :
78,33333
outputnya : tujuh delapan
gabung fungsi terbilang dengan fungsi ROUND bawaan excel