Rumus Terbilang di Excel

Rumus terbilang di excel tanpa add-ins

Rumus Terbilang, sangat bermanfaat bagi kita yang ingin membuat Kwitansi pembayaran.

Gambar Contoh

Ada banyak cara membuat rumus terbilang Ms Excel contohnya yang paling mudah ya dengan add ins, tapi sangsinya jika kita memindah file excel nya ke pc lain yang tidak terdapat file add ins terbilang, bisa di pastikan rumusnya akan error, sudah gitu kerap kali setelah kita tambahkan add ins di maksud malah rumus tidak dapat membaca sumber file add insnya. 

Cara kedua dengan rumus Vlookup, tapi saya pernah mencoba hal ini, dan di jamin akan membuat file Ms Excelnya berat banget, karena banyaknya data yang akan di simpan, yakni data angka 1 - max yang kita butuhkan, dan terbilangnya, yasudah lah sumpah itu repot banget lah.

Nah kali ini kita akan menggunakan cara ketiga yakni menggunakan rumus IF, ya sudah lah kaga berlama - lama lagi langsung aja ke tkp.

Pertama - tama buka microsoft excelnya, copy dan pastekan rumus di bawah ini ke kolom mana aja :

=PROPER(IF(A1=0,"nol",IF(A1<0,"minus ","")&SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(--MID(TEXT(ABS(A1),"000000000000000"),1,3)=0,"",MID(TEXT(ABS(A1),"000000000000000"),1,1)&" ratus "&MID(TEXT(ABS(A1),"000000000000000"),2,1)&" puluh "&MID(TEXT(ABS(A1),"000000000000000"),3,1)&" trilyun ")&IF(--MID(TEXT(ABS(A1),"000000000000000"),4,3)=0,"",MID(TEXT(ABS(A1),"000000000000000"),4,1)&" ratus "&MID(TEXT(ABS(A1),"000000000000000"),5,1)&" puluh "&MID(TEXT(ABS(A1),"000000000000000"),6,1)&" milyar ")&IF(--MID(TEXT(ABS(A1),"000000000000000"),7,3)=0,"",MID(TEXT(ABS(A1),"000000000000000"),7,1)&" ratus "&MID(TEXT(ABS(A1),"000000000000000"),8,1)&" puluh "&MID(TEXT(ABS(A1),"000000000000000"),9,1)&" juta ")&IF(--MID(TEXT(ABS(A1),"000000000000000"),10,3)=0,"",IF(--MID(TEXT(ABS(A1),"000000000000000"),10,3)=1,"*",MID(TEXT(ABS(A1),"000000000000000"),10,1)&" ratus "&MID(TEXT(ABS(A1),"000000000000000"),11,1)&" puluh ")&MID(TEXT(ABS(A1),"000000000000000"),12,1)&" ribu ")&IF(--MID(TEXT(ABS(A1),"000000000000000"),13,3)=0,"",MID(TEXT(ABS(A1),"000000000000000"),13,1)&" ratus "&MID(TEXT(ABS(A1),"000000000000000"),14,1)&" puluh "&MID(TEXT(ABS(A1),"000000000000000"),15,1)),1,"satu"),2,"dua"),3,"tiga"),4,"empat"),5,"lima"),6,"enam"),7,"tujuh"),8,"delapan"),9,"sembilan"),"0 ratus",""),"0 puluh",""),"satu puluh 0","sepuluh"),"satu puluh satu","sebelas"),"satu puluh dua","duabelas"),"satu puluh tiga","tigabelas"),"satu puluh empat","empatbelas"),"satu puluh lima","limabelas"),"satu puluh enam","enambelas"),"satu puluh tujuh","tujuhbelas"),"satu puluh delapan","delapanbelas"),"satu puluh sembilan","sembilanbelas"),"satu ratus","seratus"),"*satu ribu","seribu"),0,""))," "," ")))

Jangan Lupa Baca Juga :

Cara Membuat Aplikasi Kasir Dengan Microsoft Excel

Dalam hal ini angka di ketikkan di kolom A1 silahkan di ubah aja A1 menjadi sesuai kebutuhan kita. 
Tapi panjang amat rumusnya bro! , ya begitulah tapi ini jauh lebih baik dari pada add-ins yang berpotensi error jika file di copy/pindah ke pc lain, atau harus buat daftar angka dan terbilangnya dari 1 - max.

Tapi gimana cara merubah text A1 yang sebanyak itu bro, kalo satu - satu jadi repot juga akhirnya?
Santai bisa kita akalin, kalo susah mengubahnya di lembar kerja excel, pastekan dulu rumusnya di lembar kerja word, blok salah satu text A1 lalu tekan pada keyboard ctrl + f, pada menu home klik replace pada Textbox Replace With ketikkan kolom tujuan misal contoh pada gambar.



Klik replaceall klik oke, and bum semua text A1 terganti menjadi 😁😁kemudian blok kembali rumus baru pastekan di lembar kerja excel (kolom yang kita inginkan)

Sekian dulu postingan saya kali ini, selamat mencoba and semoga sukses selalu. 

Comments

Popular posts from this blog

Cara Membuat Aplikasi Kasir Dengan Microsoft Excel

Cara Membuat Menu Utama dan Form Login di Vb.Net 2010 - 2019

Membuat Form Login dengan hak akses di Vb.Net 2010 – 2019

Belajar Memulai Pembuatan Aplikasi Berbasis DataBase Access di Vb.Net 2010 - 2019

Cara Megunci dan Menyembunyikan Rumus di Microsoft Excel

Cara Mendapatkan Kuota Geratis Telkomsel

BG-100DH Baterai Grip For Canon Eos 100D

Cara mendapatkan paket termurah telkomsel