如何用EXCEL表格制作日歷

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

2、 .)1、啟動(dòng)EXCEL2003，新建一個(gè)工作表，取名保存(如萬年歷.xls)，并在相應(yīng)的單元格中，輸入如圖1所示的文本。1ABCDFG星期北京時(shí)間2311234545星期日星期一星期二星期三星期四星期五星期六678g10111213査詢年月L"年月2、同時(shí)選中B1、C1、D1單元格，按 格式”工具欄上的 合并及居中”按鈕，將其合并成一個(gè)單元格，并輸入公式：=TODAY （）。選中B1 （合并后的）單元格，執(zhí)行 格式t單元格”命令，打開 單元格格式”對(duì)話框（如 圖2）,在 數(shù)字”標(biāo)簽中的 分類”下面選中 日期”選項(xiàng)，再在右側(cè) 類型”下面選中 二0（一年 三月十四日”選項(xiàng)，確定”退出，

3、將日期設(shè)置成中文形式。注意：TODAY （）函數(shù)用于提取當(dāng)前系統(tǒng)日期，請(qǐng)將系統(tǒng)日期一定要調(diào)整準(zhǔn)確喲。3、選中 F1 單元格，輸入公式：=IF(WEEKDAY(B1,2)=7," 日 ”,WEEKDAY(B1,2);選中H1單元格，輸入公式：=NOW ()。選中F1單元格，打開 單元格格式”對(duì)話框，在 數(shù)字”標(biāo)簽中的 分類”下面選中 特殊” 選項(xiàng)，再在右側(cè) 類型”下面選中 中文小寫數(shù)字”選項(xiàng)，確定”退出，將 星期數(shù)”設(shè)置成中文 小寫形式；選中H1單元格，打開 單元格格式”對(duì)話框，在 數(shù)字”標(biāo)簽中的 分類”下面選中 時(shí) 間”選項(xiàng)，再在右側(cè) 類型”下面選中一款時(shí)間格式， 確定”退出。注意：

4、上述前面一個(gè)公式的含義是：如果(IF)當(dāng)前日期(B1)是星期“7”(WEEKDAY(B1,2)=7 )，則在F1單元格中顯示 日”，否則，直接顯示出星期的數(shù)值(WEEKDAY(B1,2)。上述第二個(gè)函數(shù)(NOW()用于提取當(dāng)前系統(tǒng)日期和時(shí)間，也請(qǐng)將系統(tǒng)日期和時(shí)間調(diào)整準(zhǔn)確。4、在I1、12單元格分別輸入1900、1901，然后同時(shí)選中I1、I2單元格，用 填充柄”向下拖拉至1151單元格，輸入1900 2050年份序列。同樣的方法，在J1至J12單元格中輸入112月份序列。5、選中D13單元格，執(zhí)行數(shù)據(jù)t有效性”命令，打開 數(shù)據(jù)有效性”對(duì)話框(如圖3),按允許”右側(cè)的下拉按鈕，選中序列”選項(xiàng)，在

5、 來源”下面的方框輸入：=$1$1:$1$151 ,確定"退出。數(shù)據(jù)有效性同樣的操作，將F15單元格數(shù)據(jù)有效性設(shè)置為“ =$J$1:$J$12序列。注意：經(jīng)過這樣的設(shè)置以后，當(dāng)我們選中D15 (或F15)單元格時(shí)，在單元格右側(cè)出現(xiàn)一個(gè)下拉按鈕，按此下拉按鈕，即可選擇年份(或月份)數(shù)值，快速輸入需要查詢的年、 月值。6、選中A2單元格(不一定非得是A2喲)，輸入公式：=IF(F13=2,IFQR(D13/400=INT(D13/400),AND(D13/4=INT(D13/4),D13/100<>INT(D13/100) ,29,28),IF(OR(F13=4,F13=6,

6、F13=9,F13=11),30,31)，用于獲取查詢 月份”所對(duì)應(yīng)的天數(shù)(28、29、 30、 31)。注意：上述函數(shù)的含義是：如果查詢?cè)路荨睘椤?月”(F13=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(WEEK

7、DAY(DATE($D$13,$F$13,1),2)=B3,1,0) 。再 次選中B2單元格，用 填充柄”將上述公式復(fù)制到 C2 H2單元格中。注意：上述B2公式的含義是：如果查詢年月”的第1天是星期“7”(WEEKDAY(DATE)($D$13,$F$13,1),2)=B3)時(shí)，在該單元格顯示“1,反之顯示 “0)，為查詢年月”獲取一個(gè)對(duì)照值，為下面制作月歷做準(zhǔn)備。 上述C2 H2單元條中公式的含義與B2相似。 在用拖拉法復(fù)制公式時(shí)，公式 絕對(duì)引用”的單元格(加了 “$號(hào)的，如“$D$13等) 不會(huì)發(fā)生改變，而 相對(duì)引用”的單元格(沒有加 “$號(hào)的，如“B3等)，則會(huì)智能化地發(fā)生 變化，例如

8、在E2單元格中，“B3變成了 “E3”整個(gè)公式成為：=IF(WEEKDAY(DATE($D$13,$F$13,1),2)=E3,1,0)。8、 選中B6單元格，輸入公式： =IF(B2=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ù)制到 D6 H6單元格

9、中。選中C7單元格，輸入公式：=B7+1。用填充柄”將C7單元格中的公式復(fù)制到C8、C9單元格中。同時(shí)選中C7C9單元格，用 填充柄”將其中的公式復(fù)制到D7 H9單元格中。選中 C10 單元格，輸入公式： =IF(B11>=$A$2,0,IF(B11>0,B11+1,IF(C6=1,1,0)。用 填 充柄”將C10單元格中的公式復(fù)制到D10 H10單元格和C11單元格中。下面，我們一起來將其裝飾一下。9、選中相應(yīng)的單元格，利用工具欄上的相應(yīng)按鈕，設(shè)置好字體、字號(hào)、字符顏色等。選中相應(yīng)的單元格，打開單元格格式”對(duì)話框，在 對(duì)齊”標(biāo)簽下，設(shè)置好單元格中文本的對(duì)齊方式（通常情況下，垂直對(duì)

10、齊可以一次性設(shè)置為居中”水平對(duì)齊”根據(jù)具體情況設(shè)置）。同時(shí)選中I列和J列，右擊鼠標(biāo)，選 隱藏”選項(xiàng)，將相應(yīng)的列隱藏起來，使得界面更加 友好。用同樣的方法，將第 2和第3行也隱藏起來。10、選中B5 H11單元格區(qū)域，打開 單元格格式”對(duì)話框，進(jìn)入 邊框”標(biāo)簽，選擇好 顏 色、樣式”，并預(yù)置”好邊框范圍，然后 確定”退出，為月歷加上邊框。11、 執(zhí)行 工具t選項(xiàng)”命令，打開 選項(xiàng)”對(duì)話框（如圖4）,在 視圖”標(biāo)簽下（通常是 默認(rèn)標(biāo)簽），清除 零值”和 網(wǎng)格線”復(fù)選框中的V”號(hào)，確定”退出，讓 零值”和 網(wǎng)格線” 不顯示出來?；貐^(qū)選項(xiàng)12、將B14 H14和B15 H15單元格分別合并成一個(gè)單元格

11、，并在B14和B15單元格中輸入公式： =IF(AND(M0NTH(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),"=IF(AND(MONTH(D1)=7,DAY(D1)=1),"",IF(AND(MONTH(D1)=

12、8,DAY(D1)=1),"",IF(AND(MONTH(D1)=9,DAY(D1)=10),"",IF(AND(MONTH(D1)=10,DAY(D1)=1),"向女同胞們致敬！勞動(dòng)最光榮青年是祖國的棟梁原天下所有的兒童永遠(yuǎn)快樂",0)和黨的恩情永不忘提高警惕，保衛(wèi)祖國！老師，您辛苦了！祝我們偉大的祖國繁榮富強(qiáng)",0)。設(shè)置好B14和B15單元格的字體、字號(hào)、字符顏色。注意：上述公式的含義是：如果當(dāng)前日期逢到相關(guān)的節(jié)日(如元旦”等)，則在B14，參見圖5)?；駼15單元格顯示出相應(yīng)的祝福語言(如新的新氣象！加油呀!二00齊

13、斗-J（汀>-i北京時(shí)闔-2QBJ3星期日星期一星期二星期三；星期四星期五星期六12356789 io J11121314151617181| 19202122232425|! 2627232930311；|I1査詢年月2003$12月新年新乞衾！加3磅！由于IF函數(shù)只能嵌套7層，而節(jié)日數(shù)量超過 7個(gè)（我們這里給出了 9個(gè)），因此，我們用兩個(gè)單元格來顯示。13、執(zhí)行 格式t工作表t背景”命令，打開 工作表背景”對(duì)話框（如圖6），選擇一張合適的圖片后，按 插入”按鈕，將其襯于工作表文字下面。格格式”對(duì)話框，切換 保護(hù)”標(biāo)簽（如圖7），清除 鎖定”前面復(fù)選框中的 V”號(hào)，確定”退出。15、執(zhí)

14、行 工具t保護(hù)t保護(hù)工作表”命令，打開 保護(hù)工作表”對(duì)話框（如圖8）,兩次 輸入密碼后，確定退出。傑護(hù)工件敎區(qū)E f呆護(hù)工作表及鎖定的單元格內(nèi)容忑 取洎工作袤保護(hù)時(shí)便用的密碼世）:痘審肅*雋*Ar1J 定 確 I注意：經(jīng)過這樣的設(shè)置后，整個(gè)工作表中除了 D13和F13單元格中的內(nèi)容可以改變外,其它單元格中的內(nèi)容均不能改變，保證了萬年歷的使用可靠性。在 VB 中操縱 Excel一 Excel 對(duì)象模塊Application 對(duì)象 |Assistant|AutoComect|Debug|VBE|WorksheetFunction|DefaultWebOptions|LanguageSettings

15、|Filesearch|AnswerWizard集合集合|Addins(Addin)|OLEDBErrors|CommandBars(CommandBar)|Dialogs(Dialog)|RecentFilds(RecentFile)|Windows(Window)|Workbooks(Workbook)|Names(name)|ODBCErrors最上層的 Application 是指整個(gè)應(yīng)用程序，其中最常用到的 Workbooks 代表活頁簿集合，在 其后的括號(hào)內(nèi)的 Workbook 是指一個(gè)工作簿。在 VB 中要打開 Excel ，首先要引用 Microsoft Excel 9.0(

16、或 8.0 )Object Lobrary 。 打開的步驟是： ( 1)定義兩個(gè)變量，數(shù)據(jù)類型指定為Excel.Application Excel.Workbook.(2)激活 Excel 應(yīng)用程序。( 3)打開工作簿 (我們假設(shè)在當(dāng)前路徑下有一個(gè)工作簿students.xls)。代碼如下：Option ExplicitPublic appExcel As Excel.ApplicationPublic wbExcel As Excel.WorkbookPrivate Sub Setup_Excel_object()Set appExcel = CreateObject("excel

17、.application")Set wbExcel = appExcel.Workbooks.Open(App.Path & "students.xls") appExcel.Visible = True ' 使對(duì)象可見End Sub工作表對(duì)象 WorksheetWorkbooks對(duì)象有一個(gè)集合對(duì)象工作表 Worksheets,用來放工作表相關(guān)的資料。Workbooks(workbook)對(duì)象|HTMLProjcet|RoutingSlip|Areas|WebOptions|VBProject|集合|Publishobjects|DocumentP

18、roperties|Worksheets|Names|CustomViews|CommandBars|PivotCaches|Windows|Styles|Charts調(diào)用方法是聲明一個(gè)工作表變量，用 For-Each 循環(huán)方式可以讀取集合對(duì)象 Workbooks 里的所有工作表名。代碼如下：Dim temp As Excel.WorksheetFor Each temp In wbExcel.Worksheets 'wbExcel 是上面代碼中聲明的 Workbook FORM1.Combo1.AddItem temp.NameNext三讀取工作表某個(gè)選取范圍的內(nèi)容。要讀取工作表某個(gè)

19、范圍單元格，可先定義一個(gè) Excel 范圍對(duì)象變量，然后使用 Rows 或 Columns 函數(shù)指定某行或某列的范圍，范圍單元格（ Cells） 地址以目前被選取范圍為基準(zhǔn)。 具體方法如下：（1）設(shè)置工作表對(duì)象變量操作哪個(gè)工作表； （2）選取工作表的某行或某列；（3）在上面的選取范圍內(nèi)讀取某個(gè)單元格內(nèi)容。代碼如下：Dim Tempsheet As Excel.Worksheet ' 定義 Excel 工作表Dim TempRange As Excel.Range ' 定義 Excel 工作表范圍變量'第一步：選取工作表 Sheet1Set Tempsheet = app

20、Excel.Worksheets("sheet1")'第二步：選取第二行 （以這行為第一行）Set TempRange = Tempsheet.Rows(2)'第三步：讀取范圍內(nèi)第一行第二列的單元格Text1.Text = TempRange.Cells（1, 2）四其他用 TempRange.Find（""）.Column 方法可以查找目前范圍內(nèi)第一行的第一個(gè)空白單元格如何實(shí)現(xiàn) VB 與 EXCEL 的無縫連接2003-02-17 吳剛 yeskyVB 是常用的應(yīng)用軟件開發(fā)工具之一，由于 VB 的報(bào)表功能有限，而且一但報(bào)表格式發(fā) 生變化

21、， 就得相應(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)化功能可以讀寫 EXCEL 表，其方法如下：1、在工程中引用 Microsoft Excel 類型庫：從"工程"菜單中選擇 "引用"欄；選擇 Microsoft Excel 9.0 Object Library (EXCEL2000 )， 然后選擇 "

22、;確定 "。表示在工程中要引用 EXCEL 類型庫。2、在通用對(duì)象的聲明過程中定義 EXCEL 對(duì)象：Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet3、在程序中操作 EXCEL 表常用命令：Set xlApp = CreateObject("Excel.Application") ' 創(chuàng)建 EXCEL 對(duì)象Set xlBook = xlApp.Workbooks.Open(" 文件名 ") ' 打

23、開已經(jīng)存在的 EXCEL 工件簿文件 xlApp.Visible = True ' 設(shè)置 EXCEL 對(duì)象可見(或不可見)Set xlSheet = xlBook.Worksheets(" 表名 ") ' 設(shè)置活動(dòng)工作表 xlSheet.Cells(row, col) = 值 '給單元格( row,col )賦值 xlSheet.PrintOut ' 打印工作表 xlBook.Close (True) ' 關(guān)閉工作簿 xlApp.Quit ' 結(jié)束 EXCEL 對(duì)象Set xlApp = Nothing ' 釋放 xl

24、App 對(duì)象 xlBook.RunAutoMacros (xlAutoOpen) ' 運(yùn)行 EXCEL 啟動(dòng)宏 xlBook.RunAutoMacros (xlAutoClose) ' 運(yùn)行 EXCEL 關(guān)閉宏4、在運(yùn)用以上 VB 命令操作 EXCEL 表時(shí)，除非設(shè)置 EXCEL 對(duì)象不可見，否則 VB 程 序可繼續(xù)執(zhí)行其它操作，也能夠關(guān)閉 EXCEL ，同時(shí)也可對(duì) EXCEL 進(jìn)行操作。但在 EXCEL 操作過程中關(guān)閉 EXCEL 對(duì)象時(shí)， VB 程序無法知道， 如果此時(shí)使用 EXCEL 對(duì)象， 則 VB 程 序會(huì)產(chǎn)生自動(dòng)化錯(cuò)誤。形成 VB 程序無法完全控制 EXCEL 的狀

25、況，使得 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)宏( SubAuto_Open() )，另一個(gè)是關(guān)閉宏( Sub Auto_Close() )。它們的特性是：當(dāng)用 EXCEL 打含有 啟動(dòng)宏的工簿時(shí)， 就會(huì)自動(dòng)運(yùn)行啟動(dòng)宏， 同理， 當(dāng)關(guān)閉含有

26、關(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í)通過判

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

28、kbook ' 定義工件簿類Dim 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 xlB

29、ook = xlApp.Workbooks.Open("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

30、 SubPrivate Sub Command2_Click()If Dir("D:tempexcel.bz") <> "" Then ' 由 VB 關(guān)閉 EXCELxlBook.RunAutoMacros (xlAutoClose) ' 執(zhí)行 EXCEL 關(guān)閉宏 xlBook.Close (True) ' 關(guān)閉 EXCEL 工作簿 xlApp.Quit ' 關(guān)閉 EXCELEnd IfSet xIApp = Nothing '釋放 EXCEL 對(duì)象EndEnd Sub2、 在D盤根目錄上建立一個(gè)名為T

31、emp的子目錄，在Temp目錄下建立一個(gè)名為"bb.xls" 的EXCEL文件。3、在"bb.xls"中打開Visual Basic編輯器，在工程窗口中點(diǎn)鼠標(biāo)鍵選擇插入模塊，在模 塊中輸入入下程序存盤：Sub auto_ope n()Open "d:tempexcel.bz" For Output As #1 '寫標(biāo)志文件Close #1End SubSub auto_close()Kill "d:tempexcel.bz"'刪除標(biāo)志文件End Sub4、運(yùn)行VB程序，點(diǎn)擊EXCEL按鈕可以打開 E

32、XCEL系統(tǒng)，打開EXCEL系統(tǒng)后，VB 程序和EXCEL分別屬兩個(gè)不同的應(yīng)用系統(tǒng)，均可同時(shí)進(jìn)行操作，由于系統(tǒng)加了判斷，因此 在VB程序中重復(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()I； 荒応岡公司考明工奕"仝鼻注意：圖中符號(hào)的含義是：B表示病假，S表示事假，G表示曠工，Q表示出勤，J表示法定休息日。1、啟動(dòng)Excel2003，按照?qǐng)D1所示的樣式，制作一張二維表格，并填入相關(guān)文本。2、 將A1至BM1單元