《用EXCEL制作新年万年历》由会员分享，可在线阅读，更多相关《用EXCEL制作新年万年历（5页珍藏版）》请在金锄头文库上搜索。
1、用 EXCEL制作新年万年历 ( 修正版 ) 新年伊始，制作一个新年万年历送给别人新年的祝福，这份心意是非常重要的。制作新年万年历有很多办法，但用Office 的 Excel 表格制作你又试过没？下面给大家介绍用Excel 制作万 年历。 今天我们介绍用Excel 制作万年历的方法。这个新年万年历可以显示当月的月历，还可以随意查阅任何日期所属的月历，非常方便。如果你愿意，还可以让它在特殊的日子里显示不 同的提醒文字，一起来试试吧！ 本文所涉及到的函数有： 1、AND (logical1,logical2, .) 2、DATE (year,month,day) 3、DAY (serial_num
2、ber) 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（合并后的）单元格，执行“ 格式 单元格 ” 命令，打开 “
3、单元格格式 ” 对话框（如图2） ，在 “ 数字 ” 标签中的 “ 分类 ” 下面选中 “ 日期 ” 选项，再在右侧 “ 类型 ” 下面选中 “ 二 一年三 月十四日 ” 选项， “ 确定 ” 退出，将日期设置成中文形式。 注意： TODAY （）函数用于提取当前系统日期，请将系统日期一定要调整准确哟。 3、选中 F1 单元格，输入公式：=IF(WEEKDAY(B1,2)=7,日,WEEKDAY(B1,2)；选中 H1 单元格，输入公式：=NOW （） 。 选中 F1 单元格，打开 “ 单元格格式 ” 对话框，在 “ 数字 ” 标签中的 “ 分类 ” 下面选中 “ 特殊 ” 选项，再在右侧“
4、类型 ” 下面选中 “ 中文小写数字 ” 选项， “ 确定 ” 退出，将 “ 星期数 ” 设置成中文小写 形式；选中H1 单元格，打开 “ 单元格格式 ” 对话框，在 “ 数字 ” 标签中的 “ 分类 ” 下面选中 “ 时间 ” 选项，再在右侧“ 类型 ” 下面选中一款时间格式，“ 确定 ” 退出。 注意：上述前面一个公式的含义是：如果（IF）当前日期（ B1）是星期 “7”（WEEKDAY(B1,2)=7 ） ，则在 F1 单元格中显示 “ 日” ，否则，直接显示出星期的数值（WEEKDAY(B1,2) ） 。 上述第二个函数（NOW （） ）用于提取当前系统日期和时间，也请将系统日期和时间
5、调整准确。 4、在 I1、I2 单元格分别输入1900、1901，然后同时选中I1、I2 单元格，用 “ 填充柄 ” 向下拖拉至I151 单元格，输入19002050 年份序列。 同样的方法，在J1 至 J12 单元格中输入112 月份序列。 5、选中 D13 单元格，执行 “ 数据 有效性 ” 命令，打开 “ 数据有效性 ” 对话框（如图3） ，按 “ 允许 ” 右侧的下拉按钮，选中“ 序列 ” 选项，在 “ 来源 ” 下面的方框输入：=$I$1:$I$151 ，“ 确定 ” 退出。 同样的操作，将F15 单元格数据有效性设置为“=$J$1:$J$12”序列。 注意：经过这样的设置以后，当我
6、们选中D15（或 F15）单元格时，在单元格右侧出现一个下拉按钮，按此下拉按钮，即可选择年份（或月份）数值，快速输入需要查询的年、月值。 6、选中A2单元格（不一定非得是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）时，并且 “
7、 年份 ” 数能被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 天。 7、选中 B2 单元格，输入公式：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)。再次选中B2 单元格，用 “ 填充柄 ” 将上述公式复制到C2H2 单元格中。 注意：上述B2 公式的含义是：如果“ 查询年月 ” 的第 1 天是星期 “7”（WEEKDAY(DATE)($D$13,$F$13,1),2)=B3）时，在该单元格显示“1”，反之显示 “0”） ，为 “ 查询年月 ” 获取一个对
