Aplikasi Validasi Kartu Kredit dan Kartu NPWP

Lagi pada liburan ya bro dan bre? Saya lagi selesai bikin aplikasi buat memvalidasi kartu debit/kredit sama kartu NPWP, bagaimana bentuknya?

dan

Rumus yang dipakai untuk validdasi kartu debit/kredit (Rumus Array):
=IFERROR(IF(MOD(SUMPRODUCT(IF(((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=1)*MID(D2;ROW(INDIRECT("1:16"));1))*({2;2;2;2;2;2;2;2;2;2;2;2;2;2;2;2})>9;((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=1)*MID(D2;ROW(INDIRECT("1:16"));1))*({2;2;2;2;2;2;2;2;2;2;2;2;2;2;2;2})-9;((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=1)*MID(D2;ROW(INDIRECT("1:16"));1))*({2;2;2;2;2;2;2;2;2;2;2;2;2;2;2;2})))+SUMPRODUCT(((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=0)*MID(D2;ROW(INDIRECT("1:16"));1)));10)=0;"Kartu Valid";"Kartu Tidak Valid");"Kartu Tidak Valid")

Rumus cek validasi kartu NPWP:
=IF(MOD(SUMPRODUCT((MOD({1;2;3;4;5;6;7;8};2)=1)*MID(A17;ROW(INDIRECT("1:8"));1))*({1;1;1;1;1;1;1;1})+((MOD({1;2;3;4;5;6;7;8};2)=0)*MID(A17;ROW(INDIRECT("1:8"));1))*({2;2;2;2;2;2;2;2});10)=VALUE(MID(A17;9;1));"Kartu NPWP Valid";"Kartu NPWP Tidak Valid")

FILE APLIKASI

Kumpulan Kasus Excel Jilid 3

Happy weekend guys and girls, long time no see yes? Miss you already, langsung saja ya saya akan menyajikan rangkuman beberapa kasus lookup dan beberapa kasus yang lain, mudah2xan anda suka :)

Kasus 1

dan hasil yang diharapkan

dan rumusnya adalah
=IFERROR(INDEX(INDEX(B$1:B$1000;MATCH($D3;A$1:A$1000;0)):B$1000;AGGREGATE(15;6;(ROW(INDEX(A$1:A$1000;MATCH($D3;A$1:A$1000;0)):A$1000)-ROW(INDEX(A$1:A$1000;MATCH($D3;A$1:A$1000;0)))+1)/(E3=INDEX(A$1:A$1000;MATCH($D3;A$1:A$1000;0)):A$1000);1));"")

Kasus 2

Kasus ke 2 ini adalah mencari nilai terakhir dari 3 tabel dengan kriteria, dan hasil yang diinginkan adalah seperti ini

Rumusnya :
=IFERROR(IFERROR(IFERROR(1/(1/VLOOKUP(J3;$G$3:$H$12;2;0));1/(1/VLOOKUP(J3;$D$3:$E$12;2;0)));1/(1/VLOOKUP(J3;$A$3:$B$12;2;0)));0)

Kasus 3

Hasil yang diinginkan

Rumus :
=IFERROR(INDEX($B$2:$E$5;MATCH(A9;$A$2:$A$5;0);COUNTIF(A$9:A9;A9));"")

Kasus 4

Hasil yang diharapkan

Rumusnya
=INDEX(A$2:A$13;(ROW()-ROW($E$4))+MATCH($F$2;$A$2:$A$13;0);1)

Kasus 5

Kasus ke 5 ini adalah mencari nilai terdekat dari kriteria dan hasil yang diinginkan

Rumus :
=IFERROR(LARGE(A1:A10;COUNTIF(A1:A10;">"&C2)+1);"")
atau
=INDEX($A$1:$A$10;MATCH(MIN(ABS($A$1:$A$10-C2));INDEX(ABS($A$1:$A$10-C2);;);0);1) --> rumus array

Kasus 6

Kasus ke 6 ini mencari nilai tanpa duplikasi (unique values) dari tabel, hasilnya

Rumus (rumus array):
=IFERROR(INDEX($A$2:$E$9;MIN(IF(COUNTIF($G$1:$G1;$A$2:$E$9);FALSE;ROW($A$2:$E$9)-MIN(ROW($A$2:$E$9))+1));MATCH(TRUE;ISNA(MATCH(INDEX($A$2:$E$9;MIN(IF(COUNTIF($G$1:$G1;$A$2:$E$9);FALSE;ROW($A$2:$E$9)-MIN(ROW($A$2:$E$9))+1));0);$G$1:$G1;0));0));"")

FILE LATIHAN