分享

利用Excel制作万年历(图解)

 雨林修养馆 2014-07-07
 
步骤方法

一:在C2中输入=TODAY()回车。TODAY()函数用于提取当前系统日期。在F2中输入=IF(WEEKDAY(C2,2)=7,"日",WEEKDAY(C2,2)) 回车。在H2中输入 =NOW() 回车。NOW()用于提取当前系统时间。

 

二:第四步:在D14中设置下拉菜单,数值为1900—2029。

 

三:在F14中设置下拉菜单,数值为1—12。

 

四:将查询日期调为当前日期。

 

五:第一步:在A3中输入:=IF(F14=2,IF(OR(D14/400=INT(D14/400),AND(D14/4=INT(D14/4),D14/100<>INT(D14/100))),29,28),IF(OR(F14=4,F14=6,F14=9,F14=11),30,31))回车。

第二步:B3中输入=IF(WEEKDAY(DATE($D$14,$F$14,1),2)=B4,1,0)回车。选中B3向右复制公式至H3。

第三步:B6中输入=IF(B3=1,1,0)回车。

第四步:在B7中输入=H6+1回车,选中B7,向下复制公式至B9。

第五步:在B10中输入=IF(H9>=A3,0,H9+1)回车。

第六步:在B11中输入=IF(H10>=A3,0,IF(H10>0,H10+1,0))回车。

第七步:在C6中输入=IF(B6>0,B6+1,IF(C3=1,1,0))回车。

第八步:在C7中输入=B7+1回车。

第九步:选中C7向下复制公式至 C9。

第十步:在C10中输入=IF(B10>=$A$3,0,IF(B10>0,B10+1,IF(C6=1,1,0)))回车。

第十一步:选中C6,向右复制公式至H6。

然后进行如下操作:选中C7,向右复制公式至H7。选中C8,向右复制公式至H8。选中C9,向右复制公式至H9。选中C10,向右复制公式至H10。选中B11,向右复制公式至H11。

 


六:选中第3行和第4行,字体颜色设置为白色。隐藏I列和J列。上图为最终效果图。

 

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多