首页 > Excel专区 > Excel教程 >

利用excel制作一个十二星座的万年历

Excel教程 2022-03-03 21:48:09

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

  一、定制日历的框架

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

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

  小提示

  通过下拉列表选择年份

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

图1

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

图2

  二、给日历穿上美丽外衣

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

  第一步:执行“格式→工作表→背景”命令,在对话框中选择准备好的背景图片(本文的素材包中有提供),为工作表添加一个背景。

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

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

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

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

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

图3

  三、制作万年历

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

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

  第一步:

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

  第二步:

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

  第三步:

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

  第四步:

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

  第五步:

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

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


标签: 公式单元格输入选中excel教程

office教程网 Copyright © 2016-2020 http://www.office9.cn. Some Rights Reserved. 苏ICP备20040415号-9