如何用EXCEL制作一份漂亮的万年历.docVIP

如何用EXCEL制作一份万年历 以前我们都见过很漂亮的万年历，有的是通过编程软件的编程语言编写的，有的是通过Flash自带的程序语言编写的，有的通过网页的脚本语言编写的，那么，能否用我们常用的办公软件Microsoft Excel编写一个漂亮的万年历呢？?今天我们万年历可以显示当月的月历，还可以随意查阅任何日期所属的月历，非常方便。如果你愿意，还可以让它在特殊的日子里显示不同的提醒文字，一起来试试吧！ 涉及到的函数有：TODAY() 这是用来显示当前日期的 5、MONTH(serial_number) 6、WEEKDAY(serial_number,[return_type]) 这是用来显示星期几的 7、IF(logical,value_if_true,value_if_false) 这是比较常用的条件语句 8、INT(number) 将带有小数的数值向下取整 9、AND(logical1,logical2, ...) 10、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”（WEEKDAY(B1,2)=7），则在F1单元格中显示“日”，否则，直接显示出星期的数值（WEEKDAY(B1,2)）。 上述第二个函数（NOW（））用于提取当前系统日期和时间，也请将系统日期和时间调整准确。 4、在I1、I2单元格分别输入1900、1901，然后同时选中I1、I2单元格，用填充柄向下拖拉至I151单元格，输份序列。 同样的方法，在J1至J12单元格中输入1—12月份序列。 5、选中D13单元格，执行数据(有效性命令，打开数据有效性”对话框（如图3），按允许右侧的下拉按钮，选中序列选项，在来源下面的方框输入：=$I$1:$I$151，确定退出。 同样的操作，将F15单元格数据有效性设置为“=$J$1:$J$12”序列。 注意：经过这样的设置以后，当我们选中D15（或F15）单元格时，在单元格右侧出现一个下拉按钮，按此下拉按钮，即可选择年份（或月份）数值，快速输入需要查询的年、月值。 6、选中A单元格（不一定非得是A），输入公式：=IF(F13=2,IF(OR(D13/400=INT(D13/400),AND(D13/4=INT(D13/4),D13/100INT(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/100INT(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(DATE)($D$13,$F$13,1),2)=B3）时，在该单元格显示“1”，反之显示“0”），为“查询年月”获取一个对照值，为下面制作月历做准备。 上述C2—H2单元条中公式的含义与