当前位置:首页 >> 其它课程 >>

Excel制作万年历


今天我们介绍用 Excel 制作万年历的方法。这个万年历可以显示当月的月历,还可以随意查 阅任何日期所属的月历,非常方便。如果你愿意,还可以让它在特殊的日子里显示不同的提 醒文字,一起来试试吧!

本文所涉及到的函数有:

1、AND (logical1,logical2, ...) 2、DATE (year,month,day) 3、DAY (serial_number) 4、IF (Logical,Value_if_true,Value_if_false) 5、INT (number) 6、MONTH (serial_number) 7、NOW () 8、OR (logical1,logical2, ...) 1、启动 EXCEL2003,新建一个工作表,取名保存(如万年历.xls),并在相应的单元 格中,输入如图 1 所示的文本。

2、同时选中 B1、C1、D1 单元格,按“格式”工具栏上的“合并及居中”按钮,将其合并 成一个单元格,并输入公式:=TODAY()。 选中 B1(合并后的)单元格,执行“格式→单元格”命令,打开“单元格格式”对话框(如 图 2),在“数字”标签中的“分类”下面选中“日期”选项,再在右侧“类型”下面选中“二○○一年 三月十四日”选项,“确定”退出,将日期设置成中文形式。

注意:TODAY()函数用于提取当前系统日期,请将系统日期一定要调整准确哟。 3、选中 F1 单元格,输入公式:=IF(WEEKDAY(B1,2)=7,"日",WEEKDAY(B1,2));选中 H1 单元格,输入公式:=NOW()。 选中 F1 单元格,打开“单元格格式”对话框,在“数字”标签中的“分类”下面选中“特殊” 选项,再在右侧“类型”下面选中“中文小写数字”选项,“确定”退出,将“星期数”设置成中文 小写形式; 选中 H1 单元格, 打开“单元格格式”对话框, 在“数字”标签中的“分类”下面选中“时 间”选项,再在右侧“类型”下面选中一款时间格式,“确定”退出。 注意:①上述前面一个公式的含义是:如果(IF)当前日期(B1)是星期“7”(WEEK DAY(B1,2)=7),则在 F1 单元格中显示“日”,否则,直接显示出星期的数值(WEEKDAY(B 1,2))。 ②上述第二个函数(NOW())用于提取当前系统日期和时间,也请将系统日期和时 间调整准确。

4、在 I1、I2 单元格分别输入 1900、1901,然后同时选中 I1、I2 单元格,用“填充柄” 向下拖拉至 I151 单元格,输入 1900—2050 年份序列。

同样的方法,在 J1 至 J12 单元格中输入 1—12 月份序列。 5、选中 D13 单元格,执行“数据→有效性”命令,打开“数据有效性”对话框(如图 3), 按“允许”右侧的下拉按钮,选中“序列”选项,在“来源”下面的方框输入:=$I$1:$I$151,“确 定”退出。

同样的操作,将 F15 单元格数据有效性设置为“=$J$1:$J$12”序列。 注意:经过这样的设置以后,当我们选中 D15(或 F15)单元格时,在单元格右侧出现 一个下拉按钮,按此下拉按钮,即可选择年份(或月份)数值,快速输入需要查询的年、月 值。

6、选中 A2 单元格(不一定非得是 A2 哟),输入公式:=IF(F13=2,IF(OR(D13/400=IN T(D13/400),AND(D13/4=INT(D13/4),D13/100<>INT(D13/100))),29,28),IF(OR(F13=4,F13=6,F 13=9,F13=11),30,31)),用于获取查询“月份”所对应的天数(28、29、30、31)。 注意:上述函数的含义是:如果查询“月份”为“2 月”(F13=2)时,并且“年份”数能被 4 00 整除[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 天。 7、选中 B2 单元格,输入公式:=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)。再 次选中 B2 单元格,用“填充柄”将上述公式复制到 C2—H2 单元格中。 注意:①上述 B2 公式的含义是:如果“查询年月”的第 1 天是星期“7”(WEEKDAY(DA TE)($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)。 8、选中 B6 单元格,输入公式:=IF(B2=1,1,0)。选中 B7 单元格,输入公式:=H6+1。 用“填充柄”将 B7 单元格中的公式复制到 B8、B9 单元格中。 分别选中 B10、 B11 单元格, 输入公式: =IF(H9>=A2,0,H9+1)和=IF(H10>=A2,0,IF(H10> 0,H10+1,0))。 选中 C6 单元格,输入公式:=IF(B6>0,B6+1,IF(C2=1,1,0))。用“填充柄”将 C6 单元格中 的公式复制到 D6—H6 单元格中。 选中 C7 单元格,输入公式:=B7+1。用“填充柄”将 C7 单元格中的公式复制到 C8、C9 单元格中。同时选中 C7—C9 单元格,用“填充柄”将其中的公式复制到 D7—H9 单元格中。 选中 C10 单元格,输入公式:=IF(B11>=$A$2,0,IF(B11>0,B11+1,IF(C6=1,1,0)))。用“填 充柄”将 C10 单元格中的公式复制到 D10—H10 单元格和 C11 单元格中。 至此,整个万年历(其实没有万年,只有从 1900—2050 的 151 年)制作完成。

下面,我们一起来将其装饰一下。

9、选中相应的单元格,利用工具栏上的相应按钮,设置好字体、字号、字符颜色等。 选中相应的单元格,打开“单元格格式”对话框,在“对齐”标签下,设置好单元格中文本 的对齐方式(通常情况下,垂直对齐可以一次性设置为“居中”,水平“对齐”根据具体情况设 置)。

同时选中 I 列和 J 列,右击鼠标,选“隐藏”选项,将相应的列隐藏起来,使得界面更加 友好。用同样的方法,将第 2 和第 3 行也隐藏起来。 10、 选中 B5—H11 单元格区域, 打开“单元格格式”对话框, 进入“边框”标签, 选择好“颜 色、样式”,并“预置”好边框范围,然后“确定”退出,为月历加上边框。 11、执行“工具→选项”命令,打开“选项”对话框(如图 4),在“视图”标签下(通常是 默认标签),清除“零值”和“网格线”复选框中的“∨”号,“确定”退出,让“零值”和“网格线” 不显示出来。

12、将 B14—H14 和 B15—H15 单元格分别合并成一个单元格,并在 B14 和 B15 单元 格中输入公式:=IF(AND(MONTH(D1)=1,DAY(D1)=1),"新的新气象!加油呀!",IF(AND(M ONTH(D1)=3,DAY(D1)=8),"向女同胞们致敬!",IF(AND(MONTH(D1)=5,DAY(D1)=1),"劳动 最光荣",IF(AND(MONTH(D1)=5,DAY(D1)=4),"青年是祖国的栋梁",IF(AND(MONTH(D1)=6, DAY(D1)=1),"原天下所有的儿童永远快乐",0)))))和=IF(AND(MONTH(D1)=7,DAY(D1)=1)," 党的恩情永不忘",IF(AND(MONTH(D1)=8,DAY(D1)=1),"提高警惕,保卫祖国!",IF(AND(M ONTH(D1)=9,DAY(D1)=10),"老师,您辛苦了!",IF(AND(MONTH(D1)=10,DAY(D1)=1),"祝 我们伟大的祖国繁荣富强",0))))。 设置好 B14 和 B15 单元格的字体、字号、字符颜色。 注意:上述公式的含义是:如果当前日期逢到相关的节日(如“元旦”等),则在 B14 或 B15 单元格显示出相应的祝福语言(如“新的新气象!加油呀!”,参见图 5)。

由于 IF 函数只能嵌套 7 层,而节日数量超过 7 个(我们这里给出了 9 个),因此,我 们用两个单元格来显示。 13、执行“格式→工作表→背景”命令,打开“工作表背景”对

话框(如图 6),选择一张合适的图片后,按“插入”按钮,将其衬于工作表文字下面。

14、在按 住“Ctrl”键的同时,单击 D13 和 F13 单元格,同时选中两个单元格,开“单元格格式”对话框, 切换“保护”标签(如图 7),清除“锁定”前面复选框中的&l

dquo;∨”号, “确定”退出。

15、执行“工具→保护→保护工作表”命令,打开“保护工作表”对话框(如图 8),两次 输入密码后,确定退出。

注意:经过这样的设置后,整个工作表中除了 D13 和 F13 单元格中的内容可以改变外, 其它单元格中的内容均不能改变,保证了万年历的使用可靠性。


赞助商链接
相关文章:
用EXCEL制作一份万年历_图文
用EXCEL制作一份万年历_其它技巧_PPT制作技巧_实用文档。非常好用,,, 用EXCEL 制作一份万年历今天我们介绍用 Excel 制作万年历的方法。这个万年历可以显示 当月的...
Excel 2003制作万年历的步骤
Excel 2003制作万年历的步骤_其它技巧_PPT制作技巧_PPT专区。今日推荐 104份文档 2014年驾照交规 2014年1月1日起“驾照新规”出炉 科目三实际道路驾驶考试注意事项...
用Excel怎样制作万年历
Excel怎样制作万年历_IT/计算机_专业资料。用Excel怎样制作万年历可以把 Excel 表格内容设置为桌面背景么? 悬赏分:10 - 解决时间:2007-2-15 08:32 由于经常要...
(新)如何用EXCEL表格制作日历
(新)如何用EXCEL表格制作日历 - 用 EXCEL 制作一份万年历 今天我们介绍用 Excel 制作万年历的方法。这个万年历可以显示当月的月历,还可以 随意查阅任何日期所属的...
制作新年万年历excel
下面给大家介绍用 Excel 制作万年历。 今天我们介绍用 Excel 制作万年历的方法。 新年伊始,制作一个新年万年历送给别人新年的祝福,这份心意是非常重要的。制作新 ...
更多相关文章: