利用excel制作一个102星座的万年历-英雄云拓展知识分享

　　揭去2015年最后一页日历，20015年踏着轻盈的脚步靠近了我们。每到新的一年，必须要做的一件事就是更换办公桌上的旧台历，年复一年，是否是觉得麻烦？今天，让我们经过Excel打造一款万年历，不但可以随即翻看1900——2100之间任何一年的日期，还配有102星座图案，非常漂亮。

　　一、定制日历的框架

　　第一步：运行Excel 2003，将“Sheet1”工作表改名为“万年历”。按Ctrl+A组合键将全部工作表选中，然后履行“格式→列→列宽”命令，在弹出的对话框中输入“2.4”，单击“肯定”按钮将全部工作表的列宽调剂为2.4。

　　第2步：选中R5——X6单元格，右击选中的区域，在右键菜单当选择“设置单元格格式”命令，再在单元格格式对话框的“对齐”选项卡当选中“合并单元格”项将所选单元格合并。等万年历终究制作完成后，只要在这里输入要生成日历的年份，按回车键就能够自动生成该年份102个月的日历了。

　　小提示

　　经过下拉列表选择年份

　　在R5单元格中，除手工输入外，我们还可以设置一个下拉列表供使用者选择：选中BD1单元格（选择BD列主要是为了不让该列数字显示在主界面上，作用美观）并输入“1900”，选中BD2单元格并输入“1901”，同时选中这两个单元格后拖动右下角的“填充柄”以序列方式填充下面的单元格至数字2100；点击选中刚才合并的R5单元格，履行“数据→行之有效的性”命令，在“数据行之有效的性”对话框中的“允许”下拉菜单当选择“序列”，在“来源”栏中输入公式“=$BD$1:$BD$201”（见图1），点击“肯定”按钮，此时，只要选中R5单元格，其右边就会出现一个小按钮，点击它便可在下拉列表当选择年份了（1900年——2100年）。

图1

　　第3步：选中F11——L11单元格，将其合并，输入“January”（一月），将其居中并设置适当的字体及大小；然后顺次在F12——L12单元格中输入星期的英文缩写（如：Sun、Mon、Tue等，你也能够用中文的“日”、“一”、“2”来代替）；接下来点击“插入→图片→来自文件”命令，插入事前准备好的102星座图片（可从本文提供的下载包中取得），调剂第10行的行高使其与图片的高度一致。终究生成的万年历，在星期的下方会自动生成日期，所以这里我们为日期预留6行的空格。按一样的方法可以制作出其余11个月的日历，如图2所示。

图2

　　2、给日历穿上美丽外衣

　　下面我们对刚刚制作好的日历进行进一步的美化。

　　第一步：履行“格式→工作表→背景”命令，在对话框当选择准备好的背景图片（本文的素材包中有提供），为工作表添加一个背景。

　　第2步：选中E9——AK37单元格区域，右击选中的区域，从右键菜单当选择“设置单元格格式”命令。在打开的单元格格式对话框的“图案”选项卡中，设置“单元格底纹”为白色；在“边框”选项卡中为此单元格区域设置一个“淡蓝”色的粗实线边框。

　　第3步：选中A列、B列、AN——AZ列、第1行、2行及第41——50行（按Ctrl键可以复选），将“单元格底纹”设置为白色，这样设置的目标是为了突出显示日历的主体部份，为了美观，我们可再为C3——AM40单元格区域添加一个黑色的细实线边框。

　　第4步：选中每个月星期6、星期日及其下方对应的6行单元格，右击调出单元格格式对话框，在“字体”选项卡中将字体色彩设置为红色。然后，分别设置年份及月份名称的字体色彩、字体样式、字号。

　　第5步：年份（R5）单元格显得有些单调，我们为它添加一个边框装潢一下。分别选中O4——AA7及L5——AD6单元格区域，为这两个区域各添加一个彩色的双线边框，添加完成后调剂一下4行及7行的高度，这样可以使边框看起来更加美观。

　　第6步：单击“工具→选项”命令，在选项对话框的“视野”选项卡中，单击取消对“网格线”项的选项，这样可隐藏工作表中的网格线。至此，本例万年历的界面就设计完成了（见图3）。

图3

　　3、制作万年历

　　前面我们已给日历披上了漂亮的外衣，接下来要为它填充实际的内容，让它能晓过去、知不久的将来，成为一个真实的万年历。

　　如果我们知道了某年某月的1日是星期几，那末在Excel中自动排列那个月的日期就非常容易了：只要用前面的单元格加1就能够按顺序排列日期序列了，也就是说，只要我们解决了自动辨认每个月1日是星期几，再结合大月、小月及闰年的辨认，就能够实现任意年份日历按月自动排列的功能了。下面简单介绍一下这类方法的思路。

　　第一步：

　　选中F13单元格，输入公式“=IF(WEEKDAY(DATE($R$5,1,1),2)=7,1,"")”（不含最外层的引号，下同）。上面公式的含义是：假设“R5”单元格中输入的年份1月1日是星期天，则在F13单元格中显示“1”，否则甚么都不显示。

　　第2步：

　　选中G13单元格，输入公式“=IF(F13<>"",F13+1,IF(WEEKDAY(DATE($R$5,1,1),2)=1,1,""))”，这个公式的含义是：如果F13单元格不为空，则履行F13单元格中的数字加1，否则再进行“R5”单元格中输入年份的1月1日是不是是星期一的判断。

　　第3步：

　　拖动G13单元格的“填充柄”复制公式到H13——L13单元格中，分别选中H13——L13单元格，手动调剂每一个单元格中“WEEKDAY”函数的辨别值，即等号右侧的数字，顺次改成2、3、4、5、6，使其与星期相对应。

　　第4步：

　　选中F14单元格（即一月份第2个星期相对应的单元格），输入公式“=L13+1”（L13为上一行中的最后一个单元格），在G14单元格输入公式“=F14+1”，然后，拖动“填充柄”填充H14——L14单元格便可。以一样的方法，在下面的4行中输入对应的公式，不过一定要注意换行时单元格的援用。

　　第5步：

　　重复上述操作，分别设置后面11个月份的日期序列，在设置时需注意，在对每月1日是星期几的辨认公式中，将“DATE”函数中的月份值与实际的月份值相对应，如：设置2月份日用时，“DATE”函数的表达式应是“=DATE($R$5,2,1)”。

　　限于篇幅，上面还只是一个简单的介绍，还没有解决大、小月、闰月、日期出现大于“31”的现象等。具体设置，大家可参考本文所提供下载包中的“万年历.xls”文件。另外，这样一行一行地复制公式，方法比较烦琐，大家还可以参考下载包中的“yearly_calendar.xls”文件，学习一下如何经过Excel高级功能，完全实现自动日历更新的，不过这需要对Excel有更深入的了解。