资源描述：
《万年历的制作》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、万年历的制作制作步骤1启动EXCEL2003，新建工作表，并且在表格中输入如下的文字制作步骤2同时选中B1，C1，D1并且合并及居中，输入：=TODAY（），对单元格执行“格式—单元格”，如图所示：制作步骤3选中F1单元格，输入：=IF(WEEKDAY(B1,2)=7，“日”，WEEKDAY(B1,2));选中H1，输入：=NOW()。在F1单元格中，打开如下对话框：选中H1，如下设置：制作步骤4对I1，I2单元格分别输入1900,1901，然后对其进行填充拖拉至I151，同样对J1拖拉至J12选中D13单元格，执行“数据—有效性”命令，打开“数据有效性”对话框，如图同样的操作，对F
2、13设置数据有效性：如下制作步骤5选中A2单元格，输入公式：如下：选中B2输入公式：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)然后将公式复制到C2-H2选中B6输入：=IF(B2=1,1,0)，选中B7单元格，输入公式：=H6+1.并复制到B8，B9单元格中。分别选中B10，B11，输入公式：=IF(H9>A2,0,H9+1)和=IF(H10>$A$2,0,IF(H10>0,H10+1,0))选中C6单元格，输入公式：=IF(B6>0,B6+1,IF(C2=1,1,0))。并复制到D6-H6中选中C7输入公式：B7+1，复制到C8-H9中。选
3、中C10，输入=IF(B10>=$A$2,0,IF(B10>0,B10+1,IF(C6=1,1,0)))并复制到D10-H10中和C11中制作步骤6对表格进行如下设置：将B14-H14和B15-H15单元格合并居中并在其中输入：=IF(AND(MONTH(B1)=1,DAY(B1)=1),"新的新气象！加油呀！",IF(AND(MONTH(B1)=3,DAY(B1)=8),"向女同胞们致敬！",IF(AND(MONTH(B1)=5,DAY(B1)=F191),"劳动最光荣",IF(AND(MONTH(B1)=4),"青年是祖国的栋梁",IF(AND(MONTH(B1)=6,DAY(B
4、1)=1),"原天下所有儿童永远快乐",0)))))=IF(AND(MONTH(B1)=7,DAY(B1)=1),"党的恩情永不忘",IF(AND(MONTH(B1)=8,DAY(B1)=1),"提高警惕，保卫祖国！",IF(AND(MONTH(B1)=9,DAY(B1)=10),"老师，您辛苦了!",IF(AND(MONTH(B1)=10,DAY(B1)=1),"祝我们伟大的祖国繁荣富强",0))))最后得到如下的万年历：
