如何用EXCEL表格制作日歷

1、用EXCEL制作一份萬年歷 今天我們介紹用Excel制作萬年歷的方法。這個(gè)萬年歷可以顯示當(dāng)月的月歷，還可以隨意查閱任何日期所屬的月歷，非常方便。如果你愿意，還可以讓它在特殊的日子里顯示不同的提醒文字，一起來試試吧！本文所涉及到的函數(shù)有：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,lo

2、gical2, .) 1、啟動(dòng)EXCEL2003，新建一個(gè)工作表，取名保存（如萬年歷.xls），并在相應(yīng)的單元格中，輸入如圖1所示的文本。2、同時(shí)選中B1、C1、D1單元格，按“格式”工具欄上的“合并及居中”按鈕，將其合并成一個(gè)單元格，并輸入公式：=TODAY（）。 選中B1（合并后的）單元格，執(zhí)行“格式單元格”命令，打開“單元格格式”對話框（如圖2），在“數(shù)字”標(biāo)簽中的“分類”下面選中“日期”選項(xiàng)，再在右側(cè)“類型”下面選中“二一年三月十四日”選項(xiàng)，“確定”退出，將日期設(shè)置成中文形式。注意：TODAY（）函數(shù)用于提取當(dāng)前系統(tǒng)日期，請將系統(tǒng)日期一定要調(diào)整準(zhǔn)確喲。 3、選中F1單元格，輸入公式：=

3、IF(WEEKDAY(B1,2)=7,"日",WEEKDAY(B1,2)；選中H1單元格，輸入公式：=NOW（）。選中F1單元格，打開“單元格格式”對話框，在“數(shù)字”標(biāo)簽中的“分類”下面選中“特殊”選項(xiàng)，再在右側(cè)“類型”下面選中“中文小寫數(shù)字”選項(xiàng)，“確定”退出，將“星期數(shù)”設(shè)置成中文小寫形式；選中H1單元格，打開“單元格格式”對話框，在“數(shù)字”標(biāo)簽中的“分類”下面選中“時(shí)間”選項(xiàng)，再在右側(cè)“類型”下面選中一款時(shí)間格式，“確定”退出。注意：上述前面一個(gè)公式的含義是：如果（IF）當(dāng)前日期（B1）是星期“7”（WEEKDAY(B1,2)=7），則在F1單元格中顯示“日”，否則，

4、直接顯示出星期的數(shù)值（WEEKDAY(B1,2)）。上述第二個(gè)函數(shù)（NOW（）用于提取當(dāng)前系統(tǒng)日期和時(shí)間，也請將系統(tǒng)日期和時(shí)間調(diào)整準(zhǔn)確。4、在I1、I2單元格分別輸入1900、1901，然后同時(shí)選中I1、I2單元格，用“填充柄”向下拖拉至I151單元格，輸入19002050年份序列。同樣的方法，在J1至J12單元格中輸入112月份序列。5、選中D13單元格，執(zhí)行“數(shù)據(jù)有效性”命令，打開“數(shù)據(jù)有效性”對話框（如圖3），按“允許”右側(cè)的下拉按鈕，選中“序列”選項(xiàng)，在“來源”下面的方框輸入：=$I$1:$I$151，“確定”退出。同樣的操作，將F15單元格數(shù)據(jù)有效性設(shè)置為“=$J$1:$J$12”序

5、列。 注意：經(jīng)過這樣的設(shè)置以后，當(dāng)我們選中D15（或F15）單元格時(shí)，在單元格右側(cè)出現(xiàn)一個(gè)下拉按鈕，按此下拉按鈕，即可選擇年份（或月份）數(shù)值，快速輸入需要查詢的年、月值。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)，用于獲取查詢“月份”所對應(yīng)的天數(shù)（28、29、30、31）。注意：上述函數(shù)的含義是：如果查詢“月份”為“2月”（F

6、13=2）時(shí)，并且“年份”數(shù)能被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天。其他月份天數(shù)為31天。7、選中B2單元格，輸入公式：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=B3,1,0)。再次選中B2單元格，用“填充柄”將上述公式復(fù)制到C2H2單元格中。注意：上述B2公式的含義是：如果“查

7、詢年月”的第1天是星期“7”（WEEKDAY(DATE)($D$13,$F$13,1),2)=B3）時(shí)，在該單元格顯示“1”，反之顯示“0”），為“查詢年月”獲取一個(gè)對照值，為下面制作月歷做準(zhǔn)備。上述C2H2單元條中公式的含義與B2相似。在用拖拉法復(fù)制公式時(shí)，公式“絕對引用”的單元格（加了“$”號的，如“$D$13”等）不會(huì)發(fā)生改變，而“相對引用”的單元格（沒有加“$”號的，如“B3”等），則會(huì)智能化地發(fā)生變化，例如在E2單元格中，“B3”變成了“E3”，整個(gè)公式成為：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=E3,1,0)。8、選中B6單元格，輸入公式：=IF(B

8、2=1,1,0)。選中B7單元格，輸入公式：=H6+1。用“填充柄”將B7單元格中的公式復(fù)制到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單元格中的公式復(fù)制到D6H6單元格中。選中C7單元格，輸入公式：=B7+1。用“填充柄”將C7單元格中的公式復(fù)制到C8、C9單元格中。同時(shí)選中C7C9單元格，用“填充柄”將其中的公式復(fù)制到D7H9單元格中。選中C10單元格

9、，輸入公式：=IF(B11>=$A$2,0,IF(B11>0,B11+1,IF(C6=1,1,0)。用“填充柄”將C10單元格中的公式復(fù)制到D10H10單元格和C11單元格中。至此，整個(gè)萬年歷（其實(shí)沒有萬年，只有從19002050的151年）制作完成。下面，我們一起來將其裝飾一下。9、選中相應(yīng)的單元格，利用工具欄上的相應(yīng)按鈕，設(shè)置好字體、字號、字符顏色等。選中相應(yīng)的單元格，打開“單元格格式”對話框，在“對齊”標(biāo)簽下，設(shè)置好單元格中文本的對齊方式（通常情況下，垂直對齊可以一次性設(shè)置為“居中”，水平“對齊”根據(jù)具體情況設(shè)置）。同時(shí)選中I列和J列，右擊鼠標(biāo)，選“隱藏”選項(xiàng)，將相應(yīng)的列隱藏

10、起來，使得界面更加友好。用同樣的方法，將第2和第3行也隱藏起來。10、選中B5H11單元格區(qū)域，打開“單元格格式”對話框，進(jìn)入“邊框”標(biāo)簽，選擇好“顏色、樣式”，并“預(yù)置”好邊框范圍，然后“確定”退出，為月歷加上邊框。11、執(zhí)行“工具選項(xiàng)”命令，打開“選項(xiàng)”對話框（如圖4），在“視圖”標(biāo)簽下（通常是默認(rèn)標(biāo)簽），清除“零值”和“網(wǎng)格線”復(fù)選框中的“”號，“確定”退出，讓“零值”和“網(wǎng)格線”不顯示出來。12、將B14H14和B15H15單元格分別合并成一個(gè)單元格，并在B14和B15單元格中輸入公式：=IF(AND(MONTH(D1)=1,DAY(D1)=1),"新的新氣象！加油呀！&qu

11、ot;,IF(AND(MONTH(D1)=3,DAY(D1)=8),"向女同胞們致敬！",IF(AND(MONTH(D1)=5,DAY(D1)=1),"勞動(dòng)最光榮",IF(AND(MONTH(D1)=5,DAY(D1)=4),"青年是祖國的棟梁",IF(AND(MONTH(D1)=6,DAY(D1)=1),"原天下所有的兒童永遠(yuǎn)快樂",0)和=IF(AND(MONTH(D1)=7,DAY(D1)=1),"黨的恩情永不忘",IF(AND(MONTH(D1)=8,DAY(D1)=1),"提

12、高警惕，保衛(wèi)祖國！",IF(AND(MONTH(D1)=9,DAY(D1)=10),"老師，您辛苦了！",IF(AND(MONTH(D1)=10,DAY(D1)=1),"祝我們偉大的祖國繁榮富強(qiáng)",0)。 設(shè)置好B14和B15單元格的字體、字號、字符顏色。注意：上述公式的含義是：如果當(dāng)前日期逢到相關(guān)的節(jié)日（如“元旦”等），則在B14或B15單元格顯示出相應(yīng)的祝福語言（如“新的新氣象！加油呀！”，參見圖5）。由于IF函數(shù)只能嵌套7層，而節(jié)日數(shù)量超過7個(gè)（我們這里給出了9個(gè)），因此，我們用兩個(gè)單元格來顯示。 13、執(zhí)行“格式工作表背景”命令，打開“

13、工作表背景”對話框（如圖6），選擇一張合適的圖片后，按“插入”按鈕，將其襯于工作表文字下面。14、在按住“Ctrl”鍵的同時(shí)，單擊D13和F13單元格，同時(shí)選中兩個(gè)單元格，開“單元格格式”對話框，切換“保護(hù)”標(biāo)簽（如圖7），清除“鎖定”前面復(fù)選框中的“”號，“確定”退出。 15、執(zhí)行“工具保護(hù)保護(hù)工作表”命令，打開“保護(hù)工作表”對話框（如圖8），兩次輸入密碼后，確定退出。注意：經(jīng)過這樣的設(shè)置后，整個(gè)工作表中除了D13和F13單元格中的內(nèi)容可以改變外，其它單元格中的內(nèi)容均不能改變，保證了萬年歷的使用可靠性。 在VB中操縱Excel 一Excel對象模塊 Application 對象 | 集合 -

14、 |-Assistant |-Addins(Addin) |-AutoComect |-OLEDBErrors |-Debug |-CommandBars(CommandBar) |-VBE |-Dialogs(Dialog) |-WorksheetFunction |-RecentFilds(RecentFile) |-DefaultWebOptions |-Windows(Window) |-LanguageSettings |-Workbooks(Workbook) |-Filesearch |-Names(name) |-AnswerWizard |-ODBCErrors 最上層的Ap

15、plication是指整個(gè)應(yīng)用程序，其中最常用到的Workbooks代表活頁簿集合，在其后的括號內(nèi)的Workbook是指一個(gè)工作簿。 在VB中要打開Excel，首先要引用Microsoft Excel 9.0(或8.0）Object Lobrary。 打開的步驟是：（1）定義兩個(gè)變量，數(shù)據(jù)類型指定為Excel.ApplicationExcel.Workbook. (2)激活Excel應(yīng)用程序。（3）打開工作簿(我們假設(shè)在當(dāng)前路徑下有一個(gè)工作簿students.xls）。 代碼如下： Option Explicit Public appExcel As Excel.Application Pub

16、lic wbExcel As Excel.Workbook Private Sub Setup_Excel_object() Set appExcel = CreateObject("excel.application") Set wbExcel = appExcel.Workbooks.Open(App.Path & "students.xls") appExcel.Visible = True '使對象可見 End Sub 二工作表對象Worksheet Workbooks對象有一個(gè)集合對象工作表Worksheets,，用來放工作表相

17、關(guān)的資料。 Workbooks(workbook) 對象 | 集合 - |-HTMLProjcet |-Publishobjects |-RoutingSlip |-DocumentProperties |-Areas |-Worksheets |-WebOptions |-Names |-VBProject |-CustomViews |-CommandBars |-PivotCaches |-Windows |-Styles |-Charts 調(diào)用方法是聲明一個(gè)工作表變量，用For-Each循環(huán)方式可以讀取集合對象Workbooks里的所有工作表名。 代碼如下： Dim temp As E

18、xcel.Worksheet For Each temp In wbExcel.Worksheets 'wbExcel是上面代碼中聲明的Workbook FORM1.Combo1.AddItem temp.Name Next 三讀取工作表某個(gè)選取范圍的內(nèi)容。 要讀取工作表某個(gè)范圍單元格，可先定義一個(gè)Excel范圍對象變量，然后使用Rows或Columns函數(shù)指定某行或某列的范圍，范圍單元格（Cells)地址以目前被選取范圍為基準(zhǔn)。具體方法如下： （1）設(shè)置工作表對象變量操作哪個(gè)工作表； （2）選取工作表的某行或某列； （3）在上面的選取范圍內(nèi)讀取某個(gè)單元格內(nèi)容。 代碼如下： Dim T

19、empsheet As Excel.Worksheet '定義Excel工作表 Dim TempRange As Excel.Range '定義Excel工作表范圍變量 '第一步：選取工作表Sheet1 Set Tempsheet = appExcel.Worksheets("sheet1") '第二步：選取第二行(以這行為第一行） Set TempRange = Tempsheet.Rows(2) '第三步：讀取范圍內(nèi)第一行第二列的單元格 Text1.Text = TempRange.Cells(1, 2) 四其他 用TempRan

20、ge.Find("").Column方法可以查找目前范圍內(nèi)第一行的第一個(gè)空白單元格 如何實(shí)現(xiàn)VB與EXCEL的無縫連接 2003-02-17· ·吳剛··yesky VB是常用的應(yīng)用軟件開發(fā)工具之一，由于VB的報(bào)表功能有限，而且一但報(bào)表格式發(fā)生變化，就得相應(yīng)修改程序，給應(yīng)用軟件的維護(hù)工作帶來極大的不便。因此有很多程序員現(xiàn)在已經(jīng)充分利用EXECL的強(qiáng)大報(bào)表功來實(shí)現(xiàn)報(bào)表功能。但由于VB與EXCEL由于分別屬于不同的應(yīng)用系統(tǒng)，如何把它們有機(jī)地結(jié)合在一起，是一個(gè)值得我們研究的課題。一、 VB讀寫EXCEL表：VB本身提自動(dòng)化功能可以讀寫EXC

21、EL表，其方法如下：1、在工程中引用Microsoft Excel類型庫：從"工程"菜單中選擇"引用"欄；選擇Microsoft Excel 9.0 Object Library（EXCEL2000），然后選擇"確定"。表示在工程中要引用EXCEL類型庫。2、在通用對象的聲明過程中定義EXCEL對象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令：Set xlApp =

22、 CreateObject("Excel.Application") '創(chuàng)建EXCEL對象Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經(jīng)存在的EXCEL工件簿文件xlApp.Visible = True '設(shè)置EXCEL對象可見（或不可見）Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動(dòng)工作表xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值xlSheet.PrintOut &

23、#39;打印工作表xlBook.Close (True) '關(guān)閉工作簿xlApp.Quit '結(jié)束EXCEL對象Set xlApp = Nothing '釋放xlApp對象xlBook.RunAutoMacros (xlAutoOpen) '運(yùn)行EXCEL啟動(dòng)宏xlBook.RunAutoMacros (xlAutoClose) '運(yùn)行EXCEL關(guān)閉宏 4、在運(yùn)用以上VB命令操作EXCEL表時(shí)，除非設(shè)置EXCEL對象不可見，否則VB程序可繼續(xù)執(zhí)行其它操作，也能夠關(guān)閉EXCEL，同時(shí)也可對EXCEL進(jìn)行操作。但在EXCEL操作過程中關(guān)閉EXCEL對象時(shí)，V

24、B程序無法知道，如果此時(shí)使用EXCEL對象，則VB程序會(huì)產(chǎn)生自動(dòng)化錯(cuò)誤。形成VB程序無法完全控制EXCEL的狀況，使得VB與EXCEL脫節(jié)。二、 EXCEL的宏功能：EXCEL提供一個(gè)Visual Basic編輯器，打開Visual Basic編輯器，其中有一工程屬性窗口，點(diǎn)擊右鍵菜單的"插入模塊"，則增加一個(gè)"模塊1"，在此模塊中可以運(yùn)用Visual Basic語言編寫函數(shù)和過程并稱之為宏。其中，EXCEL有兩個(gè)自動(dòng)宏：一個(gè)是啟動(dòng)宏（Sub Auto_Open()），另一個(gè)是關(guān)閉宏（Sub Auto_Close()）。它們的特性是：當(dāng)用EXCEL打含有

25、啟動(dòng)宏的工簿時(shí)，就會(huì)自動(dòng)運(yùn)行啟動(dòng)宏，同理，當(dāng)關(guān)閉含有關(guān)閉宏的工作簿時(shí)就會(huì)自動(dòng)運(yùn)行關(guān)閉宏。但是通過VB的自動(dòng)化功能來調(diào)用EXCEL工作表時(shí)，啟動(dòng)宏和關(guān)閉宏不會(huì)自動(dòng)運(yùn)行，而需要在VB中通過命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 來運(yùn)行啟動(dòng)宏和關(guān)閉宏。三、 VB與EXCEL的相互勾通：充分利用EXCEL的啟動(dòng)宏和關(guān)閉宏，可以實(shí)現(xiàn)VB與EXCEL的相互勾通，其方法如下：在EXCEL的啟動(dòng)宏中加入一段程序，其功能是在磁盤中寫入一個(gè)標(biāo)志文件，同時(shí)在關(guān)閉宏中加入一段刪除此標(biāo)志文件的程序。VB程序在執(zhí)行時(shí)通過

26、判斷此標(biāo)志文件存在與否來判斷EXCEL是否打開，如果此標(biāo)志文件存在，表明EXCEL對象正在運(yùn)行，應(yīng)該禁止其它程序的運(yùn)行。如果此標(biāo)志文件不存在，表明EXCEL對象已被用戶關(guān)閉，此時(shí)如果要使用EXCEL對象運(yùn)行，必須重新創(chuàng)建EXCEL對象。四、舉例：1、在VB中，建立一個(gè)FORM，在其上放置兩個(gè)命令按鈕，將ommand1的Caption屬性改為EXCEL，Command2的Caption屬性改為End。然后在其中輸入如下程序：Dim xlApp As Excel.Application '定義EXCEL類 Dim xlBook As Excel.Workbook '定義工件簿類Di

27、m xlsheet As Excel.Worksheet '定義工作表類 Private Sub Command1_Click() '打開EXCEL過程If Dir("D:tempexcel.bz") = "" Then '判斷EXCEL是否打開Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL應(yīng)用類xlApp.Visible = True '設(shè)置EXCEL可見Set xlBook = xlApp.Workbooks.Open("

28、;D:tempbb.xls") '打開EXCEL工作簿Set xlsheet = xlBook.Worksheets(1) '打開EXCEL工作表xlsheet.Activate '激活工作表xlsheet.Cells(1, 1) = "abc" '給單元格1行駛列賦值xlBook.RunAutoMacros (xlAutoOpen) 運(yùn)行EXCEL中的啟動(dòng)宏ElseMsgBox ("EXCEL已打開") End IfEnd SubPrivate Sub Command2_Click()If Dir("

29、D:tempexcel.bz") <> "" Then '由VB關(guān)閉EXCEL xlBook.RunAutoMacros (xlAutoClose) '執(zhí)行EXCEL關(guān)閉宏xlBook.Close (True) '關(guān)閉EXCEL工作簿xlApp.Quit '關(guān)閉EXCELEnd IfSet xlApp = Nothing '釋放EXCEL對象EndEnd Sub 2、在盤根目錄上建立一個(gè)名為Temp的子目錄，在Temp目錄下建立一個(gè)名為"bb.xls"的EXCEL文件。3、在"bb.

30、xls"中打開Visual Basic編輯器，在工程窗口中點(diǎn)鼠標(biāo)鍵選擇插入模塊，在模塊中輸入入下程序存盤：Sub auto_open()Open "d:tempexcel.bz" For Output As #1 '寫標(biāo)志文件Close #1End SubSub auto_close()Kill "d:tempexcel.bz" '刪除標(biāo)志文件End Sub 4、運(yùn)行VB程序，點(diǎn)擊EXCEL按鈕可以打開EXCEL系統(tǒng)，打開EXCEL系統(tǒng)后，VB程序和EXCEL分別屬兩個(gè)不同的應(yīng)用系統(tǒng)，均可同時(shí)進(jìn)行操作，由于系統(tǒng)加了判斷，因此在V

31、B程序中重復(fù)點(diǎn)擊EXCEL按鈕時(shí)會(huì)提示EXCEL已打開。如果在EXCEL中關(guān)閉EXCEL后再點(diǎn)EXCEL按鈕，則會(huì)重新打開EXCEL。而無論EXCEL打開與否，通過VB程序均可關(guān)閉EXCEL。這樣就實(shí)現(xiàn)了VB與EXCEL的無縫連接。 Excel制作獎(jiǎng)金計(jì)算表2006年08月16日 03:52:06 陳秀峰    源碼下載某公司規(guī)定：一個(gè)月獎(jiǎng)金基數(shù)為300元，病假1天扣15元，事假一天扣30元，曠工一天扣60元，扣完為止。使用這個(gè)獎(jiǎng)金計(jì)算表時(shí)，只要將員工的出勤情況記錄在表中，該員工的獎(jiǎng)金將自動(dòng)計(jì)算出來，兼有考勤和計(jì)算獎(jiǎng)金兩種功能。自動(dòng)統(tǒng)計(jì)表做好以后還可以保存成模板，以便以后使用。本文所涉及到的Excel函數(shù)有： 1、COUNTIF(Range,Criteria) 2、MONTH(serial_number) 3、TODAY()注意：圖中符號的含義是：B表示病假，S表示事假，G表示曠工，Q表示出勤，J表示法定休息日。 1、啟動(dòng)Excel2003，按照圖1所示的樣式，制作一張二維表格，并填入相關(guān)文本。 2、將A1至BM1單元格合并成一個(gè)單元格后，輸入表格標(biāo)題（如“曉