摘（zhāi）要（yào）： 準備工作（zuò），製作如下電子表格：第一步（bù）；在（zài）C2中輸入=TODAY（）回車。TODAY（）函數用於提取當（dāng）前係統日期（qī）。 第二步；在F2中輸入=IF(WEEKDAY(C2,2)=7,"日",WEEKDAY(C2,2))  回車（chē）。第三籌備工作，建造如下電子表格（gé）：

第一（yī）步（bù）；在（zài）C2中輸入=TODAY（）回車。TODAY（）函數用（yòng）於提取當前係（xì）統（tǒng）日期。

第（dì）二步（bù）；在F2中輸入=IF(WEEKDAY(C2,2)=7,"日",WEEKDAY(C2,2))  回（huí）車。

第三步（bù）；在H2中輸入 =NOW() 回車（chē）。NOW()用於提取當前（qián）係統（tǒng）時（shí）刻。

第四步：在D14中設（shè）置（zhì）下拉菜單（dān），數值為1900—2029。

第五步；在F14中設置下拉菜單（dān），數值為1—12。

將查詢日期調為當前日期，如下（xià）圖：

第六（liù）步；在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))回車。

第（dì）七步：B3中輸（shū）入（rù）=IF(WEEKDAY(DATE($D$14,$F$14,1),2)=B4,1,0)回車。選中（zhōng）B3向右複製公式（shì）至H3。

第八（bā）步；B 6中輸入=IF(B3=1,1,0)回車。

第九步；在（zài）B7中（zhōng）輸入（rù）=H6+1回車，選中B7，向下複製公式至B9。

第十步；在B10中輸入=IF(H9>=A3,0,H9+1)回車。

第（dì）十一步：在（zài）B11中輸入=IF(H10>=A3,0,IF(H10>0,H10+1,0))回車。

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

第十（shí）三步：在C7中輸入=B7+1回（huí）車（chē）。

第十四步：選中C7向下複製公式（shì）至  C9。

第（dì）十五步：在C10中輸入（rù）=IF(B10>=$A$3,0,IF(B10>0,B10+1,IF(C6=1,1,0)))回車。

第十六步（bù）：選中C6，向右複製公式至（zhì）H6。

選中C7，向右複製公式至（zhì）H7。

選中C8，向右複製公式至H8。

選中C9，向右複製公式（shì）至H9。

選（xuǎn）中C10，向右複製（zhì）公式（shì）至H10。

選中B11，向右複製公式至H11。

第十七步：選中第3行和第4行，字體顏（yán）色設置為白色。潛匿I列（liè）和J列。

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

最（zuì）後下場圖：