|
Referensi |
: |
|
|
Platform |
: |
Excel 2007 |
|
Lokasi File |
: |
Pada posting [XLS-PMG-02]: Rumus Terbilang di Excel (Tanpa Macro/VBA), diuraikan langkah membuat fungsi terbilang dengan menggunakan fasilitas ‘named range’. Pada posting tersebut menggunakan 21 (dua puluh satu) named ranges.
Kelemahan dari fungsi terbilang di posting sebelumnya adalah mengharuskan user untuk selalu mengubah “named range” [Angka], jika angka yang akan disebutkan terbilangnya ada di sheet lain.
Misalkan angka yang akan disebut terbilangnya ada di sheet [SheetBaru] Range [B1], maka range [Angka] yang sebelumnya refer ke
[Angka]=TEXT(terbilang!A18,REPT(“0″,9)&”.00″) dirubah menjadi
[Angka]=TEXT(SheetBaru!B1,REPT(“0″,9)&”.00″)
Posting kali ini akan digunakan cara baru yaitu menggunakan satu formula yang panjang (Mega Formula) dan dua “named range” yang bersifat tetap atau konstan yang tidak perlu dirubah-rubah lagi jika akan meng-copy formula di sheet lain dalam satu workbook.
Mega Formula menggunakan kombinasi fungsi excel yaitu empat fungsi manipulati text : TEXT(), REPT(), MID(), SUBSTITUTE() dan satu fungsi array : INDEX()
Berikut adalah langkah-langkahnya:
1. Buat 2 (dua) “named range”
|
Named Range |
Refer To |
Note |
|
frm |
=”000000000″ |
maksimal angka 999999999 interger (tanpa desimal) |
|
ListHuruf |
={“”,”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”} |
|
2. Misal angka yang akan disebut terbilangnya ada di [A2], maka rumus atau formula terbilangnya adalah
Rev.01 update menjadi maximal 12 digit angka bulat
|
=IF(LEN(INT(A2))>LEN(_frm),”#Maximal 12 digit angka bulat#”, &INDEX(ListHuruf,MID(TEXT(A2,_frm),4,1)+1) &SUBSTITUTE(INDEX(ListHuruf,MID(TEXT(A2,_frm),7,1)+1) &INDEX(ListHuruf,MID(TEXT(A2,_frm),10,1)+1) |
Code for spelling number to English :
|
=IF(LEN(INT(A3))>LEN(_frm),”#Maximal 12 digit#”, &INDEX(ListNumber,MID(TEXT(A3,_frm),4,1)+1) &INDEX(ListNumber,MID(TEXT(A3,_frm),7,1)+1) &INDEX(ListNumber,MID(TEXT(A3,_frm),10,1)+1) |
Silahkan dicoba, jika ada yang salah penyebutan angkanya tolong aku diberitahu ya…
-zainul-
coretan tentang autocad dan excel 
met malem mas…. tengkiu dah mau share rumus terbilang tanpa menggunakan makro. Namun setelah saya coba masih ada kesalahan penyebutan mas… untuk bilangan bulat 300.000 (tiga ratus ribu) misalnya, disana masih menyebutkan “tiga ratus”, tanpa menyebutkan ribu… tengkiu
kalo diingikan menulis angka tiga ratus ribu, cara memasukan angkanya adalah 300000
kalo diinginkan menulis angka tiga juta tiga, cara memasukkan angkanya 3000003
coba deh mas klo 30001000 (Tiga Juta Seribu), Thank you
terimakasih koreksinya mas Jimmy.
silahkan didownload lagi rumus yang sudah saya koreksi..
mas bisa nggak bikin rumus terbilang tanpa predikat puluh, ribu, ratus hanya anka saja.. misal 73 jadi tujuh tiga, bukan tujuh puluh tiga, ini digunakan untuk nulis raport, karena terbatasnya kolom & aturan dipenuliasan rapot tanpa menggunakan predikat pluh, ribu, ratus, terima kasih…
terlebih dahulu didownload file di halaman ini dan
angka yang akan dirubah ada di A5
=INDEX(ListHuruf,MID(A5,1,1)+1) & ” ” & INDEX(ListHuruf,MID(A5,2,1)+1) & ” ” & INDEX(ListHuruf,MID(A5,3,1)+1)