10 Januari 2016

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,

=PROPER(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(IF(INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));1;1);n_1;0))=0;"";INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));1;1);n_1;0))&" ratus ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;1);0);n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;1);0);n_1;0))&" puluh ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;2));n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;2));n_1;0)))&IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));1;1)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;1);0)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));1;3));REPT(0;3));2;2))=0;"";" triliun "));"satu ribu";" seribu ");"satu ratus";" seratus ");"satu puluh";" sepuluh "))&" "&TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(IF(INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));1;1);n_1;0))=0;"";INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));1;1);n_1;0))&" ratus ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;1);0);n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;1);0);n_1;0))&" puluh ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;2));n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;2));n_1;0)))&IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));1;1)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;1);0)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));4;3));REPT(0;3));2;2))=0;"";" miliar "));"satu ribu";" seribu ");"satu ratus";" seratus ");"satu puluh";" sepuluh "))&" "&TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(IF(INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));1;1);n_1;0))=0;"";INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));1;1);n_1;0))&" ratus ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;1);0);n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;1);0);n_1;0))&" puluh ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;2));n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;2));n_1;0)))&IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));1;1)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;1);0)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));7;3));REPT(0;3));2;2))=0;"";" juta "));"satu ribu";" seribu ");"satu ratus";" seratus ");"satu puluh";" sepuluh "))&" "&TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(IF(INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));1;1);n_1;0))=0;"";INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));1;1);n_1;0))&" ratus ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;1);0);n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;1);0);n_1;0))&" puluh ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;2));n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;2));n_1;0)))&IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));1;1)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;1);0)+IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));10;3));REPT(0;3));2;2))=0;"";" ribu "));"satu ribu";" seribu ");"satu ratus";" seratus ");"satu puluh";" sepuluh "))&" "&TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(IF(INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));1;1);n_1;0))=0;"";INDEX(a_1;MATCH(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));1;1);n_1;0))&" ratus ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;1);0);n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;1)>1;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;1);0);n_1;0))&" puluh ")&IF(INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;2));n_1;0))=0;"";INDEX(a_1;MATCH(IF(--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;2)>19;--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));3;1);--MID(TEXT(N(--MID(TEXT($M$17;REPT(0;15));13;3));REPT(0;3));2;2));n_1;0))));"satu ribu";" seribu ");"satu ratus";" seratus ");"satu puluh";" sepuluh ")))&IF(M17=0;"";" 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