Question

怎样制作万年历

Answer 1

Excel手工制作万年历

1.首先，新建一个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)
2.在单元格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))
3.在单元格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)))
4.最后在单元格B7和H9输入图示公式。在图示绿色方框位置的单元格区域输入文字和数字。其中，I列，依次输入年份数字1900到2050J列，依次输入月份数字，1到12
5.下面，我们需要做美化。
首先，打开视图选项，取消勾选网格线。将网格线隐藏。设置日历边框，以及设置字体居中对齐。将标题字体显示得更加醒目一些。设置相同的字体颜色和背景色将不需要展示的内容隐藏最后，为了能够实现查询日期的功能。需要在单元格D13，设置数据有效性。在单元格F13月份，同样设置一下数据有效性。最后有个问题，单元格H1时间不能实时更新，我们可以按下F9，让它随时更新。

Answer 2

百度搜素到的：
今天我们介绍用Excel制作万年历的方法。这个万年历可以显示当月的月历，还可以随意查阅任何日期所属的月历，非常方便。如果你愿意，还可以让它在特殊的日子里显示不同的提醒文字，一起来试试吧！

本文所涉及到的函数有：

1、AND (logical1,logical2, ...)

2、DATE (year,month,day)

3、DAY (serial_number)

4、IF (Logical,Value_if_true,Value_if_false)

5、INT (number)

6、MONTH (serial_number)

7、NOW ()

8、OR (logical1,logical2, ...)

1、启动EXCEL2003，新建一个工作表，取名保存（如万年历.xls），并在相应的单元格中，输入如图1所示的文本。

2、同时选中B1、C1、D1单元格，按“格式”工具栏上的“合并及居中”按钮，将其合并成一个单元格，并输入公式：=TODAY（）。

选中B1（合并后的）单元格，执行“格式→单元格”命令，打开“单元格格式”对话框（如图2），在“数字”标签中的“分类”下面选中“日期”选项，再在右侧“类型”下面选中“二○○一年三月十四日”选项，“确定”退出，将日期设置成中文形式。

注意：TODAY（）函数用于提取当前系统日期，请将系统日期一定要调整准确哟。

3、选中F1单元格，输入公式：=IF(WEEKDAY(B1,2)=7,"日",WEEKDAY(B1,2))；选中H1单元格，输入公式：=NOW（）。

选中F1单元格，打开“单元格格式”对话框，在“数字”标签中的“分类”下面选中“特殊”选项，再在右侧“类型”下面选中“中文小写数字”选项，“确定”退出，将“星期数”设置成中文小写形式；选中H1单元格，打开“单元格格式”对话框，在“数字”标签中的“分类”下面选中“时间”选项，再在右侧“类型”下面选中一款时间格式，“确定”退出。

注意：①上述前面一个公式的含义是：如果（IF）当前日期（B1）是星期“7”（WEEKDAY(B1,2)=7），则在F1单元格中显示“日”，否则，直接显示出星期的数值（WEEKDAY(B1,2)）。

②上述第二个函数（NOW（））用于提取当前系统日期和时间，也请将系统日期和时间调整准确。

4、在I1、I2单元格分别输入1900、1901，然后同时选中I1、I2单元格，用“填充柄”向下拖拉至I151单元格，输入1900—2050年份序列。

同样的方法，在J1至J12单元格中输入1—12月份序列。

5、选中D13单元格，执行“数据→有效性”命令，打开“数据有效性”对话框（如图3），按“允许”右侧的下拉按钮，选中“序列”选项，在“来源”下面的方框输入：=$I$1:$I$151，“确定”退出。

同样的操作，将F15单元格数据有效性设置为“=$J$1:$J$12”序列。

注意：经过这样的设置以后，当我们选中D15（或F15）单元格时，在单元格右侧出现一个下拉按钮，按此下拉按钮，即可选择年份（或月份）数值，快速输入需要查询的年、月值。

Answer 3

excel 新建--选择 模版，点击下载，搜索 日历，应该可以找到
word有自带日历模版，可以制作日历

Answer 4

自制创意万年历，日期可循环使用，还能作为桌面装饰摆件