万年历的制作-精选（公开课件）.pptVIP

万年历的制作 制作步骤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单元格，执行“数据—有效性”命令，打开“数据有效性”对话框，如图 同样的操作，对F13设置数据有效性：如下 制作步骤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(H9A2,0,H9+1)和=IF(H10$A$2,0,IF(H100,H10+1,0)) 选中C6单元格，输入公式：=IF(B60,B6+1,IF(C2=1,1,0))。并复制到D6-H6中 选中C7输入公式：B7+1，复制到C8-H9中。 选中C10，输入=IF(B10=$A$2,0,IF(B100,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(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)))) *