摘要： 準備工作，制作如下電子表格：第一步；在C2中輸入=TODAY（）回車。TODAY（）函數用于提取當前系統日期。 第二步；在F2中輸入=IF(WEEKDAY(C2,2)=7,"日",WEEKDAY(C2,2))  回車。第三籌備工作，建造如下電子表格：

第一步；在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。

第八步；B 6中輸入=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列。

第十八步；美化萬年歷表格：更改日期和時刻名目、設置單元格布景等。

最后下場圖：