作者：乔山办公网日期：
返回目录：excel表格制作
这个是详细介绍用Excel制作万年历的过程，也许对您有帮助
利用EXCEL自带的日历控百件可以制作日历表，具体操作请参照以下步骤。
1、在电脑上打开Excel 2007软件，用鼠标右击界面左上角的office按钮，在度弹出的菜单中选择“自定义快速访问工具栏”选项点击。问
2、接着在弹出的“EXCEL选项”对话框的“自定义”页面中，将“其他控件”添加到自定义快速访问工具栏答中。
3、然后返回到主版界面，可以看到最上面的工具栏中多了一个其他控件的小图标，点击它。
4、然后会弹出一个“其他控件”的对话框，找到日历控件，进行点击。
5、完成以上设置后，即权可用Excel制作日历表。
方法/步骤
1
首先，新建一个Excel文件。
2
在图示红框位置的单元格区域输入相应公式。
其中，e5a48de588b67a64363
B1
=TODAY()
F1
=IF(WEEKDAY(B1,2)=7,"日",WEEKDAY(B1,2))
H1
=NOW()
在第2行，单元格A2到H2
分别输入公式
A2
=IF(F13=2,IF(OR(D13/400=INT(D13/400),AND(D13/4=INT(D13/4),D13/100<>INT(D13/100))),29,28),IF(OR(F13=4,F13=6,F13=9,F13=11),30,31))
B2
=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)
C2
=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=C3,1,0)
D2
=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=D3,1,0)
E2
=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=E3,1,0)
F2
=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=F3,1,0)
G2
=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=G3,1,0)
H2
=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=H3,1,0)
在单元格B6到H6分别输入公式
B6
=IF(B2=1,1,0)
C6
=IF(B6>0,B6+1,IF(C2=1,1,0))
D6
=IF(C6>0,C6+1,IF(D2=1,1,0))
E6
=IF(D6>0,D6+1,IF(E2=1,1,0))
F6
=IF(E6>0,E6+1,IF(F2=1,1,0))
G6
=IF(F6>0,F6+1,IF(G2=1,1,0))
H6
=IF(G6>0,G6+1,IF(H2=1,1,0))
在单元格B10到H10，分别输入公式
B10
=IF(H9>=A2,0,H9+1)
C10
=IF(B10>=$A$2,0,IF(B10>0,B10+1,IF(C6=1,1,0)))
D10
=IF(C10>=$A$2,0,IF(C10>0,C10+1,IF(D6=1,1,0)))
E10
=IF(D10>=$A$2,0,IF(D10>0,D10+1,IF(E6=1,1,0)))
F10
=IF(E10>=$A$2,0,IF(E10>0,E10+1,IF(F6=1,1,0)))
G10
=IF(F10>=$A$2,0,IF(F10>0,F10+1,IF(G6=1,1,0)))
H10
=IF(G10>=$A$2,0,IF(G10>0,G10+1,IF(H6=1,1,0)))
最后在单元格B7和H9输入图示公式。
在图示绿色方框位置的单元格区域输入文字和数字。
其中，I列，依次输入年份数字1900到2050
J列，依次输入月份数字，1到12
这是输入全部公式和文字后的效果。
下面，我们需要做美化。
首先，打开视图选项，取消勾选网格线。
将网格线隐藏。
设置日历边框，以及设置字体居中对齐。
将标题字体显示得更加醒目一些。
设置相同的字体颜色和背景色
将不需要展示的内容隐藏
最后，为了能够实现查询日期的功能。
需要在单元格D13，设置数据有效性。
在单元格F13月份，同样设置一下数据有效性。
最后有个问题，单元格H1时间不能实时更新，
我们可以按下F9，让它随时更新。
当然，你也可以使用VBA，让它实时更新。但不在我们的讨论范围内。
有需要可以咨询，再来专门详细分享一下。
第一步；在C2中输入e69da5e6ba90e799bee5baa6332=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。
第八步；B 6中输入=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列。
第十八步；美化万年历表格：更改日期和时间格式、设置单元格背景等。
最后效果图：