用EXCEL製作一份萬年曆
今天我們介紹用Excel製作萬年曆的方法。這個萬年曆可以顯示當月的月曆，還可以隨意查閱任何日期所屬的月曆，非常方便。如果你願意，還可以讓它在特殊的日子裡顯示不同的提醒文字，一起來試試吧！
文章末尾提供.xls檔案供大家下載參考。 本文所涉及到的函式有： 1、AND
(logical1,logical2, ...) 2、DATE (year,month,day) 3、DAY
(serial_number) 4、IF (Logical,Value_if_true,Value_if_false) 5、INT
(number) 6、MONTH (serial_number) 7、NOW () 8、OR
(logical1,logical2, ...)
1、啟動EXCEL2003，新建一個工作表，取名儲存（如萬年曆.xls），並在相應的單元格中，輸入文字。 2、同時選中B1、C1、D1單元格，按“格式”工具欄上的“合併及居中”按鈕，將其合併成一個單元格，並輸入公式：=TODAY（）。
選中B1（合併後的）單元格，執行“格式→單元格”命令，開啟“單元格格式”對話方塊（，在“數字”標籤中的“分類”下面選中“日期”選項，再在右側“型別”下面選中“二○○一年三月十四日”選項，“確定”退出，將日期設定成中文形式。
注意：TODAY（）函式用於提取當前系統日期，請將系統日期一定要調整準確喲。
3、選中F1單元格，輸入公式：=IF(WEEKDAY(B1,2)=7,"日",WEEKDAY(B1,2))；選中H1單元格，輸入公式：=NOW（）。 選中F1單元格，開啟“單元格格式”對話方塊，在“數字”標籤中的“分類”下面選中“特殊”選項，再在右側“型別”下面選中“中文小寫數字”選項，“確定”退出，將“星期數”設定成中文小寫形式；選中H1單元格，開啟“單元格格式”對話方塊，在“數字”標籤中的“分類”下面選中“時間”選項，再在右側“型別”下面選中一款時間格式，“確定”退出。 注意：①上述前面一個公式的含義是：如果（IF）當前日期（B1）是星期“7”（WEEKDAY(B1,2)=7），則在F1單元格中顯示“日”，否則，直接顯示出星期的數值（WEEKDAY(B1,2)）。②上述第二個函式（NOW（））用於提取當前系統日期和時間，也請將系統日期和時間調整準確。 4、在I1、I2單元格分別輸入1900、1901，然後同時選中I1、I2單元格，用“填充柄”向下拖拉至I151單元格，輸入1900—2050年份序列。 同樣的方法，在J1至J12單元格中輸入1—12月份序列。 5、選中D13單元格，執行“資料→有效性”命令，開啟“資料有效性”對話方塊，按“允許”右側的下拉按鈕，選中“序列”選項，在“來源”下面的方框輸入：=$I$1:$I$151，“確定”退出。
同樣的操作，將F15單元格資料有效性設定為“=$J$1:$J$12”序列。 注意：經過這樣的設定以後，當我們選中D15（或F15）單元格時，在單元格右側出現一個下拉按鈕，按此下拉按鈕，即可選擇年份（或月份）數值，快速輸入需要查詢的年、月值。
6、選中A2單元格（不一定非得是A2喲），輸入公式：=IF(F13=2,IF(OR(D13/400=INT(D13/400),AND(D13/4=INT(D13/4),D13/100<>INT(D13/100))),29,28),IF(OR(F13=4,F13=6,F13=9,F13=11),30,31))，用於獲取查詢“月份”所對應的天數（28、29、30、31）。 注意：上述函式的含義是：如果查詢“月份”為“2月”（F13=2）時，並且“年份”數能被400整除[D13/400=INT(D13/400)]，或者（OR）“年份”能被4整除，但不能被100整除[AND(D13/4=INT(D13/4),D13/100<>INT(D13/100))]，則該月為29天（也就是我們通常所說的“閏年”），否則為28天。如果“月份”不是2月，但是“4、6、9、11”月，則該月為30天。其他月份天數為31天。 7、選中B2單元格，輸入公式：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)。再次選中B2單元格，用“填充柄”將上述公式複製到C2—H2單元格中。 注意：①上述B2公式的含義是：如果“查詢年月”的第1天是星期“7”（WEEKDAY(DATE)($D$13,$F$13,1),2)=B3）時，在該單元格顯示“1”，反之顯示“0”），為“查詢年月”獲取一個對照值，為下面製作月曆做準備。 ②上述C2—H2單元條中公式的含義與B2相似。 ③在用拖拉法複製公式時，公式“絕對引用”的單元格（加了“$”號的，如“$D$13”等）不會發生改變，而“相對引用”的單元格（沒有加“$”號的，如“B3”等），則會智慧化地發生變化，例如在E2單元格中，“B3”變成了“E3”，整個公式成為：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=E3,1,0)。 8、選中B6單元格，輸入公式：=IF(B2=1,1,0)。選中B7單元格，輸入公式：=H6+1。用“填充柄”將B7單元格中的公式複製到B8、B9單元格中。 分別選中B10、B11單元格，輸入公式：=IF(H9>=A2,0,H9+1)和=IF(H10>=A2,0,IF(H10>0,H10+1,0))。 選中C6單元格，輸入公式：=IF(B6>0,B6+1,IF(C2=1,1,0))。用“填充柄”將C6單元格中的公式複製到D6—H6單元格中。 選中C7單元格，輸入公式：=B7+1。用“填充柄”將C7單元格中的公式複製到C8、C9單元格中。同時選中C7—C9單元格，用“填充柄”將其中的公式複製到D7—H9單元格中。 選中C10單元格，輸入公式：=IF(B11>=$A$2,0,IF(B11>0,B11+1,IF(C6=1,1,0)))。用“填充柄”將C10單元格中的公式複製到D10—H10單元格和C11單元格中。 至此，整個萬年曆（其實沒有萬年，只有從1900—2050的151年）製作完成。 下面，我們一起來將其裝飾一下。
9、選中相應的單元格，利用工具欄上的相應按鈕，設定好字型、字號、字元顏色等。 選中相應的單元格，開啟“單元格格式”對話方塊，在“對齊”標籤下，設定好單元格中文字的對齊方式（通常情況下，垂直對齊可以一次性設定為“居中”，水平“對齊”根據具體情況設定）。 同時選中I列和J列，右擊滑鼠，選“隱藏”選項，將相應的列隱藏起來，使得介面更加友好。用同樣的方法，將第2和第3行也隱藏起來。 10、選中B5—H11單元格區域，開啟“單元格格式”對話方塊，進入“邊框”標籤，選擇好“顏色、樣式”，並“預置”好邊框範圍，然後“確定”退出，為月曆加上邊框。 11、執行“工具→選項”命令，開啟“選項”對話方塊（如圖4），在“檢視”標籤下（通常是預設標籤），清除“零值”和“網格線”複選框中的“∨”號，“確定”退出，讓“零值”和“網格線”不顯示出來。
12、將B14—H14和B15—H15單元格分別合併成一個單元格，並在B14和B15單元格中輸入公式：=IF(AND(MONTH(D1)=1,DAY(D1)=1),"新的新氣象！加油呀！",IF(AND(MONTH(D1)=3,DAY(D1)=8),"向女同胞們致敬！",IF(AND(MONTH(D1)=5,DAY(D1)=1),"勞動最光榮",IF(AND(MONTH(D1)=5,DAY(D1)=4),"青年是祖國的棟樑",IF(AND(MONTH(D1)=6,DAY(D1)=1),"原天下所有的兒童永遠快樂",0)))))和=IF(AND(MONTH(D1)=7,DAY(D1)=1),"黨的恩情永不忘",IF(AND(MONTH(D1)=8,DAY(D1)=1),"提高警惕，保衛祖國！",IF(AND(MONTH(D1)=9,DAY(D1)=10),"老師，您辛苦了！",IF(AND(MONTH(D1)=10,DAY(D1)=1),"祝我們偉大的祖國繁榮富強",0))))。 設定好B14和B15單元格的字型、字號、字元顏色。 注意：上述公式的含義是：如果當前日期逢到相關的節日（如“元旦”等），則在B14或B15單元格顯示出相應的祝福語言（如“新的新氣象！加油呀！”，）。 由於IF函式只能巢狀7層，而節日數量超過7個（我們這裡給出了9個），因此，我們用兩個單元格來顯示。
13、執行“格式→工作表→背景”命令，開啟“工作表背景”對話方塊，選擇一張合適的圖片後，按“插入”按鈕，將其襯於工作表文字下面。
14、在按住“Ctrl”鍵的同時，單擊D13和F13單元格，同時選中兩個單元格，開“單元格格式”對話方塊，切換“保護”標籤，清除“鎖定”前面複選框中的“∨”號，“確定”退出。
15、執行“工具→保護→保護工作表”命令，開啟“保護工作表”對話方塊，兩次輸入密碼後，確定退出。
注意：經過這樣的設定後，整個工作表中除了D13和F13單元格中的內容可以改變外，其它單元格中的內容均不能改變，保證了萬年曆的使用可靠性。
Excel常用函式例項剖析 (共5篇) 下一篇：自動評分計算表