網(wǎng)友解答: 通過EXCEL自身的函數(shù)等，我們也能夠在一張工作表制作一個萬年歷。具體包括：1、表單控件3個（滾動條2、按鈕1），2、條件格式3個（數(shù)據(jù)條、公式規(guī)則），3、數(shù)組函數(shù)1類（da

通過EXCEL自身的函數(shù)等，我們也能夠在一張工作表制作一個萬年歷。

具體包括：1、表單控件3個（滾動條2、按鈕1），2、條件格式3個（數(shù)據(jù)條、公式規(guī)則），3、數(shù)組函數(shù)1類（day、weekday），4、名稱1個，5、圖形對象1個，6、VBA代碼及指定宏，7、自定義格式與TEXT函數(shù)。

歲末年初、還在等別人送臺歷嗎？求人不如求己，用EXCEL自己也能搞，而且能夠用一輩子。

下面這個圖就是制作的月歷，我們將它分成ABCDE 5個區(qū)域來分析:

A區(qū)：年份和月份，可以隨時變化的，但不應(yīng)該在上面直接輸入，年份是縱向排列的，月份是根據(jù)小寫的數(shù)字1-12自動轉(zhuǎn)換為大寫的，還有一個向下的箭頭形狀；

B區(qū)：插入我們自己喜歡的圖片；

C區(qū)：表示星期的區(qū)域，可以直接輸入大寫的一到日，但我們這里用公式來設(shè)定它；

D區(qū)：放置本月第一周的日期和同一周上月份的日期；

E區(qū)：放置本月最后一周的日期和同一周下月份的日期，因為各月的天數(shù)不同，有可能本月最后一天位于倒數(shù)第二行；

下面，我們就來一步一步地學(xué)起來：

1、制作年份標(biāo)簽。點擊EXCEL主界面“插入”選項卡內(nèi)“形狀”項，在彈出的菜單“箭頭總匯”下點擊“五邊形”（圖二之1），注意不要點擊“流程圖”下的“離頁連接符”（圖二之2）。

在工作表任意位置畫出五邊形，松開鼠標(biāo)，五邊形周邊出現(xiàn)8個白色的定位空心小圓（圖二之3），用鼠標(biāo)拖拉它們可以改變五邊形的大小，在五邊形上移動鼠標(biāo)直到光標(biāo)變?yōu)樗南蛐〖^時，可移動其位置。

點擊圖二之4和5選擇一個自己喜歡的樣式和五邊形內(nèi)文字的格式。在公式編輯欄fx后面輸入“=D16”，讓其中的文字跟隨單元格D16變化而變化。點擊EXCEL主界面“開始”選項卡內(nèi)“字體”組內(nèi)有關(guān)項，可以改變文字的大小，顏色等。

點中圖二之6可順時針旋轉(zhuǎn)五邊形的方向。

2、設(shè)置月份。在單元格B7輸入公式“=MID(TEXT(E16,"[dbnum1]"),LEN(E16),LEN(E16))&"月"”，目的是將E16內(nèi)的1、2、3…11、12轉(zhuǎn)換為“一、二、三、一十一、一十二”后加上“月”字。其中“[dbnum1]”內(nèi)置格式是決定轉(zhuǎn)換的核心。

至此，完成圖一中的A。

3、插入圖形。點擊EXCEL主界面“插入”選項卡內(nèi)“圖形”項，選擇你電腦上的一張自己喜歡的圖形作為月歷的圖畫。在當(dāng)前排版布局下，建議選擇橫版的照片。

圖形插入后，同樣在其四周出現(xiàn)小圓形的定位點，也改變其形狀尺寸，拖移圖形的位置。點擊圖形時，在EXCEL主界面出現(xiàn)“格式”菜單，點擊“圖片樣式”組右下角的三角按鈕，選中“金屬圓角矩形”（圖二之7）。

至此，完成圖一中的B。

4、插入星期文字。在單元格B8輸入公式“= TEXT(B9,"aaa")”，將數(shù)字轉(zhuǎn)換成星期格式，數(shù)字1-7依次對應(yīng)著星期日、一、二至六。公式核心是“aaa”，而公式“= TEXT(B9,"dd")”是取兩位日期。將單元格B8公式向右拖拉至單元格H8。

至此，完成圖一中的C。

5、設(shè)置名稱。為下一步公式計算方便，點擊EXCEL主界面“公式”選項卡內(nèi)“定義的名稱”組內(nèi)的“定義名稱”項（圖三之1），調(diào)出“新建名稱”對話框，在其中的“名稱”輸入“Wedate”，在其中的“引用位置”輸入“={0,1,2,3,4,5,6} + {0;1;2;3;4;5}*7”。

6、插入日期。在第9-14行是用來存放日期的，需要逐行設(shè)置。選中單元格區(qū)域“B9:H9”，在公式編輯欄輸入“= Wedate+DATE($D$16,$E$16,1)-WEEKDAY(DATE($D$16,$E$16,1),2)+1”，同 時按下“CTRL_SHIFT_ENTER”三鍵完成數(shù)組公式的輸入。

用同樣的方法在單元格區(qū)域“B10:H10”、…單元格區(qū)域“B14:H14”逐一輸入其他5行的數(shù)組公式，要注意將公式中的1依次改為8、15、22、19、36。

8、設(shè)置雙休日字色。選中單元格區(qū)域“G9:G14”，設(shè)置字體顏色為綠色，選中單元格區(qū)域“H9:H14”，設(shè)置字體顏色為紅色。

9、設(shè)置日期的條件格式。為使得日期的顯示更符合人們的視覺習(xí)慣，將當(dāng)月日期黑色顯示，上月、下月的日期顯示為灰色，選中單元格區(qū)域“B9:H9”，點擊EXCEL主界面“開始”選項卡內(nèi)“樣式”組內(nèi)的“條件格式”項，在彈出的菜單中點“數(shù)據(jù)條”下的“橙色數(shù)據(jù)條”（圖四之1、2）。

點中圖四之3的“新建規(guī)則”，彈出“新建格式規(guī)則”對話框，在“選擇規(guī)則類型”內(nèi)選擇“使用公式確定要設(shè)置格式的單元格”，在“編輯規(guī)則說明”內(nèi)輸入“=DAY(B9)8”，將上月大于數(shù)字8的日期設(shè)置為指定的格式，點擊圖四之5“格式”按鈕，在彈出的對話框內(nèi)點擊“顏色”右下角的下拉三角形按鈕,，選擇圖四之6的主題顏色。

至此，完成圖一中的D。

用同樣的方法在單元格區(qū)域“B10:H10”、…單元格區(qū)域“B14:H14”設(shè)置“橙色數(shù)據(jù)條”。

選中單元格區(qū)域“B13:H14”兩行，新建規(guī)則的“規(guī)則說明”內(nèi)輸入“=AND(DAY(B13)=1,DAY(B13)<=15)”，將下個月1-15日的日期設(shè)置為灰色。

至此，完成圖一中的E。

看到這里，你是是不是學(xué)得這節(jié)課程要結(jié)束了？

然而，并沒有完。因為，這才是講了某一個月的月歷制作，還不具有通用性，不能計算任意月份的月歷叫什么萬年歷呢？

細(xì)心的同學(xué)也許已經(jīng)看出了我們前面提到單元格D16和E16了，年份在任意的年份，月份只能在1-12之間輸入，為了偷懶，不想動鍵盤輸入，鼠標(biāo)點點就出效果，可以嗎？

來，一起往下走…

我們點擊鼠標(biāo)來改變相應(yīng)單元格的值這樣的動作叫做“驅(qū)動”，點擊控件改變數(shù)值稱之為“控件驅(qū)動數(shù)值”。

10、插入年份控件。點擊EXCEL主界面“開發(fā)工具”選項卡內(nèi)“控件”組內(nèi)的“插入”項，在彈出的菜單中點擊“表單控件”下的“數(shù)值調(diào)節(jié)鈕”，移動鼠標(biāo)到單元格D16附近，此時光標(biāo)變?yōu)楹谏犹?，按下鼠?biāo)畫出一塊矩形，松開鼠標(biāo)，點擊“開發(fā)工具”選項卡內(nèi)“控件”組內(nèi)的“屬性”項（圖五之1-4），彈出“設(shè)置控件格式”對話框。

在圖六之1的“控制”選項卡內(nèi)依次輸入“2018”（單元格D16的值）、“1950”（可以計算的最小的年份，我們這里設(shè)為1950年，也可以往前推，如1940等）、“2099”（可以計算的最大的年份，我們這里設(shè)為2099年，也可以往后推，如2150等）、“=$D$16”（被驅(qū)動的單元格）。

<--我的EXCEL界面上，沒有“開發(fā)工具”選項卡，怎么辦？看文章最后啊

11、插入月份控件。按照與步驟10相同的方法，插入一個新的“數(shù)值調(diào)節(jié)鈕”，其控制選項卡設(shè)置如圖六之2所示。

12、添加直接打印按鈕。點擊EXCEL主界面“開發(fā)工具”選項卡內(nèi)“控件”組內(nèi)的“插入”項，在彈出的菜單中點擊“表單控件”下的“按鈕”，移動鼠標(biāo)到單元格H16附近（圖七之1、2），此時光標(biāo)變?yōu)楹谏犹?，按下鼠?biāo)畫出一塊矩形，松開鼠標(biāo)，彈出“指定宏”對話框，注意“宏名”中“按鈕6”數(shù)字6（圖七之3），在你電腦上可能是其他數(shù)字，點擊“新建”按鈕（圖七之4），在隨后出現(xiàn)的VBE窗口中輸入以下代碼（圖七之5和圖八之1、2），點擊“視圖”（圖七之6）按鈕返回EXCEL，輸入“立馬打印月歷”改變按鈕上的文字。

Sub 按鈕6_Click() ‘立馬打印月歷

ActiveSheet.PageSetup.PrintArea = "$A$1:$I$15"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Range("F6").Select

End Sub

Sub ohPreview() ‘打印預(yù)覽

ActiveSheet.PageSetup.PrintArea = "$A$1:$I$15"

ActiveWindow.SelectedSheets.PrintPreview True

Range("F6").Select

End Sub

Sub setBorders() ‘設(shè)置雙線框線

Range("A1:I15").Select

If Selection.Borders(xlEdgeLeft).LineStyle = xlNone Then

Selection.Borders(xlEdgeLeft).LineStyle = xlDouble

Selection.Borders(xlEdgeTop).LineStyle = xlDouble

Selection.Borders(xlEdgeBottom).LineStyle = xlDouble

Selection.Borders(xlEdgeRight).LineStyle = xlDouble

Else

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

Selection.Borders(xlEdgeTop).LineStyle = xlNone

Selection.Borders(xlEdgeBottom).LineStyle = xlNone

Selection.Borders(xlEdgeRight).LineStyle = xlNone

End If

Range("F6").Select

End Sub

13、添加月歷邊框。按照與步驟12相同的方法，插入“復(fù)選框”（圖八之3、4），右鍵此控件（圖八之5），在隨后出現(xiàn)的浮動菜單上點擊“指定宏”（圖八之6），在彈出的“指定宏”對話框內(nèi)選擇“'2018年月歷.xlsm'!setBorders”。

實現(xiàn)的功能為：點擊一次復(fù)選框，將會為單元格區(qū)域“A1:I15”添加雙線框，再點一次復(fù)選框，將支取單元格區(qū)域“A1:I15”的雙線框。

14、為圖形模擬顯示功能。右鍵第3步插入的圖形，在隨后出現(xiàn)的浮動菜單上點擊“指定宏”，在彈出的“指定宏”對話框內(nèi)選擇“'2018年月歷.xlsm'!ohPreview”。

實現(xiàn)的功能為：點擊插入的圖形，打印預(yù)覽圖一萬年歷。

更多財稅職場學(xué)習(xí)資訊，關(guān)注秀財網(wǎng)

題主可以這樣：

①啟動Excel2007，在任意一個單元格輸入下列函數(shù)：=TEXT(NOW(),"[$-130000]YYYY-M-D")。 　　

②該單元格立即得到一個日期，如下圖所示，農(nóng)歷日期為六月初一。雖然在遇到閏月時，顯示結(jié)果有點差強人意，如下圖中，2010年2月9日的農(nóng)歷應(yīng)是十二月二十六，但因為那年有個閏五月，就無辜多出來一個月了。不過總比編代碼要快捷多了吧，而且閏月也不是天天有。

③如果想要完全以農(nóng)歷形式顯示出來，那么可以輸入下列公式：=MID(" 甲乙丙丁戊己庚辛壬癸",MOD(TEXT(NOW(),"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉 戌亥",MOD(TEXT(NOW(),"[$-130000]e")-4,12)+1,1)&"年"&TEXT(NOW()," [$-130000][DBNum1]m月d日")