|
自己动手制作Excel万年历
在网上看到别人用Excel制作的万年历非常精美，于是自己动手，跟着学习，自己制作一了属于自己的“万年历”；现在把制作过程和大家一起分享！
首先还是看看我制作的“万年历”的最终效果：
这个万年历可以显示当月的月历，还可以随意查阅任何日期所属的月历，非常方便，一起来试试吧！ 第一步：启动Excel2003，新建一个工作表，取名保存（如万年历.xls）；并在相应的单元格中输入如图①所示的内容。其中：在I1、I2单元格分别输入1900、1901，然后同时选中I1、I2单元格，用“填充柄”向下拖拉至I151单元格，即输入1900―2050年份序列；同样的方法，在J1至J12单元格中输入1―12月份序列。
第二步：同时选中B1、C1、D1单元格，单击“格式”工具栏上的“合并及居中”按钮，将其合并成一个单元格，并输入公式=TODAY（）后回车；再次选中B1（合并后的）单元格，执行“格式→单元格→数字→分类→日期”，在右侧“类型”下面选中“二○○一年三月十四日”选项，“确定”退出，将日期设置成中文形式。（如图②）
注：TODAY（）函数用于提取当前系统日期，请将系统日期一定要调整准确哟。
第三步：选中F1单元格，输入公式=IF(WEEKDAY(B1,2)=7,"日",WEEKDAY(B1,2))后回车；再次选中F1单元格，执行“格式→单元格→数字→分类→特殊”，在右侧“类型”下面选中“中文小写数字”选项，“确定”退出，将“星期数”设置成中文小写形式。（如图③）
注：上述公式的含义是：如果（IF）当前日期（B1）是星期“7”（WEEKDAY(B1,2)=7），则在F1单元格中显示“日”，否则，直接显示出星期的数值（WEEKDAY(B1,2)）。 第四步：选中H1单元格，输入公式=NOW（）后回车；再次选中H1单元格，执行“格式→单元格→数字→分类→时间”，在右侧“类型”下面选中一款时间格式，“确定”退出。（如图④）
注：函数（NOW（））用于提取当前系统日期和时间，也请将系统日期和时间调整准确。 第五步：选中D13单元格（“查询年月”右侧），执行“数据→有效性→设置→有效性条件”，按“允许”右侧的下拉按钮，选中“序列”选项，在“来源”下面的方框输入=$I$1:I$151后“确定”退出。（如图⑤）
同样的操作，将F15单元格（“年”与“月”之间）数据有效性设置为“=$J$1:J$12”序列。 注：经过这样的设置以后，当我们选中D15（或F15）单元格时，在单元格右侧出现一个下拉按钮，按此下拉按钮，即可选择年份（或月份）数值，快速输入需要查询的年、月值。 第六步：选中A2单元格，输入公式=IF(F13=2,IF(OR(D13/400=INT(D13/400),AND(D13/4=INT(D13/4),D13/100<>INT(D13/100))),29,28),IF(OR(F13=4,F13=6,F13=9,F13=11),30,31))后回车（如图⑥）；用于获取查询“月份”所对应的天数（28、29、30、31）。
注：上述函数的含义是：如果查询“月份”为“2月”（F13=2）时，并且“年份”数能被400整除[D13/400=INT(D13/400)]，或者（OR）“年份”能被4整除，但不能被100整除[AND(D13/4=INT(D13/4),D13/100<>INT(D13/100))]，则该月为29天（也就是我们通常所说的“润年”），否则为28天。如果“月份”不是2月，但是“4、6、9、11”月，则该月为30天。其他月份天数为31天。 第七步：在“查询年月”后随意选择一个年份如2012；然后选中B2单元格，输入公式=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)后回车；再次选中B2单元格，用“填充柄”将上述公式复制到C2―H2单元格中。（如图⑦）
注：上述公式的含义是：如果“查询年月”的第1天是星期“7”（WEEKDAY(DATE)($D$13,$F$13,1),2)=B3）时，在该单元格显示“1”，反之显示“0”），为“查询年月”获取一个对照值，为下面制作月历做准备。C2―H2单元条中公式的含义与B2相似。 在用拖拉法复制公式时，公式“绝对引用”的单元格（加了“$”号的，如“$D$13”等）不会发生改变，而“相对引用”的单元格（没有加“$”号的，如“B3”等），则会智能化地发生变化，例如在E2单元格中，“B3”变成了“E3”，整个公式成为：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=E3,1,0)。 第八步：选中B5单元格，输入公式=IF(B2=1,1,0)后回车；选中B6单元格，输入公式=H5+1后回车；用“填充柄”将B6单元格中的公式复制到B7、B8单元格中。 分别选中B9、B10单元格，输入公式=IF(H8>=A2,0,H8+1)和=IF(H9>=A2,0,IF(H9>0,H9+1,0))后回车。 选中C5单元格，输入公式=IF(B5>0,B5+1,IF(C2=1,1,0))后回车；用“填充柄”将C5单元格中的公式复制到D5―H5单元格中。 选中C6单元格，输入公式=B6+1后回车；用“填充柄”将C6单元格中的公式复制到C7、C8单元格中。同时选中C6―C8单元格，用“填充柄”将其中的公式复制到D6―H8单元格中。 选中C9单元格，输入公式=IF(B9>=$A$2,0,IF(B9>0,B9+1,IF(C5=1,1,0)))后回车；用“填充柄”将C9单元格中的公式复制到D9―H9单元格和C10单元格中。（如图⑧）
至此，整个“万年历”（其实这里只有从1900―2050的151年）输入部分就全部完成。 下面，就要对其进行装饰了。 第九步：选中相应的单元格，利用工具栏上的相应按钮，设置好字体、字号、字符颜色等。 选中相应的单元格，打开“单元格格式”对话框，在“对齐”标签下，设置好单元格中文本的对齐方式（通常情况下，垂直对齐可以一次性设置为“居中”，水平“对齐”根据具体情况设置）。 同时选中I列和J列，右击鼠标，选“隐藏”选项，将相应的列隐藏起来，使得界面更加友好。 用同样的方法，将第2和第3行也隐藏起来。（如图⑨）
第十步：选中B4―H10单元格区域，执行“格式→单元格→边框”，选择好“样式”、“颜色”，并“预置”好边框范围，然后“确定”退出，为月历加上边框。（如图⑩）
第十一步：执行“工具→选项→视图”（通常是默认标签），清除“编辑栏”、“状态栏”、“行号列标”、“水平滚动条”、“垂直滚动条”、“工作表标签”、“零值”和“网格线”复选框中的“√”号，“确定”退出，让这些不必要的元素不显示出来。（如图(11)）
第十二步：执行“格式→工作表→背景”命令，打开“工作表背景”对话框，选择一张合适的图片后，按“插入”按钮，将其衬于工作表文字下面。（如图(12)）
第十三步：在按住“Ctrl”键的同时，单击D13和F13单元格，同时选中两个单元格，执行“格式→单元格→保护”，清除“锁定”前面复选框中的“√”号，“确定”退出。（如图(13)）
最后一步：执行“工具→保护→保护工作表”，两次输入密码后，“确定”退出并“保存”。（如图(End)）
注：经过这样的设置后，整个工作表中除了D13和F13单元格中的内容可以改变外，其它单元格中的内容均不能改变，保证了“万年历”使用的可靠性。 好了！至此整个"万年历"制作完成！！！ |
|
|
