万年历的制作.ppt

《万年历的制作.ppt》由会员分享，可在线阅读，更多相关《万年历的制作.ppt（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、万年历的制作制作步骤1n启动EXCEL2003，新建工作表，并且在表格中输入如下的文字制作步骤2n同时选中B1，C1，D1并且合并及居中，输入：=TODAY（），对单元格执行“格式单元格”，如图所示：制作步骤3n选中F1单元格，输入：=IF(WEEKDAY(B1,2)=7，“日”，WEEKDAY(B1,2);选中H1，输入：=NOW()。在F1单元格中，打开如下对话框：n选中H1，如下设置：制作步骤4n对I1，I2单元格分别输入1900,1901，然后对其进行填充拖拉至I151，同样对J1拖拉至J12n选中D13单元格，执行“数据有效性”命令，打开“数据有效性”对话框，如图n同样的操作，对F1

2、3设置数据有效性：如下制作步骤5n选中A2单元格，输入公式：如下：n选中B2输入公式：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)n然后将公式复制到C2-H2n选中B6输入：=IF(B2=1,1,0)，选中B7单元格，输入公式：=H6+1.并复制到B8，B9单元格中。n分别选中B10，B11，输入公式：=IF(H9A2,0,H9+1)和=IF(H10$A$2,0,IF(H100,H10+1,0)n选中C6单元格，输入公式：=IF(B60,B6+1,IF(C2=1,1,0)。并复制到D6-H6中n选中C7输入公式：B7+1，复制到C8-H9中。n选中C10

3、，输入=IF(B10=$A$2,0,IF(B100,B10+1,IF(C6=1,1,0)并复制到D10-H10中和C11中制作步骤6n对表格进行如下设置：n将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(B1)=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)n最后得到如下的万年历：