《如何用EXCEL表格制作日历》由会员分享,可在线阅读,更多相关《如何用EXCEL表格制作日历(19页珍藏版)》请在金锄头文库上搜索。
1、用EL制作一份万年历今天我们简介用Excel制作万年历的措施。这个万年历可以显示当月的月历,还可以随意查阅任何日期所属的月历,非常以便。如果你乐意,还可以让它在特殊的日子里显示不同的提示文字,一起来试试吧!本文所波及到的函数有:1、AND (ogical1,loicl2,.)2、DT (year,mnth,ay)、DAY(erl_nubr)、I (Lgial,Valu_if_true,alue_iffse)5、NT (umbe)、NTH (srial_number)、NOW ()8、OR(logical,logial2, .) 1、启动EXCL,新建一种工作表,取名保存(如万年历.xls),并
2、在相应的单元格中,输入如图1所示的文本。、同步选中B1、C1、D1单元格,按“格式”工具栏上的“合并及居中”按钮,将其合并成一种单元格,并输入公式:=TODAY()。选中B1(合并后的)单元格,执行“格式单元格”命令,打开“单元格格式”对话框(如图),在“数字”标签中的“分类”下面选中“日期”选项,再在右侧“类型”下面选中“二一年三月十四日”选项,“拟定”退出,将日期设立成中文形式。注意:DY()函数用于提取目前系统日期,请将系统日期一定要调节精确哟。 3、选中F1单元格,输入公式:=I(WEEKDY(B1,2)=7,日,EKY(B1,);选中H1单元格,输入公式:NOW()。选中F1单元格,
3、打开“单元格格式”对话框,在“数字”标签中的“分类”下面选中“特殊”选项,再在右侧“类型”下面选中“中文小写数字”选项,“拟定”退出,将“星期数”设立成中文小写形式;选中单元格,打开“单元格格式”对话框,在“数字”标签中的“分类”下面选中“时间”选项,再在右侧“类型”下面选中一款时间格式,“拟定”退出。注意:上述前面一种公式的含义是:如果(IF)目前日期(B)是星期“7”(WEEDY(B1,2)=7),则在F1单元格中显示“日”,否则,直接显示出星期的数值(WEA(B1,))。上述第二个函数(OW()用于提取目前系统日期和时间,也请将系统日期和时间调节精确。、在1、I2单元格分别输入10、19
4、,然后同步选中I1、2单元格,用“填充柄”向下拖拉至11单元格,输入190200年份序列。同样的措施,在J1至J12单元格中输入112月份序列。、选中D3单元格,执行“数据有效性”命令,打开“数据有效性”对话框(如图),按“容许”右侧的下拉按钮,选中“序列”选项,在“来源”下面的方框输入:=$1:$151,“拟定”退出。同样的操作,将F单元格数据有效性设立为“$J1:$12”序列。 注意:通过这样的设立后来,当我们选中15(或1)单元格时,在单元格右侧浮现一种下拉按钮,按此下拉按钮,即可选择年份(或月份)数值,迅速输入需要查询的年、月值。6、选中2单元格(不一定非得是A2哟),输入公式:=I(
5、F13=,(R(D13/400INT(D/0),AD(D3/4=NT(134),13/100INT(131)),2,2),(R(F3=4,F13=6,F39,F13=1),3,31)),用于获取查询“月份”所相应的天数(28、29、30、31)。注意:上述函数的含义是:如果查询“月份”为“2月”(F13=)时,并且“年份”数能被40整除D13/00=INT(1/40),或者(O)“年份”能被4整除,但不能被100整除AN(34I(D1/),1/100INT(13/00)),则该月为29天(也就是我们一般所说的“闰年”),否则为天。如果“月份”不是2月,但是“4、6、11”月,则该月为0天。其她
6、月份天数为31天。、选中B2单元格,输入公式:=IF(WEEKDA(DAE($13,$F$13,1),2)=B,1,0)。再次选中B单元格,用“填充柄”将上述公式复制到C单元格中。注意:上述B2公式的含义是:如果“查询年月”的第天是星期“7”(EKAY(DTE)($13,$F$13,1),2)=B3)时,在该单元格显示“”,反之显示“0”),为“查询年月”获取一种对照值,为下面制作月历做准备。上述C2H2单元条中公式的含义与B2相似。在用拖拉法复制公式时,公式“绝对引用”的单元格(加了“$”号的,如“$D$13”等)不会发生变化,而“相对引用”的单元格(没有加“”号的,如“B3”等),则会智能
7、化地发生变化,例如在E单元格中,“3”变成了“3”,整个公式成为:(WEEKDAY(DAT($13,$1,),2)=,1,0)。、选中B6单元格,输入公式:IF(2,1,0)。选中7单元格,输入公式:=H6。用“填充柄”将7单元格中的公式复制到8、B9单元格中。分别选中B10、B11单元格,输入公式:=F(H92,H9+1)和=I(H12,0,IF(0,H1,0)。选中C6单元格,输入公式:=I(0,+1,I(C21,0)。用“填充柄”将C6单元格中的公式复制到D6H6单元格中。 选中C7单元格,输入公式:B+。用“填充柄”将C7单元格中的公式复制到C8、9单元格中。同步选中7C9单元格,用“
8、填充柄”将其中的公式复制到7H9单元格中。选中C10单元格,输入公式:F(11=$2,0,I(B10,111,F(,1,0)。用“填充柄”将C10单元格中的公式复制到D110单元格和C11单元格中。至此,整个万年历(其实没有万年,只有从1900200的151年)制作完毕。下面,我们一起来将其装饰一下。9、选中相应的单元格,运用工具栏上的相应按钮,设立好字体、字号、字符颜色等。选中相应的单元格,打开“单元格格式”对话框,在“对齐”标签下,设立好单元格中文本的对齐方式(一般状况下,垂直对齐可以一次性设立为“居中”,水平“对齐”根据具体状况设立)。同步选中I列和J列,右击鼠标,选“隐藏”选项,将相应
9、的列隐藏起来,使得界面更加和谐。用同样的措施,将第和第3行也隐藏起来。10、选中B5H1单元格区域,打开“单元格格式”对话框,进入“边框”标签,选择好“颜色、样式”,并“预置”好边框范畴,然后“拟定”退出,为月历加上边框。11、执行“工具选项”命令,打开“选项”对话框(如图4),在“视图”标签下(一般是默认标签),清除“零值”和“网格线”复选框中的“”号,“拟定”退出,让“零值”和“网格线”不显示出来。12、将BH和B1H1单元格分别合并成一种单元格,并在B14和B15单元格中输入公式:=IF(AND(MONTH(D)1,DAY(D1)=1),新的新气象!加油呀!,IF(ND(MONTH(1)
10、3,DAY(D1)8),向女同胞们致敬!,IF(AND(MTH(D1)5,DA()=1),劳动最光荣,IF(A(MONTH(D1)5,DY(D)=4),青年是祖国的栋梁,IF(AND(ONTH()=6,DAY()=1),原天下所有的小朋友永远快乐,)和(AN(MONTH(1),DAY(D)=),党的恩情永不忘,I(AND(MONH(D1)=,A(D1)1),提高警惕,保卫祖国!,F(AD(MONT(D1)9,DAY(D1)=10),教师,您辛苦了!,IF(AND(MONH(1)1,DAY(D)1),祝我们伟大的祖国繁华富强,0))。设立好B14和5单元格的字体、字号、字符颜色。注意:上述公式的
11、含义是:如果目前日期逢到有关的节日(如“元旦”等),则在14或B1单元格显示出相应的祝愿语言(如“新的新气象!加油呀!”,参见图5)。由于IF函数只能嵌套层,而节日数量超过7个(我们这里给出了个),因此,我们用两个单元格来显示。 、执行“格式工作表背景”命令,打开“工作表背景”对话框(如图6),选择一张合适的图片后,按“插入”按钮,将其衬于工作表文字下面。1、在按住“trl”键的同步,单击D1和3单元格,同步选中两个单元格,开“单元格格式”对话框,切换“保护”标签(如图),清除“锁定”前面复选框中的“”号,“拟定”退出。15、执行“工具保护保护工作表”命令,打开“保护工作表”对话框(如图),两
12、次输入密码后,拟定退出。注意:通过这样的设立后,整个工作表中除了D13和F1单元格中的内容可以变化外,其他单元格中的内容均不能变化,保证了万年历的使用可靠性。 在V中操纵Excl 一Ecel对象模块 plicaion 对象 | 集合 - -Asstat |-Addins(din) |-AutCoct |-OLEDBEros -Deb |-CommandBars(ommandBr) -VB |-ialogs(Dialog) |-Wrkshetunctio -Rcentilds(RecetFle) -DfaultWeOptins |-Winws(inow) |-ngugeSttigs |-Work
13、boo(Wrbo) |-Flesah |-Nae(name) -AserWiard |-ODBrrors 最上层的Aplicaton是指整个应用程序,其中最常用到的Workbooks代表活页簿集合,在其后的括号内的Wobook是指一种工作簿。 在VB中要打开xcel,一方面要引用Micrsof xcel 9.(或8.0)Obet Lrary。 打开的环节是:(1)定义两个变量,数据类型指定为xcel.Application.cel.Workbok. (2)激活Exce应用程序。(3)打动工作簿(我们假设在目前程径下有一种工作簿studentsxls)。 代码如下: OptionElic Pubic apExcelsEcelApplictonPublicwbxcel A xcel.obok PraeSb