INGIN MEMBUAT KALENDER SEPANJANG MASA? MASUK KE SINI GAN!

Beranda

...

The Lounge
INGIN MEMBUAT KALENDER SEPANJANG MASA? MASUK KE SINI GAN!

gilbertagung

06-02-2019 05:00

INGIN MEMBUAT KALENDER SEPANJANG MASA? MASUK KE SINI GAN!

Apakah Anda adalah orang yang setiap tahun selalu membeli atau menunggu untuk mendapatkan kalender? Apakah Anda ingin mengetahui pada hari apakah kota Jakarta didirikan? Inilah threadyang tepat untuk Anda!

Latar Belakang
Berawal ketika saya mengunjungi sebuah tutorial pembuatan kalender (link dan link). Saya pun mencoba sendiri membuatnya. Setelah selesai membuatnya, saya menemukan kelemahan dari kalender ini. Kalender ini bergantung pada basis data penanggalan yang dimiliki oleh Microsoft Excel sehingga hanya dapat menunjukkan kalender mulai tahun 1900 hingga 3799. Maka, dengan menggunakan pengetahuan saya di bidang penanggalan seperti yang telah saya tuangkan dalam thread ini, saya pun membuat tutorial kalender sepanjang masa menggunakan Microsoft Excel atau perangkat lunak sejenis.
Setelah 9 hari melakukan penyusunan dengan metode trial and error, saya pun berhasil menyusun kalender sepanjang masa yang tepat.

Kode
S1 = Senin; S2 = Selasa; R = Rabu; K = Kamis; J = Jumat; S3 = Sabtu; M = Minggu
365 = Biasa; 366 = Kabisat

Kalender Tahunan Gregorian
Tutorial ini akan menghasilkan sebuah kalender tahunan dengan deret dua bulanan dengan panjang 56 baris dan lebar 15 kolom.

#1
Gabungkan sel A1 sampai O2 dengan menggunakan fitur Merge and Center dan isi dengan sembarang bilangan bulat.

#2
Gabungkan sel A2 sampai O2 dan isi dengan rumus berikut.
Peringatan : Rumus berikut sangat panjang. Jika Anda tak kuat melihat deretan rumus yang panjang, jangan membukanya.

Spoiler for Rumus:

=IF(OR(MOD(A1;400)=6;MOD(A1;400)=17;MOD(A1;400)=23;MOD(A1;400)=34;MOD(A1;400)=45;MOD(A1;400)=51;MOD(A1;400)=62;MOD(A1;400)=73;MOD(A1;400)=79;MOD(A1;400)=90;MOD(A1;400)=102;MOD(A1;400)=113;MOD(A1;400)=119;MOD(A1;400)=130;MOD(A1;400)=141;MOD(A1;400)=147;MOD(A1;400)=158;MOD(A1;400)=169;MOD(A1;400)=175;MOD(A1;400)=186;MOD(A1;400)=197;MOD(A1;400)=209;MOD(A1;400)=215;MOD(A1;400)=226;MOD(A1;400)=237;MOD(A1;400)=243;MOD(A1;400)=254;MOD(A1;400)=265;MOD(A1;400)=271;MOD(A1;400)=282;MOD(A1;400)=293;MOD(A1;400)=299;MOD(A1;400)=305;MOD(A1;400)=311;MOD(A1;400)=322;MOD(A1;400)=333;MOD(A1;400)=339;MOD(A1;400)=350;MOD(A1;400)=361;MOD(A1;400)=367;MOD(A1;400)=378;MOD(A1;400)=389;MOD(A1;400)=395);"M-365";IF(OR(MOD(A1;400)=12;MOD(A1;400)=40;MOD(A1;400)=68;MOD(A1;400)=96;MOD(A1;400)=108;MOD(A1;400)=136;MOD(A1;400)=164;MOD(A1;400)=192;MOD(A1;400)=204;MOD(A1;400)=232;MOD(A1;400)=260;MOD(A1;400)=288;MOD(A1;400)=328;MOD(A1;400)=356;MOD(A1;400)=384);"M-366";IF(OR(MOD(A1;400)=1;MOD(A1;400)=7;MOD(A1;400)=18;MOD(A1;400)=29;MOD(A1;400)=35;MOD(A1;400)=46;MOD(A1;400)=57;MOD(A1;400)=63;MOD(A1;400)=74;MOD(A1;400)=85;MOD(A1;400)=91;MOD(A1;400)=103;MOD(A1;400)=114;MOD(A1;400)=125;MOD(A1;400)=131;MOD(A1;400)=142;MOD(A1;400)=153;MOD(A1;400)=159;MOD(A1;400)=170;MOD(A1;400)=181;MOD(A1;400)=187;MOD(A1;400)=198;MOD(A1;400)=210;MOD(A1;400)=221;MOD(A1;400)=227;MOD(A1;400)=238;MOD(A1;400)=249;MOD(A1;400)=255;MOD(A1;400)=266;MOD(A1;400)=277;MOD(A1;400)=283;MOD(A1;400)=294;MOD(A1;400)=300;MOD(A1;400)=306;MOD(A1;400)=317;MOD(A1;400)=323;MOD(A1;400)=334;MOD(A1;400)=345;MOD(A1;400)=351;MOD(A1;400)=362;MOD(A1;400)=373;MOD(A1;400)=379;MOD(A1;400)=390);"S1-365";IF(OR(MOD(A1;400)=24;MOD(A1;400)=52;MOD(A1;400)=80;MOD(A1;400)=120;MOD(A1;400)=148;MOD(A1;400)=176;MOD(A1;400)=216;MOD(A1;400)=244;MOD(A1;400)=272;MOD(A1;400)=312;MOD(A1;400)=340;MOD(A1;400)=368;MOD(A1;400)=396);"S1-366";IF(OR(MOD(A1;400)=2;MOD(A1;400)=13;MOD(A1;400)=19;MOD(A1;400)=30;MOD(A1;400)=41;MOD(A1;400)=47;MOD(A1;400)=58;MOD(A1;400)=69;MOD(A1;400)=75;MOD(A1;400)=86;MOD(A1;400)=97;MOD(A1;400)=109;MOD(A1;400)=115;MOD(A1;400)=126;MOD(A1;400)=137;MOD(A1;400)=143;MOD(A1;400)=154;MOD(A1;400)=165;MOD(A1;400)=171;MOD(A1;400)=182;MOD(A1;400)=193;MOD(A1;400)=199;MOD(A1;400)=205;MOD(A1;400)=211;MOD(A1;400)=222;MOD(A1;400)=233;MOD(A1;400)=239;MOD(A1;400)=250;MOD(A1;400)=261;MOD(A1;400)=267;MOD(A1;400)=278;MOD(A1;400)=289;MOD(A1;400)=295;MOD(A1;400)=301;MOD(A1;400)=307;MOD(A1;400)=318;MOD(A1;400)=329;MOD(A1;400)=335;MOD(A1;400)=346;MOD(A1;400)=357;MOD(A1;400)=363;MOD(A1;400)=374;MOD(A1;400)=385;MOD(A1;400)=391);"S2-365";IF(OR(MOD(A1;400)=8;MOD(A1;400)=36;MOD(A1;400)=64;MOD(A1;400)=92;MOD(A1;400)=104;MOD(A1;400)=132;MOD(A1;400)=160;MOD(A1;400)=188;MOD(A1;400)=228;MOD(A1;400)=256;MOD(A1;400)=284;MOD(A1;400)=324;MOD(A1;400)=352;MOD(A1;400)=380);"S2-366";IF(OR(MOD(A1;400)=3;MOD(A1;400)=14;MOD(A1;400)=25;MOD(A1;400)=31;MOD(A1;400)=42;MOD(A1;400)=53;MOD(A1;400)=59;MOD(A1;400)=70;MOD(A1;400)=81;MOD(A1;400)=87;MOD(A1;400)=98;MOD(A1;400)=110;MOD(A1;400)=121;MOD(A1;400)=127;MOD(A1;400)=138;MOD(A1;400)=149;MOD(A1;400)=155;MOD(A1;400)=166;MOD(A1;400)=177;MOD(A1;400)=183;MOD(A1;400)=194;MOD(A1;400)=200;MOD(A1;400)=206;MOD(A1;400)=217;MOD(A1;400)=223;MOD(A1;400)=234;MOD(A1;400)=245;MOD(A1;400)=251;MOD(A1;400)=262;MOD(A1;400)=273;MOD(A1;400)=279;MOD(A1;400)=290;MOD(A1;400)=302;MOD(A1;400)=313;MOD(A1;400)=319;MOD(A1;400)=330;MOD(A1;400)=341;MOD(A1;400)=347;MOD(A1;400)=358;MOD(A1;400)=369;MOD(A1;400)=375;MOD(A1;400)=386;MOD(A1;400)=397);"R-365";IF(OR(MOD(A1;400)=20;MOD(A1;400)=48;MOD(A1;400)=76;MOD(A1;400)=116;MOD(A1;400)=144;MOD(A1;400)=172;MOD(A1;400)=212;MOD(A1;400)=240;MOD(A1;400)=268;MOD(A1;400)=296;MOD(A1;400)=308;MOD(A1;400)=336;MOD(A1;400)=364;MOD(A1;400)=392);"R-366";IF(OR(MOD(A1;400)=9;MOD(A1;400)=15;MOD(A1;400)=26;MOD(A1;400)=37;MOD(A1;400)=43;MOD(A1;400)=54;MOD(A1;400)=65;MOD(A1;400)=71;MOD(A1;400)=82;MOD(A1;400)=93;MOD(A1;400)=99;MOD(A1;400)=105;MOD(A1;400)=111;MOD(A1;400)=122;MOD(A1;400)=133;MOD(A1;400)=139;MOD(A1;400)=150;MOD(A1;400)=161;MOD(A1;400)=167;MOD(A1;400)=178;MOD(A1;400)=189;MOD(A1;400)=195;MOD(A1;400)=201;MOD(A1;400)=207;MOD(A1;400)=218;MOD(A1;400)=229;MOD(A1;400)=235;MOD(A1;400)=246;MOD(A1;400)=257;MOD(A1;400)=263;MOD(A1;400)=274;MOD(A1;400)=285;MOD(A1;400)=291;MOD(A1;400)=303;MOD(A1;400)=314;MOD(A1;400)=325;MOD(A1;400)=331;MOD(A1;400)=342;MOD(A1;400)=353;MOD(A1;400)=359;MOD(A1;400)=370;MOD(A1;400)=381;MOD(A1;400)=387;MOD(A1;400)=398);"K-365";IF(OR(MOD(A1;400)=4;MOD(A1;400)=32;MOD(A1;400)=60;MOD(A1;400)=88;MOD(A1;400)=128;MOD(A1;400)=156;MOD(A1;400)=184;MOD(A1;400)=224;MOD(A1;400)=252;MOD(A1;400)=280;MOD(A1;400)=320;MOD(A1;400)=348;MOD(A1;400)=376);"K-366";IF(OR(MOD(A1;400)=10;MOD(A1;400)=21;MOD(A1;400)=27;MOD(A1;400)=38;MOD(A1;400)=49;MOD(A1;400)=55;MOD(A1;400)=66;MOD(A1;400)=77;MOD(A1;400)=83;MOD(A1;400)=94;MOD(A1;400)=100;MOD(A1;400)=106;MOD(A1;400)=117;MOD(A1;400)=123;MOD(A1;400)=134;MOD(A1;400)=145;MOD(A1;400)=151;MOD(A1;400)=162;MOD(A1;400)=173;MOD(A1;400)=179;MOD(A1;400)=190;MOD(A1;400)=202;MOD(A1;400)=213;MOD(A1;400)=219;MOD(A1;400)=230;MOD(A1;400)=241;MOD(A1;400)=247;MOD(A1;400)=258;MOD(A1;400)=269;MOD(A1;400)=275;MOD(A1;400)=286;MOD(A1;400)=297;MOD(A1;400)=309;MOD(A1;400)=315;MOD(A1;400)=326;MOD(A1;400)=337;MOD(A1;400)=343;MOD(A1;400)=354;MOD(A1;400)=365;MOD(A1;400)=371;MOD(A1;400)=382;MOD(A1;400)=393;MOD(A1;400)=399);"J-365";IF(OR(MOD(A1;400)=16;MOD(A1;400)=44;MOD(A1;400)=72;MOD(A1;400)=112;MOD(A1;400)=140;MOD(A1;400)=168;MOD(A1;400)=196;MOD(A1;400)=208;MOD(A1;400)=236;MOD(A1;400)=264;MOD(A1;400)=292;MOD(A1;400)=304;MOD(A1;400)=332;MOD(A1;400)=360;MOD(A1;400)=388);"J-366";IF(OR(MOD(A1;400)=5;MOD(A1;400)=11;MOD(A1;400)=22;MOD(A1;400)=33;MOD(A1;400)=39;MOD(A1;400)=50;MOD(A1;400)=61;MOD(A1;400)=67;MOD(A1;400)=78;MOD(A1;400)=89;MOD(A1;400)=95;MOD(A1;400)=101;MOD(A1;400)=107;MOD(A1;400)=118;MOD(A1;400)=129;MOD(A1;400)=135;MOD(A1;400)=146;MOD(A1;400)=157;MOD(A1;400)=163;MOD(A1;400)=174;MOD(A1;400)=185;MOD(A1;400)=191;MOD(A1;400)=203;MOD(A1;400)=214;MOD(A1;400)=225;MOD(A1;400)=231;MOD(A1;400)=242;MOD(A1;400)=253;MOD(A1;400)=259;MOD(A1;400)=270;MOD(A1;400)=281;MOD(A1;400)=287;MOD(A1;400)=298;MOD(A1;400)=310;MOD(A1;400)=321;MOD(A1;400)=327;MOD(A1;400)=338;MOD(A1;400)=349;MOD(A1;400)=355;MOD(A1;400)=366;MOD(A1;400)=377;MOD(A1;400)=383;MOD(A1;400)=394);"S3-365";IF(OR(MOD(A1;400)=0;MOD(A1;400)=28;MOD(A1;400)=56;MOD(A1;400)=84;MOD(A1;400)=124;MOD(A1;400)=152;MOD(A1;400)=180;MOD(A1;400)=220;MOD(A1;400)=248;MOD(A1;400)=276;MOD(A1;400)=316;MOD(A1;400)=344;MOD(A1;400)=372);"S3-366"))))))))))))))

Jika benar, hasilnya adalah seperti ini.

#3
Sekarang, kita akan membuat kepala bulannya. Setiap bulan memiliki panjang 8 baris dan lebar 7 kolom. Gabungkan sel A4 sampai G4 menjadi satu dan isi dengan rumus berikut.

Spoiler for Rumus:

=CONCATENATE("Januari "; A1)

Kemudian, masukkan nama hari dalam seminggu, mulai dari "Minggu" sampai "Sabtu".
Jika benar hasilnya adalah seperti ini.

Ulangi langkah di atas untuk bulan-bulan lainnya, tentu dengan penyesuaian, sehingga semua bulan memiliki kepala. Beri jarak 1 kolom untuk kedua bulan dalam satu deret dan satu baris untuk bulan dan kepala bulan di bawahnya berjarak 9 baris dari kepala bulan di atasnya.
Jika benar, hasilnya adalah seperti ini.

#4
Sekarang, kita masukkan rumus untuk tanggalnya. Masukkan rumus berikut untuk baris pertama per bulannya.
Januari
Minggu : =IF(A2="M-365";1;IF(A2="M-366";1;""))
Senin : =IF(A2="M-365";2;IF(A2="M-366";2;IF(A2="S1-365";1;IF(A2="S1-366";1;""))))
Selasa : =IF(A2="M-365";3;IF(A2="M-366";3;IF(A2="S1-365";2;IF(A2="S1-366";2;IF(A2="S2-365";1;IF(A2="S2-366";1;""))))))
Rabu : =IF(A2="M-365";4;IF(A2="M-366";4;IF(A2="S1-365";3;IF(A2="S1-366";3;IF(A2="S2-365";2;IF(A2="S2-366";2;IF(A2="R-365";1;IF(A2="R-366";1;""))))))))
Kamis : =IF(A2="M-365";5;IF(A2="M-366";5;IF(A2="S1-365";4;IF(A2="S1-366";4;IF(A2="S2-365";3;IF(A2="S2-366";3;IF(A2="R-365";2;IF(A2="R-366";2;IF(A2="K-365";1;IF(A2="K-366";1;""))))))))))
Jumat : =IF(A2="M-365";6;IF(A2="M-366";6;IF(A2="S1-365";5;IF(A2="S1-366";5;IF(A2="S2-365";4;IF(A2="S2-366";4;IF(A2="R-365";3;IF(A2="R-366";3;IF(A2="K-365";2;IF(A2="K-366";2;IF(A2="J-365";1;IF(A2="J-366";1;""))))))))))))
Sabtu : =IF(A2="M-365";7;IF(A2="M-366";7;IF(A2="S1-365";6;IF(A2="S1-366";6;IF(A2="S2-365";5;IF(A2="S2-366";5;IF(A2="R-365";4;IF(A2="R-366";4;IF(A2="K-365";3;IF(A2="K-366";3;IF(A2="J-365";2;IF(A2="J-366";2;IF(A2="S3-365";1;IF(A2="S3-366";1;""))))))))))))))

Februari
Minggu : =IF(A2="K-365";1;IF(A2="K-366";1;""))
Senin : =IF(A2="K-365";2;IF(A2="K-366";2;IF(A2="J-365";1;IF(A2="J-366";1;""))))
Selasa : =IF(A2="K-365";3;IF(A2="K-366";3;IF(A2="J-365";2;IF(A2="J-366";2;IF(A2="S3-365";1;IF(A2="S3-366";1;""))))))
Rabu : =IF(A2="K-365";4;IF(A2="K-366";4;IF(A2="J-365";3;IF(A2="J-366";3;IF(A2="S3-365";2;IF(A2="S3-366";2;IF(A2="M-365";1;IF(A2="M-366";1;""))))))))
Kamis : =IF(A2="K-365";5;IF(A2="K-366";5;IF(A2="J-365";4;IF(A2="J-366";4;IF(A2="S3-365";3;IF(A2="S3-366";3;IF(A2="M-365";2;IF(A2="M-366";2;IF(A2="S1-365";1;IF(A2="S1-366";1;""))))))))))
Jumat : =IF(A2="K-365";6;IF(A2="K-366";6;IF(A2="J-365";5;IF(A2="J-366";5;IF(A2="S3-365";4;IF(A2="S3-366";4;IF(A2="M-365";3;IF(A2="M-366";3;IF(A2="S1-365";2;IF(A2="S1-366";2;IF(A2="S2-365";1;IF(A2="S2-366";1;""))))))))))))
Sabtu : =IF(A2="K-365";7;IF(A2="K-366";7;IF(A2="J-365";6;IF(A2="J-366";6;IF(A2="S3-365";5;IF(A2="S3-366";5;IF(A2="M-365";4;IF(A2="M-366";4;IF(A2="S1-365";3;IF(A2="S1-366";3;IF(A2="S2-365";2;IF(A2="S2-366";2;IF(A2="R-365";1;IF(A2="R-366";1;""))))))))))))))

Maret
Minggu : =IF(A2="R-366";1;IF(A2="K-365";1;""))
Senin : =IF(A2="R-366";2;IF(A2="K-365";2;IF(A2="K-366";1;IF(A2="J-365";1;""))))
Selasa : =IF(A2="R-366";3;IF(A2="K-365";3;IF(A2="K-366";2;IF(A2="J-365";2;IF(A2="J-366";1;IF(A2="S3-365";1;""))))))
Rabu : =IF(A2="R-366";4;IF(A2="K-365";4;IF(A2="K-366";3;IF(A2="J-365";3;IF(A2="J-366";2;IF(A2="S3-365";2;IF(A2="S3-366";1;IF(A2="M-365";1;""))))))))
Kamis : =IF(A2="R-366";5;IF(A2="K-365";5;IF(A2="K-366";4;IF(A2="J-365";4;IF(A2="J-366";3;IF(A2="S3-365";3;IF(A2="S3-366";2;IF(A2="M-365";2;IF(A2="M-366";1;IF(A2="S1-365";1;""))))))))))
Jumat : =IF(A2="R-366";6;IF(A2="K-365";6;IF(A2="K-366";5;IF(A2="J-365";5;IF(A2="J-366";4;IF(A2="S3-365";4;IF(A2="S3-366";3;IF(A2="M-365";3;IF(A2="M-366";2;IF(A2="S1-365";2;IF(A2="S1-366";1;IF(A2="S2-365";1;""))))))))))))
Sabtu : =IF(A2="R-366";7;IF(A2="K-365";7;IF(A2="K-366";6;IF(A2="J-365";6;IF(A2="J-366";5;IF(A2="S3-365";5;IF(A2="S3-366";4;IF(A2="M-365";4;IF(A2="M-366";3;IF(A2="S1-365";3;IF(A2="S1-366";2;IF(A2="S2-365";2;IF(A2="S2-366";1;IF(A2="R-365";1;""))))))))))))))

April
Minggu : =IF(A2="M-366";1;IF(A2="S1-365";1;""))
Senin : =IF(A2="M-366";2;IF(A2="S1-365";2;IF(A2="S1-366";1;IF(A2="S2-365";1;""))))
Selasa : =IF(A2="M-366";3;IF(A2="S1-365";3;IF(A2="S1-366";2;IF(A2="S2-365";2;IF(A2="S2-366";1;IF(A2="R-365";1;""))))))
Rabu : =IF(A2="M-366";4;IF(A2="S1-365";4;IF(A2="S1-366";3;IF(A2="S2-365";3;IF(A2="S2-366";2;IF(A2="R-365";2;IF(A2="R-366";1;IF(A2="K-365";1;""))))))))
Kamis : =IF(A2="M-366";5;IF(A2="S1-365";5;IF(A2="S1-366";4;IF(A2="S2-365";4;IF(A2="S2-366";3;IF(A2="R-365";3;IF(A2="R-366";2;IF(A2="K-365";2;IF(A2="K-366";1;IF(A2="J-365";1;""))))))))))
Jumat : =IF(A2="M-366";6;IF(A2="S1-365";6;IF(A2="S1-366";5;IF(A2="S2-365";5;IF(A2="S2-366";4;IF(A2="R-365";4;IF(A2="R-366";3;IF(A2="K-365";3;IF(A2="K-366";2;IF(A2="J-365";2;IF(A2="J-366";1;IF(A2="S3-365";1;""))))))))))))
Sabtu : =IF(A2="M-366";7;IF(A2="S1-365";7;IF(A2="S1-366";6;IF(A2="S2-365";6;IF(A2="S2-366";5;IF(A2="R-365";5;IF(A2="R-366";4;IF(A2="K-365";4;IF(A2="K-366";3;IF(A2="J-365";3;IF(A2="J-366";2;IF(A2="S3-365";2;IF(A2="S3-366";1;IF(A2="M-365";1;""))))))))))))))

Mei
Minggu : =IF(A2="J-366";1;IF(A2="S3-365";1;""))
Senin : =IF(A2="J-366";2;IF(A2="S3-365";2;IF(A2="S3-366";1;IF(A2="M-365";1;""))))
Selasa : =IF(A2="J-366";3;IF(A2="S3-365";3;IF(A2="S3-366";2;IF(A2="M-365";2;IF(A2="M-366";1;IF(A2="S1-365";1;""))))))
Rabu : =IF(A2="J-366";4;IF(A2="S3-365";4;IF(A2="S3-366";3;IF(A2="M-365";3;IF(A2="M-366";2;IF(A2="S1-365";2;IF(A2="S1-366";1;IF(A2="S2-365";1;""))))))))
Kamis : =IF(A2="J-366";5;IF(A2="S3-365";5;IF(A2="S3-366";4;IF(A2="M-365";4;IF(A2="M-366";3;IF(A2="S1-365";3;IF(A2="S1-366";2;IF(A2="S2-365";2;IF(A2="S2-366";1;IF(A2="R-365";1;""))))))))))
Jumat : =IF(A2="J-366";6;IF(A2="S3-365";6;IF(A2="S3-366";5;IF(A2="M-365";5;IF(A2="M-366";4;IF(A2="S1-365";4;IF(A2="S1-366";3;IF(A2="S2-365";3;IF(A2="S2-366";2;IF(A2="R-365";2;IF(A2="R-366";1;IF(A2="K-365";1;""))))))))))))
Sabtu : =IF(A2="J-366";7;IF(A2="S3-365";7;IF(A2="S3-366";6;IF(A2="M-365";6;IF(A2="M-366";5;IF(A2="S1-365";5;IF(A2="S1-366";4;IF(A2="S2-365";4;IF(A2="S2-366";3;IF(A2="R-365";3;IF(A2="R-366";2;IF(A2="K-365";2;IF(A2="K-366";1;IF(A2="J-365";1;""))))))))))))))

(Lanjutkan ke post#2)

Diubah oleh gilbertagung 11-02-2019 02:14