Aplikasi Untuk Kuitansi - Hallo sahabat Okejal, Pada Artikel yang anda baca kali ini dengan judul Aplikasi Untuk Kuitansi, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Belajar MS Excel, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Aplikasi Untuk Kuitansi
link : Aplikasi Untuk Kuitansi

Aplikasi Untuk Kuitansi

Ini posting saya di tahun 2016, happy new year yah semuanya, mudah2xan sukses buat elu2x pade, baiklah kali ini saya membuat aplikasi untuk kuitansi atau semacam aplikasi terbilang ya, hanya saja saya pake rumus dan bisa meng-cover 999.999.999.999.999, sampai triliun, dan untuk diketahui sistem bilangan untuk currency, negara kita Indonesia mengacu pada sistem bilangan yang dipakai di U.S dan tampilannya seperti ini:

dan untuk aplikasi kuitansinya seperti ini:

Rumusnya puanjang ya,

=TRIM(TRIM(IF(--LEFT(RIGHT(TEXT(L17;"000000000000000");15);1)>0;TRIM(SUBSTITUTE(INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--LEFT(RIGHT(TEXT(L17;"000000000000000");15);1))&" Ratus";"Satu Ratus";"Seratus"));"")&" "&IF(--MID(RIGHT(TEXT(L17;"000000000000000");15);2;2)>0;TRIM(IF(--MID(RIGHT(TEXT(L17;"000000000000000");15);2;2)>20;INDEX({"";0;" Dua Puluh";" Tiga Puluh";" Empat Puluh";" Lima Puluh";" Enam Puluh";" Tujuh Puluh";" Delapan Puluh";" Sembilan Puluh"};1+--MID(RIGHT(TEXT(L17;"000000000000000");15);2;2)/10)&" "&INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--RIGHT(--MID(RIGHT(TEXT(L17;"000000000000000");15);2;2)))&" Triliun";INDEX({"";" 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"};1+--MID(RIGHT(TEXT(L17;"000000000000000");15);2;2))&" Triliun"));"")&" "&IF(--LEFT(RIGHT(TEXT(L17;"000000000000");12);1)>0;TRIM(SUBSTITUTE(INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--LEFT(RIGHT(TEXT(L17;"000000000000");12);1))&" Ratus";"Satu Ratus";"Seratus"));"")&" "&IF(--MID(RIGHT(TEXT(L17;"000000000000");12);2;2)>0;TRIM(IF(--MID(RIGHT(TEXT(L17;"000000000000");12);2;2)>20;INDEX({"";0;" Dua Puluh";" Tiga Puluh";" Empat Puluh";" Lima Puluh";" Enam Puluh";" Tujuh Puluh";" Delapan Puluh";" Sembilan Puluh"};1+--MID(RIGHT(TEXT(L17;"000000000000");12);2;2)/10)&" "&INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--RIGHT(--MID(RIGHT(TEXT(L17;"000000000000");12);2;2)))&IF(VALUE(MID(TEXT(INT(L17);REPT(0;12));1;3))>0;" Milyar";"");INDEX({"";" 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"};1+--MID(RIGHT(TEXT(L17;"000000000000");12);2;2))&IF(VALUE(MID(TEXT(INT(L17);REPT(0;12));1;3))>0;" Milyar";"")));""))&" "&IF(--LEFT(RIGHT(TEXT(L17;"000000000");9);1)>0;TRIM(SUBSTITUTE(INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--LEFT(RIGHT(TEXT(L17;"000000000");9);1))&" Ratus";"Satu Ratus";"Seratus"));"")&" "&IF(--MID(RIGHT(TEXT(L17;"000000000");9);2;2)>0;TRIM(IF(--MID(RIGHT(TEXT(L17;"000000000");9);2;2)>20;INDEX({"";0;" Dua Puluh";" Tiga Puluh";" Empat Puluh";" Lima Puluh";" Enam Puluh";" Tujuh Puluh";" Delapan Puluh";" Sembilan Puluh"};1+--MID(RIGHT(TEXT(L17;"000000000");9);2;2)/10)&" "&INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--RIGHT(--MID(RIGHT(TEXT(L17;"000000000");9);2;2)))&IF(VALUE(MID(TEXT(INT(L17);REPT(0;12));4;3))>0;" Juta";"");INDEX({"";" 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"};1+--MID(RIGHT(TEXT(L17;"000000000");9);2;2))&IF(VALUE(MID(TEXT(INT(L17);REPT(0;12));4;3))>0;" Juta";"")));IF(VALUE(MID(TEXT(INT(L17);REPT(0;12));4;3))>0;" Juta";""))&" "&IF(--LEFT(RIGHT(TEXT(L17;"000000");6);1)>0;TRIM(SUBSTITUTE(INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--LEFT(RIGHT(TEXT(L17;"000000");6);1))&" Ratus";"Satu Ratus";"Seratus"));"")&" "&IF(--MID(RIGHT(TEXT(L17;"000000");6);2;2)>0;IF(--MID(RIGHT(TEXT(L17;"000000");6);2;2)>20;INDEX({"";0;" Dua Puluh";" Tiga Puluh";" Empat Puluh";" Lima Puluh";" Enam Puluh";" Tujuh Puluh";" Delapan Puluh";" Sembilan Puluh"};1+--MID(RIGHT(TEXT(L17;"000000");6);2;2)/10)&" "&INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--RIGHT(--MID(RIGHT(TEXT(L17;"000000");6);2;2)))&IF(VALUE(MID(TEXT(INT(L17);REPT(0;12));7;3));" Ribu";"");SUBSTITUTE(INDEX({"";" 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"};1+--MID(RIGHT(TEXT(L17;"000000");6);2;2))&" Ribu";"Satu Ribu";"Seribu"));IF(VALUE(MID(TEXT(INT(L17);REPT(0;12));7;3));" Ribu";""))&" "&IF(--LEFT(RIGHT(TEXT(L17;"000");3);1)>0;TRIM(SUBSTITUTE(INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--LEFT(RIGHT(TEXT(L17;"000");3);1))&" Ratus";"Satu Ratus";"Seratus"));"")&" "&IF(--RIGHT(TEXT(L17;"000");2)>0;TRIM(IF(--RIGHT(TEXT(L17;"000");2)>20;INDEX({"";0;" Dua Puluh";" Tiga Puluh";" Empat Puluh";" Lima Puluh";" Enam Puluh";" Tujuh Puluh";" Delapan Puluh";" Sembilan Puluh"};1+--RIGHT(TEXT(L17;"000");2)/10)&" "&INDEX({"";"Satu";"Dua";"Tiga";"Empat";"Lima";"Enam";"Tujuh";"Delapan";"Sembilan"};1+--RIGHT(--RIGHT(TEXT(L17;"000");2)));INDEX({"";" 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"};1+--RIGHT(TEXT(L17;"000");2))));"")&" Rupiah")

Rumus ini bisa anda terapkan untuk keperluan lain, tidak harus untuk "currency" ya, anda dapat menghilangkan kata "Rupiah" pada rumus, dan referensi cell dapat anda ganti sesuai keperluan dengan menggunakan "Find and Replace".

FILE EXCEL KUITANSI

loading...

Demikianlah Artikel Aplikasi Untuk Kuitansi

Sekianlah artikel Aplikasi Untuk Kuitansi kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Aplikasi Untuk Kuitansi dengan alamat link https://okejal.blogspot.com/2016/01/aplikasi-untuk-kuitansi.html

Tweet