用用 ExcelExcel 制作电子万年历制作电子万年历 先看一下最终效果（秀一下萌娃（*_*） ） ： 本电子万年历的功能包括： 1. 自动显示当月日历，突出显示当日日历； 2. 显示当月所有周别； 3. 显示当月所有节日和特殊日子（可自定义） ； 4. 可查询年月，包括该月的节日和特殊日子； 5. 具有个性化表盘时钟。 需要用到的 Excel 函数和符号有： if、year、month、today、day、date、weekday、text、DBNum、vlookup、iserror、weeknum、concatenate、mod、mid、now、minute、hour、$、& 需要用到的 Excel 技巧有： 1.插入背景； 2.设置行高和列宽； 3.输入有序文本； 4.设置数据有效性； 5.快速选择整列； 6.设置条件格式； 7.选择性粘贴； 8.设置单元格格式； 9.隐藏网格线； 10.制作圆环图和饼图、保存和调用图表模板； 11.图表的组合； 12.冻结窗格； 13.工作表加密 制作步骤： 第一步，设置万年历背景和区域：第一步，设置万年历背景和区域： 在“页面布局”选项卡选择“背景” ， 选择需要作为背景的图片，单击“插入” ， 插入后效果如图： 在第一张图片中间选择一个 25 行*8 列的区域作为日历区域（这里选择了 C5:J29 区域） ，框线按下图设置（也可以按照其他方式设置） ，并调整单元格的行高和列宽。 第二第二步，设置万年历步，设置万年历标题标题： 在“C6” （C6:H6 单元格合并）单元格输入“电子万年历” ； “C9” （C9:D9 单元格合并）单元格输入“查询年月” ； “F9”单元格输入“年” ； “H9”单元格输入“月” ；C11:J11 单元格分别输入“周别” 、 “日” 、 “一” 、 “二” 、 “三” 、 “四” 、 “五” 、 “六” 。 第三第三步，设置步，设置可查询的年月可查询的年月： 在“N5”单元格输入“年份” ， “O6”单元格输入“月份” ； 在“N6:N206”单元格分别输入年份“1900” 、 “1901” 、 “1902”“2099” 、 “2010” （当然还可以往后输入更多） ； 在“O6:O17”单元格分别输入月份“1” 、 “2” 、 “3”“11” 、 “12” 。 在“N4”单元格输入“=IF($E$9=“,YEAR(TODAY(),$E$9)” ； 在“O4”单元格输入“=IF($G$9=“,MONTH(TODAY(),$G$9)” ； 选中单元格“E9”和“N4” ，在“数据”选项卡选择“数据有效性” ， 在弹出的对话框中选择“设置” ，在下拉菜单中选择“序列” ， 点击右下角红色方框中的按钮， 选择序列“N6:N206” ，按“Enter” ， 单击“确定” ， 选中单元格“G9”和“O4” ，在“数据”选项卡选择“数据有效性” ， 在弹出的对话框中选择“设置” ，在下拉菜单中选择“序列” ， 点击右下角红色方框中的按钮， 选择序列“O6:O17” ，按“Enter” ， 单击“确定” ， 这样就可以在“E9”和“G9”单元格设置需要查询的年月了，查询年月为“1900 年 1 月2100年 12 月” ，如果“E9”和“G9”单元格为空，则默认为当前的年月。 第四第四步，步，确定当月日期确定当月日期对应位置对应位置： 在 “A34” 单元格输入 “确定当月总天数” ； 在 “D34” 单元格输入公式 “=DAY(DATE(N4,O4+1,)” 在“A35”单元格输入“确定当月第一天星期” ； 在“D35:J35”单元格分别输入“7” 、 “1” 、 “2” 、 “3” 、 “4” 、 “5” 、 “6” ； 在“D36”单元格输入公式“=IF(WEEKDAY(DATE($N$4,$O$4,1),2)=D35,1,0)” ，并复制“D36”到“E36:J36”单元格； 在“A37”单元格输入“显示当月日期对应位置(只显示日)” ， 在“D37:J37”单元格分别输入“日” 、 “一” 、 “二”“五” 、 “六” ； 在“D38”单元格输入公式“=IF(D36=1,1,0)” ； 在“E38”单元格输入公式“=IF(D38=0,IF(E36=1,1,0),D38+1)” ，并复制“E38”到“F38:J38”单元格； 在“D39”单元格输入公式“=J38+1” ，并复制“D39”到“D40:D41”单元格； 在“E39”单元格输入公式“=D39+1” ，并复制“E39”到“E39:J41”单元格； 在“D42”单元格输入公式“=IF(D41+7)$D$34,0,D41+7)” ，并复制“D42”到“E42:J42”单元格； 在“D43”单元格输入公式“=IF(D42=0,0,IF(D42+7)$D$34,0,D42+7)” ，并复制“D43”到“E43”单元格； 这样当月日期对应的位置就确定了。 第五第五步，步，确定当日对应位置确定当日对应位置： 在“A45”单元格输入“完整显示当月阳历” ； 在 “D45” 单元格输入公式 “=IF(D38=0,“,DATE($N$4,$O$4,D38)” ， 并复制 “D45” 到 “D45:J49”和“D50:E50”单元格； 在“A46”单元格输入“定位当天位置” ； 在 “D53” 单元格输入公式 “=IF(D45=TODAY(),1,“)” ， 并复制 “D53” 到 “D53:J57” 和 “D58:E58”单元格； 第六第六步，步，确定当月阴历日期对应位置确定当月阴历日期对应位置： 在“A60”单元格输入“确定当月阴历日期对应位置” ； 在 “ D60 ” 单 元 格 输 入 公 式 “ =IF(D45=“,“,TEXT(D45,“$-130000DBNum1m月“)&TEXT(D45,“$-130000d“)” ，并复制“D60”到“D60:J64”和“D65:E65”单元格； 第七步，编辑所有的节日和特殊日子：第七步，编辑所有的节日和特殊日子： 在“R3:T26”单元格分别输入下图内容（R6:S26 是公式） ： 在“R3:T26”单元格分别输入下图内容（R6:S26 是公式） ： 注意：阴历后面的日为阿拉伯数字。 当然也可以按照这个规律填写其他节日和特殊的日子（如生日） 。 第八步，分析当月阳历节日：第八步，分析当月阳历节日： 在“A67”单元格输入“确定当月阴历日期对应位置” ； 在“D67”单元格输入公式“=IF(D45=“,“, =IF(D45=“,“,IF(ISERROR(VLOOKUP(D45,$S$6:$T$100,2,0)=TRUE,“,VLOOKUP(D45,$S$6:$T$100,2,0)” ，并复制“D67”到“D67:J71”和“D72:E72”单元格； 第九步，分析当月阴历节日：第九步，分析当月阴历节日： 在“A74”单元格输入“确定当月阴历日期对应位置” ； 在“D74”单元格输入公式“=IF(D60=“,“,IF(ISERROR(VLOOKUP(D60,$V$6:$W$100,2,0)=TRUE,“,VLOOKUP(D60,$V$6:$W$100,2,0)” ，并复制“D74”到“D74:J79”和“D80:E80”单元格； 第十第十步，分析步，分析当月对应的周别当月对应的周别： 在“C15” （C15:C17 单元格合并）单元格输入“=WEEKNUM(D46)” ； 在“C12” （C12:C14 单元格合并）单元格输入“=C15-1” ； 在“C18” （C18:C20 单元格合并）单元格输入“=C15+1” ； 在“C21” （C21:C23 单元格合并）单元格输入“=C15+2” ； 在“C24” （C24:C26 单元格合并）单元格输入“=C15+3” ； 在“C27” （C27:C29 单元格合并）单元格输入“=IF(D50=“,“,C15+4)” ； 第十一第十一步，步，综合当月信息综合当月信息： 在“D12”单元格输入“=IF(D38=0,“,D38)” ，并复制“D12”到“E12:J12” ； 在“D15”单元格输入“=IF(D39=0,“,D39)” ，并复制“D15”到“E15:J15” ； 在“D18”单元格输入“=IF(D40=0,“,D40)” ，并复制“D18”到“E18:J18” ； 在“D21”单元格输入“=IF(D41=0,“,D41)” ，并复制“D21”到“E21:J21” ； 在“D24”单元格输入“=IF(D42=0,“,D42)” ，并复制“D24”到“E24:J24” ； 在“D27”单元格输入“=IF(D43=0,“,D43)” ，并复制“D27”到“E27” ； 在“P6:Q34”单元格分别输入下图内容： 在“D13”单元格输入“=IF(D12=“,“,IF(-TEXT(DATE($N$4,$O$4,D12),“$-130000d“)=1,TEXT(DATE($N$4,$O$4,D12),“$-130000DBNum1m 月“),VLOOKUP(-TEXT(DATE($N$4,$O$4,D12),“$-130000d“),$P$6:$Q$34,2,0) ” ， 并复制 “D13”到 “D13:J13” 、 “D16:J16” 、 “D19:J19” 、 “D22:J22” 、 “D25:J25” 、 “D28:E28” ； 在“D14”单元格输入“=IF(D67=“,D74,IF(D74=“,D67,CONCATENATE(D67,“ “,D74)” ，并复制“D14”到“E14:J14” ； 在“D17”单元格输入“=IF(D68=“,D75,IF(D75=“,D68,CONCATENATE(D68,“ “,D75)” ，并复制“D17”到“E17:J17” ； 在“D20”单元格输入“=IF(D69=“,D76,IF(D76=“,D69,CONCATENATE(D69,“ “,D76)” ，并复制“D20”到“E20:J20” ； 在“D23”单元格输入“=IF(D70=“,D77,IF(D77=“,D70,CONCATENATE(D70,“ “,D77)” ，并复制“D23”到“E23:J23” ； 在“D26”单元格输入“=IF(D71=“,D78,IF(D78=“,D71,CONCATENATE(D71,“ “,D78)” ，并复制“D26”到“E26:J26” ； 在“D29”单元格输入“=IF(D72=“,D79,IF(D79=“,D72,CONCATENATE(D72,“ “,D79)” ，并复制“D29”到“E29” ； 第十二第十二步，步，突出显示当日日期突出显示当日日期： 选择“D12”单元格，在“开始”选项卡选择“条件格式” ，在下拉菜单中选择“新建规则” ， 在弹出的对话框中选择“使用公式确定要设置格式的单元格” ，在中建框体中输入公式“=D$53=1” ，单击右下角的“格式” ， 选择“填充” ， “黄色” ，单击“确定” ， 单击“确定” ， 复制“D12”单元格，选择“D12:J14”单元格，单击鼠标右键，在下拉菜单中选择“选择性粘贴” ， 在弹出的对话框中选择“格式” ，单击“确定” ； 用类似的步骤处理剩下的单元格： 选择“D15”单元格，在“开始”选项卡选择“条件格式” ，在下拉菜单中选择“新建规则” ， 在弹出的对话框中选择“使用公式确定要设置格式的单元格” ，在中建框体中输入公式“=D$54=1” ，单击右下角的“格式” ， 选择“填充” ， “黄色” ，单击“确定” ， 单击“确定” ， 复制“D15”单元格，选择“D1