利用excel制作一个十二星座的万年历
发布时间:2022-09-26 02:11:02
揭去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有更深入的了解。
猜你喜欢
- 最近有用户遇到Win10专业版分辨率超出范围黑屏的问题,试了很多办法都无法解决,其实造成电脑黑屏的原因有很多,部分用户因为分辨率调太高引起的
- 在学习和工作中,我们可能有的数据不能给别人看,或者只能看不能修改,这就需要我们掌握Excel有关保护与加密的内容了。保护工作簿对工作簿整体进
- 用Excel表格制表的时候,我们往往会遇到许多种格式的表格,当然,文字竖排也是其中一种了,大多数表格的第一竖排我们都会在里面输入文字,来表示
- 在office办公时候,会遇到数学公式编辑,尤其是与数学打交道的人,在新版的word2013中,找不到数学公式编辑器在哪里,那么下面就由小编
- 一、使用CreateObject创建ExcelSub LateBinding()'Declare a generic object
- excel排序不能扩展选区该怎么办?excel中经常需要对数据进行排序,这就需要扩展区域,但是发现扩展区域不能使用该怎么办呢?下面我们就来看
- 怎样设计EXCEL表?很多朋友都不是很清楚,下面小编就为大家一下,一起来看看吧在实际工作中,很多EXCEL用户对于表,特别是同工作簿中多个相
- 一般来说同一个局域网的两台电脑就可以互相访问,其中一台电脑就可以访问另一台的文件,可以打开文件,可以存储对方的文件,非常方便。今天需要解决的
- 在Excel中,有很多函数。但是,却没有一个函数能够根据提供的单元格颜色来求和的,今天就为大家介绍EXCEL根据单元格颜色来求和方法介绍,希
- 大家都有过从网页上负责段落然后粘贴到word中的经历。这里就有一个难题,很多从网页上拷贝的文字是带有格式的(见图1),当粘贴到word中处理
- 很多小伙伴在使用Word文档的时候,都喜欢开启查看多页,这样可以方便我们进行对比查看。如果我们经常需要使用到Word文档的查看多个网页工具,
- 在Word文档中设置分栏后,尽管一页中有两栏或者多栏文字,但使用“插入页码”命令,却只能在该页中插入同一个页码。但是我们在日常运用中,会遇到
- 第一招:让Excel按照纸张的宽度和高度打印1.启动Excel,打开需要的工作簿文件,单击相应的工作表。2.在“文件”菜单上,单击“页面设置
- 1.打开需要编辑的WPS文档,然后点击工具栏的“审阅”然后点击“限制编辑” 2.勾选“设置文档的保护方式”然后选择
- 机器都是靠能源驱动的,没有电咱们的win10系统最终也要歇菜。有些用户就发现自己进行某些操作后,win10系统就显示未在充电了,难道是更新系
- Word是一款经常使用的办公软件之一,我们为了防止机密泄露,经常会把文档加密,那你知道Word中将文档加密后怎么解开的吗?接下来我们一起往下
- word怎么实现左右各缩进20磅这个很简单的,你直接选中要修改的段落,右击,选中“段落”项,里面有“缩进与间距”项,再看“缩进”,有左侧,右
- 重装系统多了,遇到问题也就多,最近有朋友表示win10重装后无法进入系统。具体故障表现为重装完系统后,想要启动电脑时,却发现无法进入系统,不
- 最近有用户反应在电脑上安装软件时遇到了“文件系统错误 (-2147219196)”的提示,这是有可能更新了Win10系统后导致的,这个问题该
- 【你真的会用Word画线吗?】①输入三个“=”回车,是一条双直线;②输入三个“”,回车,就是一条波浪线;③输入三个“”回车,就是一条虚线;④