通過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,、制作年份標簽。點擊EXCEL主界面“插入”選項卡內(nèi)“形狀”項,,在彈出的菜單“箭頭總匯”下點擊“五邊形”(圖二之1),,注意不要點擊“流程圖”下的“離頁連接符”(圖二之2)。 在工作表任意位置畫出五邊形,,松開鼠標,,五邊形周邊出現(xiàn)8個白色的定位空心小圓(圖二之3),用鼠標拖拉它們可以改變五邊形的大小,,在五邊形上移動鼠標直到光標變?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)<> 至此,,完成圖一中的E。 看到這里,,你是是不是學(xué)得這節(jié)課程要結(jié)束了,? 然而,并沒有完,。因為,,這才是講了某一個月的月歷制作,還不具有通用性,,不能計算任意月份的月歷叫什么萬年歷呢,? 細心的同學(xué)也許已經(jīng)看出了我們前面提到單元格D16和E16了,年份在任意的年份,,月份只能在1-12之間輸入,,為了偷懶,不想動鍵盤輸入,,鼠標點點就出效果,,可以嗎? 來,,一起往下走… 我們點擊鼠標來改變相應(yīng)單元格的值這樣的動作叫做“驅(qū)動”,,點擊控件改變數(shù)值稱之為“控件驅(qū)動數(shù)值”,。 10、插入年份控件,。點擊EXCEL主界面“開發(fā)工具”選項卡內(nèi)“控件”組內(nèi)的“插入”項,,在彈出的菜單中點擊“表單控件”下的“數(shù)值調(diào)節(jié)鈕”,移動鼠標到單元格D16附近,,此時光標變?yōu)楹谏犹枺聪率髽水嫵鲆粔K矩形,,松開鼠標,,點擊“開發(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)的“插入”項,,在彈出的菜單中點擊“表單控件”下的“按鈕”,,移動鼠標到單元格H16附近(圖七之1、2),,此時光標變?yōu)楹谏犹?,按下鼠標畫出一塊矩形,松開鼠標,,彈出“指定宏”對話框,,注意“宏名”中“按鈕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) --我的excel界面上,,沒有“開發(fā)工具”選項卡,怎么辦,?看文章最后啊> |
|