如何用excel制作万年历

• 首先，新建一个excel文件。

  
  

  
  

• 在图示红框位置的单元格区域输入相应公式。

其中，

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月份，同样设置一下数据有效性。