如何用EXCEL表格制作日歷

用EXCEL制作一份萬年歷今天我們介紹用Excel制作萬年歷的方法。這個萬年歷可以顯示當(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,logical2,...)1、啟動EXCEL2003，新建一個工作表，取名保存（如萬年歷.xls），并在相應(yīng)的單元格中，輸入如圖1所示的文本。2、同時選中B1、C1、D1單元格，按“格式”工具欄上的“合并及居中”按鈕，將其合并成一個單元格，并輸入公式：=TODAY（）。選中B1（合并后的）單元格，執(zhí)行“格式→單元格”命令，打開“單元格格式”對話框（如圖2），在“數(shù)字”標(biāo)簽中的“分類”下面選中“日期”選項，再在右側(cè)“類型”下面選中“二○○一年三月十四日”選項，“確定”退出，將日期設(shè)置成中文形式。注意：TODAY（）函數(shù)用于提取當(dāng)前系統(tǒng)日期，請將系統(tǒng)日期一定要調(diào)整準確喲。至此，整個萬年歷（其實沒有萬年，只有從1900—2050的151年）制作完成。下面，我們一起來將其裝飾一下。9、選中相應(yīng)的單元格，利用工具欄上的相應(yīng)按鈕，設(shè)置好字體、字號、字符顏色等。選中相應(yīng)的單元格，打開“單元格格式”對話框，在“對齊”標(biāo)簽下，設(shè)置好單元格中文本的對齊方式（通常情況下，垂直對齊可以一次性設(shè)置為“居中”，水平“對齊”根據(jù)具體情況設(shè)置）。同時選中I列和J列，右擊鼠標(biāo)，選“隱藏”選項，將相應(yīng)的列隱藏起來，使得界面更加友好。用同樣的方法，將第2和第3行也隱藏起來。10、選中B5—H11單元格區(qū)域，打開“單元格格式”對話框，進入“邊框”標(biāo)簽，選擇好“顏色、樣式”，并“預(yù)置”好邊框范圍，然后“確定”退出，為月歷加上邊框。11、執(zhí)行“工具→選項”命令，打開“選項”對話框（如圖4），在“視圖”標(biāo)簽下（通常是默認標(biāo)簽），清除“零值”和“網(wǎng)格線”復(fù)選框中的“∨”號，“確定”退出，讓“零值”和“網(wǎng)格線”不顯示出來。12、將B14—H14和B15—H15單元格分別合并成一個單元格，并在B14和B15單元格中輸入公式：=IF(AND(MONTH(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),"原天下所有的兒童永遠快樂",0)))))和=IF(AND(MONTH(D1)=7,DAY(D1)=1),"黨的恩情永不忘",IF(AND(MONTH(D1)=8,DAY(D1)=1),"提高警惕，保衛(wèi)祖國！",IF(AND(MONTH(D1)=9,DAY(D1)=10),"老師，您辛苦了！",IF(AND(MONTH(D1)=10,DAY(D1)=1),"祝我們偉大的祖國繁榮富強",0))))。設(shè)置好B14和B15單元格的字體、字號、字符顏色。注意：上述公式的含義是：如果當(dāng)前日期逢到相關(guān)的節(jié)日（如“元旦”等），則在B14或B15單元格顯示出相應(yīng)的祝福語言（如“新的新氣象！加油呀！”，參見圖5）。由于IF函數(shù)只能嵌套7層，而節(jié)日數(shù)量超過7個（我們這里給出了9個），因此，我們用兩個單元格來顯示。13、執(zhí)行“格式→工作表→背景”命令，打開“工作表背景”對話框（如圖6），選擇一張合適的圖片后，按“插入”按鈕，將其襯于工作表文字下面。14、在按住“Ctrl”鍵的同時，單擊D13和F13單元格，同時選中兩個單元格，開“單元格格式”對話框，切換“保護”標(biāo)簽（如圖7），清除“鎖定”前面復(fù)選框中的“∨”號，“確定”退出。15、執(zhí)行“工具→保護→保護工作表”命令，打開“保護工作表”對話框（如圖8），兩次輸入密碼后，確定退出。注意：經(jīng)過這樣的設(shè)置后，整個工作表中除了D13和F13單元格中的內(nèi)容可以改變外，其它單元格中的內(nèi)容均不能改變，保證了萬年歷的使用可靠性。在VB中操縱Excel一．Excel對象模塊Application對象|集合----------------------------------|-----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最上層的Application是指整個應(yīng)用程序，其中最常用到的Workbooks代表活頁簿集合，在其后的括號內(nèi)的Workbook是指一個工作簿。在VB中要打開Excel，首先要引用MicrosoftExcel9.0(或8.0）ObjectLobrary。打開的步驟是：（1）定義兩個變量，數(shù)據(jù)類型指定為Excel.Application．Excel.Workbook.(2)激活Excel應(yīng)用程序。（3）打開工作簿(我們假設(shè)在當(dāng)前路徑下有一個工作簿students.xls）。代碼如下：OptionExplicitPublicappExcelAsExcel.ApplicationPublicwbExcelAsExcel.WorkbookPrivateSubSetup_Excel_object()SetappExcel=CreateObject("excel.application")SetwbExcel=appExcel.Workbooks.Open(App.Path&"\students.xls")appExcel.Visible=True'使對象可見EndSub二．工作表對象WorksheetWorkbooks對象有一個集合對象－－工作表Worksheets,，用來放工作表相關(guān)的資料。Workbooks(workbook)對象|集合－－－－－－－－－－－－------------|----HTMLProjcet|----Publishobjects|----RoutingSlip|----DocumentProperties|----Areas|----Worksheets|----WebOptions|----Names|----VBProject|----CustomViews|----CommandBars|----PivotCaches|----Windows|----Styles|----Charts調(diào)用方法是聲明一個工作表變量，用For-Each循環(huán)方式可以讀取集合對象Workbooks里的所有工作表名。代碼如下：DimtempAsExcel.WorksheetForEachtempInwbExcel.Worksheets'wbExcel是上面代碼中聲明的WorkbookFORM1.Combo1.AddItemtemp.NameNext三．讀取工作表某個選取范圍的內(nèi)容。要讀取工作表某個范圍單元格，可先定義一個Excel范圍對象變量，然后使用Rows或Columns函數(shù)指定某行或某列的范圍，范圍單元格（Cells)地址以目前被選取范圍為基準。具體方法如下：（1）設(shè)置工作表對象變量操作哪個工作表；（2）選取工作表的某行或某列；（3）在上面的選取范圍內(nèi)讀取某個單元格內(nèi)容。代碼如下：DimTempsheetAsExcel.Worksheet'定義Excel工作表DimTempRangeAsExcel.Range'定義Excel工作表范圍變量'第一步：選取工作表Sheet1SetTempsheet=appExcel.Worksheets("sheet1")'第二步：選取第二行(以這行為第一行）SetTempRange=Tempsheet.Rows(2)'第三步：讀取范圍內(nèi)第一行．第二列的單元格Text1.Text=TempRange.Cells(1,2)四．其他用TempRange.Find("").Column方法可以查找目前范圍內(nèi)第一行的第一個空白單元格如何實現(xiàn)VB與EXCEL的無縫連接2003-02-17··吳剛··yeskyVB是常用的應(yīng)用軟件開發(fā)工具之一，由于VB的報表功能有限，而且一但報表格式發(fā)生變化，就得相應(yīng)修改程序，給應(yīng)用軟件的維護工作帶來極大的不便。因此有很多程序員現(xiàn)在已經(jīng)充分利用EXECL的強大報表功來實現(xiàn)報表功能。但由于VB與EXCEL由于分別屬于不同的應(yīng)用系統(tǒng)，如何把它們有機地結(jié)合在一起，是一個值得我們研究的課題。一、VB讀寫EXCEL表：VB本身提自動化功能可以讀寫EXCEL表，其方法如下：1、在工程中引用MicrosoftExcel類型庫：從"工程"菜單中選擇"引用"欄；選擇MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后選擇"確定"。表示在工程中要引用EXCEL類型庫。2、在通用對象的聲明過程中定義EXCEL對象：DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkBookDimxlSheetAsExcel.Worksheet3、在程序中操作EXCEL表常用命令：SetxlApp=CreateObject("Excel.Application")'創(chuàng)建EXCEL對象SetxlBook=xlApp.Workbooks.Open("文件名")'打開已經(jīng)存在的EXCEL工件簿文件xlApp.Visible=True'設(shè)置EXCEL對象可見（或不可見）SetxlSheet=xlBook.Worksheets("表名")'設(shè)置活動工作表xlSheet.Cells(row,col)=值'給單元格（row,col）賦值xlSheet.PrintOut'打印工作表xlBook.Close(True)'關(guān)閉工作簿xlApp.Quit'結(jié)束EXCEL對象SetxlApp=Nothing'釋放xlApp對象xlBook.RunAutoMacros(xlAutoOpen)'運行EXCEL啟動宏xlBook.RunAutoMacros(xlAutoClose)'運行EXCEL關(guān)閉宏4、在運用以上VB命令操作EXCEL表時，除非設(shè)置EXCEL對象不可見，否則VB程序可繼續(xù)執(zhí)行其它操作，也能夠關(guān)閉EXCEL，同時也可對EXCEL進行操作。但在EXCEL操作過程中關(guān)閉EXCEL對象時，VB程序無法知道，如果此時使用EXCEL對象，則VB程序會產(chǎn)生自動化錯誤。形成VB程序無法完全控制EXCEL的狀況，使得VB與EXCEL脫節(jié)。二、EXCEL的宏功能：EXCEL提供一個VisualBasic編輯器，打開VisualBasic編輯器，其中有一工程屬性窗口，點擊右鍵菜單的"插入模塊"，則增加一個"模塊1"，在此模塊中可以運用VisualBasic語言編寫函數(shù)和過程并稱之為宏。其中，EXCEL有兩個自動宏：一個是啟動宏（SubAuto_Open()），另一個是關(guān)閉宏（SubAuto_Close()）。它們的特性是：當(dāng)用EXCEL打含有啟動宏的工簿時，就會自動運行啟動宏，同理，當(dāng)關(guān)閉含有關(guān)閉宏的工作簿時就會自動運行關(guān)閉宏。但是通過VB的自動化功能來調(diào)用EXCEL工作表時，啟動宏和關(guān)閉宏不會自動運行，而需要在VB中通過命令xlBook.RunAutoMacros(xlAutoOpen)和xlBook.RunAutoMacros(xlAutoClose)來運行啟動宏和關(guān)閉宏。三、VB與EXCEL的相互勾通：充分利用EXCEL的啟動宏和關(guān)閉宏，可以實現(xiàn)VB與EXCEL的相互勾通，其方法如下：在EXCEL的啟動宏中加入一段程序，其功能是在磁盤中寫入一個標(biāo)志文件，同時在關(guān)閉宏中加入一段刪除此標(biāo)志文件的程序。VB程序在執(zhí)行時通過判斷此標(biāo)志文件存在與否來判斷EXCEL是否打開，如果此標(biāo)志文件存在，表明EXCEL對象正在運行，應(yīng)該禁止其它程序的運行。如果此標(biāo)志文件不存在，表明EXCEL對象已被用戶關(guān)閉，此時如果要使用EXCEL對象運行，必須重新創(chuàng)建EXCEL對象。四、舉例：1、在VB中，建立一個FORM，在其上放置兩個命令按鈕，將Ｃommand1的Caption屬性改為EXCEL，Command2的Caption屬性改為End。然后在其中輸入如下程序：DimxlAppAsExcel.Application'定義EXCEL類DimxlBookAsExcel.Workbook'定義工件簿類DimxlsheetAsExcel.Worksheet'定義工作表類PrivateSubCommand1_Click()'打開EXCEL過程IfDir("D:\temp\excel.bz")=""Then'判斷EXCEL是否打開SetxlApp=CreateObject("Excel.Application")'創(chuàng)建EXCEL應(yīng)用類xlApp.Visible=True'設(shè)置EXCEL可見SetxlBook=xlApp.Workbooks.Open("D:\temp\bb.xls")'打開EXCEL工作簿Setxlsheet=xlBook.Worksheets(1)'打開EXCEL工作表xlsheet.Activate'激活工作表xlsheet.Cells(1,1)="abc"'給單元格1行駛列賦值xlBook.RunAutoMacros(xlAutoOpen)運行EXCEL中的啟動宏ElseMsgBox("EXCEL已打開")EndIfEndSubPrivateSubCommand2_Click()IfDir("D:\temp\excel.bz")<>""Then'由VB關(guān)閉EXCELxlBook.RunAutoMacros(xlAutoClose)'執(zhí)行EXCEL關(guān)閉宏xlBook.Close(True)'關(guān)閉EXCEL工作簿xlApp.Quit'關(guān)閉EXCELEndIfSetxlApp=Nothing'釋放EXCEL對象EndEndSub2、在Ｄ盤根目錄上建立一個名為Temp的子目錄，在Temp目錄下建立一個名為"bb.xls"的EXCEL文件。3、在"bb.xls"中打開VisualBasic編輯器，在工程窗口中點鼠標(biāo)鍵選擇插入模塊，在模塊中輸入入下程序存盤：Subauto_open()Open"d:\temp\excel.bz"ForOutputAs#1'寫標(biāo)志文件Close#1EndSubSubauto_close()Kill"d:\temp\excel.bz"'刪除標(biāo)志文件EndSub4、運行VB程序，點擊EXCEL按鈕可以打開EXCEL系統(tǒng)，打開EXCEL系統(tǒng)后，VB程序和EXCEL分別屬兩個不同的應(yīng)用系統(tǒng)，均可同時進行操作，由于系統(tǒng)加了判斷，因此在VB程序中重復(fù)點擊EXCEL按鈕時會提示EXCEL已打開。如果在EXCEL中關(guān)閉EXCEL后再點EXCEL按鈕，則會重新打開EXCEL。而無論EXCEL打開與否，通過VB程序均可關(guān)閉EXCEL。這樣就實現(xiàn)了VB與EXCEL的無縫連接。Excel制作獎金計算表2006年08月16日03:52:06陳秀峰源碼下載某公司規(guī)定：一個月獎金基數(shù)為300元，病假1天扣15元，事假一天扣30元，曠工一天扣60元，扣完為止。使用這個獎金計算表時，只要將員工的出勤情況記錄在表中，該員工的獎金將自動計算出來，兼有考勤和計算獎金兩種功能。自動統(tǒng)計表做好以后還可以保存成模板，以便以后使用。本文所涉及到的Excel函數(shù)有：1、COUNTIF(Range,Criteria)2、MONTH(serial_number)3、TODAY()注意：圖中符號的含義是：B表示病假，S表示事假，G表示曠工，Q表示出勤，J表示法定休息日。1、啟動Excel2003，按照圖1所示的樣式，制作一張二維表格，并填入相關(guān)文本。2、將A1至BM1單元格合并成一個單元格后，輸入表格標(biāo)題（如“曉風(fēng)公司考勤及獎金表”），并設(shè)置好字體、字號等。3、將C2和D2單元格