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

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

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

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

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

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

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

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

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

E區(qū)：放置本月最后一周的日期和同一周下月份的日期，因?yàn)楦髟碌奶鞌?shù)不同，有可能本月最后一天位于倒數(shù)第二行；

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

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

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

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

點(diǎn)中圖二之6可順時(shí)針旋轉(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、插入圖形。點(diǎn)擊EXCEL主界面“插入”選項(xiàng)卡內(nèi)“圖形”項(xiàng)，選擇你電腦上的一張自己喜歡的圖形作為月歷的圖畫(huà)。在當(dāng)前排版布局下，建議選擇橫版的照片。

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

至此，完成圖一中的B。

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

至此，完成圖一中的C。

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

6、插入日期。在第9-14行是用來(lái)存放日期的，需要逐行設(shè)置。選中單元格區(qū)域“B9:H9”，在公式編輯欄輸入“= Wedate+DATE($D$16,$E$16,1)-WEEKDAY(DATE($D$16,$E$16,1),2)+1”，同 時(shí)按下“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è)置日期的條件格式。為使得日期的顯示更符合人們的視覺(jué)習(xí)慣，將當(dāng)月日期黑色顯示，上月、下月的日期顯示為灰色，選中單元格區(qū)域“B9:H9”，點(diǎn)擊EXCEL主界面“開(kāi)始”選項(xiàng)卡內(nèi)“樣式”組內(nèi)的“條件格式”項(xiàng)，在彈出的菜單中點(diǎn)“數(shù)據(jù)條”下的“橙色數(shù)據(jù)條”（圖四之1、2）。

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

至此，完成圖一中的D。

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

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

至此，完成圖一中的E。

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

然而，并沒(méi)有完。因?yàn)?，這才是講了某一個(gè)月的月歷制作，還不具有通用性，不能計(jì)算任意月份的月歷叫什么萬(wàn)年歷呢？

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

來(lái)，一起往下走…

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

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

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

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

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

12、添加直接打印按鈕。點(diǎn)擊EXCEL主界面“開(kāi)發(fā)工具”選項(xiàng)卡內(nèi)“控件”組內(nèi)的“插入”項(xiàng)，在彈出的菜單中點(diǎn)擊“表單控件”下的“按鈕”，移動(dòng)鼠標(biāo)到單元格H16附近（圖七之1、2），此時(shí)光標(biāo)變?yōu)楹谏犹?hào)，按下鼠標(biāo)畫(huà)出一塊矩形，松開(kāi)鼠標(biāo)，彈出“指定宏”對(duì)話框，注意“宏名”中“按鈕6”數(shù)字6（圖七之3），在你電腦上可能是其他數(shù)字，點(diǎn)擊“新建”按鈕（圖七之4），在隨后出現(xiàn)的VBE窗口中輸入以下代碼（圖七之5和圖八之1、2），點(diǎn)擊“視圖”（圖七之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)的浮動(dòng)菜單上點(diǎn)擊“指定宏”（圖八之6），在彈出的“指定宏”對(duì)話框內(nèi)選擇“'2018年月歷.xlsm'!setBorders”。

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

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

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

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

題主可以這樣：

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

②該單元格立即得到一個(gè)日期，如下圖所示，農(nóng)歷日期為六月初一。雖然在遇到閏月時(shí)，顯示結(jié)果有點(diǎn)差強(qiáng)人意，如下圖中，2010年2月9日的農(nóng)歷應(yīng)是十二月二十六，但因?yàn)槟悄暧袀€(gè)閏五月，就無(wú)辜多出來(lái)一個(gè)月了。不過(guò)總比編代碼要快捷多了吧，而且閏月也不是天天有。

③如果想要完全以農(nóng)歷形式顯示出來(lái)，那么可以輸入下列公式：=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日")