《如何用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
