用Excel怎样制作万年历

悬赏分：10 - 解决时间：2007-2-15 08:32 

由于经常要查一个Excel表，就想如果把它设置为桌面背景就会很方便了，求教高手，怎么做才能办到？ 

提问者： firtre - 三级

最佳答案

文件－另存为网页－在桌面上点右键－属性－桌面－自定义桌面－web－钩上就搞定了 

用Excel怎样制作万年历

Excel 2010-02-07 15:18:53 阅读578 评论29 字号：大中小 

准备工作，制作如下电子表格：

第一步：在C2中输入=TODAY（）回车。TODAY（）函数用于提取当前系统日期。 

第二步：在F2中输入=IF(WEEKDAY(C2,2)=7,"日",WEEKDAY(C2,2))  回车。

第三步：在H2中输入 =NOW() 回车。NOW（）用于提取当前系统时间。

第四步：在D14中设置下拉菜单，数值为1900—2029。参见“怎样制作下拉菜单”

第五步：在F14中设置下拉菜单，数值为1—12。

将查询日期调为当前日期，如下图：

第六步：在A3中输入：

=IF(F14=2,IF(OR(D14/400=INT(D14/400),AND(D14/4=INT(D14/4),D14/100<>INT(D14/100))),29,28),IF(OR(F14=4,F14=6,F14=9,F14=11),30,31))回车。

第七步：B3中输入=IF(WEEKDAY(DATE($D$14,$F$14,1),2)=B4,1,0)回车。选中B3向右复制公式至H3。

第八步：B6中输入=IF(B3=1,1,0)回车。

第九步：在B7中输入=H6+1回车，选中B7，向下复制公式至B9。

第十步：在B10中输入=IF(H9>=A3,0,H9+1)回车。

第十一步：在B11中输入=IF(H10>=A3,0,IF(H10>0,H10+1,0))回车。

第十二步：在C6中输入=IF(B6>0,B6+1,IF(C3=1,1,0))回车。

第十三步：在C7中输入=B7+1回车。

第十四步：选中C7向下复制公式至  C9。

第十五步：在C10中输入=IF(B10>=$A$3,0,IF(B10>0,B10+1,IF(C6=1,1,0)))回车。

第十六步：选中C6，向右复制公式至H6。

                 选中C7，向右复制公式至H7。

                 选中C8，向右复制公式至H8。

                 选中C9，向右复制公式至H9。

                选中C10，向右复制公式至H10。

                选中B11，向右复制公式至H11。

第十七步：选中第3行和第4行，字体颜色设置为白色。隐藏I列和J列。 

第十八步：美化万年历表格：更改日期和时间格式、设置单元格背景等。 

最后效果图：

附：万年历的时间怎样改为动态时间，请参阅“怎样制作动态时间”。

怎样制作下拉菜单

Excel 2010-02-06 22:43:03 阅读226 评论13 字号：大中小 

第一步：制作电子表格 

 第二步：选中B2单元格—数据—有效性—序列—单击划红线处

第三步：单击上图红线处后，成为下图。

第四步：选中区域

第五步：单击划红线处

第六步：确定

第七步：完成后的效果图。

同理，可制作如下电子表格： 

怎样制作动态时间

Excel 2010-02-19 20:54:49 阅读149 评论26 字号：大中小 

第一步：打开电子表格—工具—宏—Visual Basic编辑器。

第二步：插入—模块，在对话框中输入代码：

Sub biao()

ActiveSheet.Range("H2").Value = Time

Application.OnTime Time + TimeSerial(0, 0, 1), "biao

End Sub

H2是时间的单元格地址。

第三步：关闭Visual Basic编辑器。

返回到Excel工作表中—工具—宏—宏(M)—执行。 

第四步：设置日期格式。(如时间不能更新，按Alt+F8)