万年历的制作.ppt_第1页
万年历的制作.ppt_第2页
万年历的制作.ppt_第3页
万年历的制作.ppt_第4页
万年历的制作.ppt_第5页
已阅读5页,还剩8页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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单元格,执行“数据有效性”命令,打开“数据有效性”对话框,如图,同样的操作

2、,对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中。

3、选中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(AN

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论