万年历的制作-公开课件.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，