分享

简易日历制作

 清风笑西东 2018-02-09

  首先,第一步做好如下表格:

 
 在A列输入1到12的数,在K列输入1900到2080的数,在E18与G18分别添加数据有效性。在c5输入“=today()”,在g5输入“=IF(WEEKDAY(C5,2)=7,"日",WEEKDAY(C5,2))”,在i5入“=NOW()”
第二步:
 在j6输入“=IF(G18=2,IF(OR(E18/400=INT(E18/400),AND(E18/4=INT(E18/4),E18/100 <> INT(E18/100))),29,28),IF(OR(G18=4,G18=6,G18=9,G18=11),30,31))”,判断查询当月天数,先判断是否为2月,其次判断是闰年还是平年,闰年为29天平年28天,其次判断是否为4,6,9,11月份为30天,其余为31天。
第三步:
 在c6输入“=IF(WEEKDAY(DATE($E$18,$G$18,1))=C7,1,0)”然后将c6向右复制至i6,目的判断出查询月的第一天是星期几便于编辑日期排列。
第四步:
 在c11输入“=IF(C6=1,1,0)”,在d11输入“=IF(C11>0,C11+1,IF(D6=1,1,0))”然后将d11复制至i11,判断第一天。
 在c12输入“=I11+1”,下拉复制至c14,选中c12至c14向右拉复制到i列。
 在c15输入“=IF(I14>=J6,0,I14+1)”,在c15输入=IF(C15>=$J$6,0,IF(C15>0,C15+1,IF(D11=1,1,0))),然后向右复制至i16.
 在c16输入“=IF(I15>=J6,0,IF(I15>0,I15+1,0))”,d16输入“=IF(C17>=$J$6,0,IF(C17>0,C17+1,IF(D12=1,1,0)))”
 第四步可以在页面布局背景中添加相应的背景图片。
可以在下面添加节日标语:
=IF(AND(MONTH(E5)=1,DAY(E5)=1),"新年新气象!加油呀!",IF(AND(MONTH(E5)=3,DAY(E5)=8),"元旦快乐!",IF(AND(MONTH(E5)=5,DAY(E5)=1),"劳动最光荣",IF(AND(MONTH(E5)=5,DAY(E5)=4),"青年是祖国的栋梁",IF(AND(MONTH(E5)=6,DAY(E5)=1),"原天下所有的儿童永远快乐",0)))))
”,“=IF(AND(MONTH(E5)=7,DAY(E5)=1),"党的恩情永不忘",IF(AND(MONTH(E5)=8,DAY(E5)=1),"提高警惕,保卫祖国!",IF(AND(MONTH(E5)=9,DAY(E5)=10),"老师,您辛苦了!",IF(AND(MONTH(E5)=10,DAY(E5)=1),"祝我们伟大的祖国繁荣富强",0))))”
可以适当更改标语


 
 
 

    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约