如何用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,logical2

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

3、kday(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í)間格式，“確定”退出。注意：上述前面一個(gè)公式的含義是：如果（if）當(dāng)前日期（b1）是星期“7”（weekday(b1,2)=7），則在f1單元格中顯示“日”，否則，直接顯示出星期的數(shù)值（weekday

4、(b1,2)）。上述第二個(gè)函數(shù)（now（）用于提取當(dāng)前系統(tǒng)日期和時(shí)間，也請(qǐng)將系統(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ù)有效性”對(duì)話框（如圖3），按“允許”右側(cè)的下拉按鈕，選中“序列”選項(xiàng)，在“來源”下面的方框輸入：=$i$1:$i$151，“確定”退出。同樣的操作，將f15單元格數(shù)據(jù)有效性設(shè)置為“=$j$1:$j$12”序列。 注意：經(jīng)過這樣的設(shè)置以后，當(dāng)我

5、們選中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/100int(d13/100),29,28),if(or(f13=4,f13=6,f13=9,f13=11),30,31)，用于獲取查詢“月份”所對(duì)應(yīng)的天數(shù)（28、29、30、31）。注意：上述函數(shù)的含義是：如果查詢“月份”為“2月”（f13=2）時(shí)，并且“年份”數(shù)能被400整除d13/4

6、00=int(d13/400)，或者（or）“年份”能被4整除，但不能被100整除and(d13/4=int(d13/4),d13/100int(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公式的含義是：如果“查詢年月”的第1天是星期“7”（weekday(date)($d$13

7、,$f$13,1),2)=b3）時(shí)，在該單元格顯示“1”，反之顯示“0”），為“查詢年月”獲取一個(gè)對(duì)照值，為下面制作月歷做準(zhǔn)備。上述c2h2單元條中公式的含義與b2相似。在用拖拉法復(fù)制公式時(shí)，公式“絕對(duì)引用”的單元格（加了“$”號(hào)的，如“$d$13”等）不會(huì)發(fā)生改變，而“相對(duì)引用”的單元格（沒有加“$”號(hào)的，如“b3”等），則會(huì)智能化地發(fā)生變化，例如在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。用“填充柄”

8、將b7單元格中的公式復(fù)制到b8、b9單元格中。分別選中b10、b11單元格，輸入公式：=if(h9=a2,0,h9+1)和=if(h10=a2,0,if(h100,h10+1,0)。選中c6單元格，輸入公式：=if(b60,b6+1,if(c2=1,1,0)。用“填充柄”將c6單元格中的公式復(fù)制到d6h6單元格中。選中c7單元格，輸入公式：=b7+1。用“填充柄”將c7單元格中的公式復(fù)制到c8、c9單元格中。同時(shí)選中c7c9單元格，用“填充柄”將其中的公式復(fù)制到d7h9單元格中。選中c10單元格，輸入公式：=if(b11=$a$2,0,if(b110,b11+1,if(c6=1,1,0)。用“

9、填充柄”將c10單元格中的公式復(fù)制到d10h10單元格和c11單元格中。至此，整個(gè)萬年歷（其實(shí)沒有萬年，只有從19002050的151年）制作完成。下面，我們一起來將其裝飾一下。9、選中相應(yīng)的單元格，利用工具欄上的相應(yīng)按鈕，設(shè)置好字體、字號(hào)、字符顏色等。選中相應(yīng)的單元格，打開“單元格格式”對(duì)話框，在“對(duì)齊”標(biāo)簽下，設(shè)置好單元格中文本的對(duì)齊方式（通常情況下，垂直對(duì)齊可以一次性設(shè)置為“居中”，水平“對(duì)齊”根據(jù)具體情況設(shè)置）。同時(shí)選中i列和j列，右擊鼠標(biāo)，選“隱藏”選項(xiàng)，將相應(yīng)的列隱藏起來，使得界面更加友好。用同樣的方法，將第2和第3行也隱藏起來。10、選中b5h11單元格區(qū)域，打開“單元格格式”對(duì)

10、話框，進(jìn)入“邊框”標(biāo)簽，選擇好“顏色、樣式”，并“預(yù)置”好邊框范圍，然后“確定”退出，為月歷加上邊框。11、執(zhí)行“工具選項(xiàng)”命令，打開“選項(xiàng)”對(duì)話框（如圖4），在“視圖”標(biāo)簽下（通常是默認(rèn)標(biāo)簽），清除“零值”和“網(wǎng)格線”復(fù)選框中的“”號(hào)，“確定”退出，讓“零值”和“網(wǎng)格線”不顯示出來。12、將b14h14和b15h15單元格分別合并成一個(gè)單元格，并在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)=

11、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),提高警惕，保衛(wèi)祖國！,if(and(month(d1)=9,day(d1)=10),老師，您辛苦了！,if(and(month(d1)=10,day(d1)=1),祝我們偉大的祖國繁榮富強(qiáng),0)。 設(shè)置好b14和b15單元格的字體、字號(hào)、字符顏色。注意：上述公式的含義是：如

12、果當(dāng)前日期逢到相關(guān)的節(jié)日（如“元旦”等），則在b14或b15單元格顯示出相應(yīng)的祝福語言（如“新的新氣象！加油呀！”，參見圖5）。由于if函數(shù)只能嵌套7層，而節(jié)日數(shù)量超過7個(gè)（我們這里給出了9個(gè)），因此，我們用兩個(gè)單元格來顯示。 13、執(zhí)行“格式工作表背景”命令，打開“工作表背景”對(duì)話框（如圖6），選擇一張合適的圖片后，按“插入”按鈕，將其襯于工作表文字下面。14、在按住“ctrl”鍵的同時(shí)，單擊d13和f13單元格，同時(shí)選中兩個(gè)單元格，開“單元格格式”對(duì)話框，切換“保護(hù)”標(biāo)簽（如圖7），清除“鎖定”前面復(fù)選框中的“”號(hào)，“確定”退出。 15、執(zhí)行“工具保護(hù)保護(hù)工作表”命令，打開“保護(hù)工作表”對(duì)

13、話框（如圖8），兩次輸入密碼后，確定退出。注意：經(jīng)過這樣的設(shè)置后，整個(gè)工作表中除了d13和f13單元格中的內(nèi)容可以改變外，其它單元格中的內(nèi)容均不能改變，保證了萬年歷的使用可靠性。 在vb中操縱excel 一excel對(duì)象模塊 application 對(duì)象 | 集合 - |-assistant |-addins(addin) |-autocomect |-oledberrors |-debug |-commandbars(commandbar) |-vbe |-dialogs(dialog) |-worksheetfunction |-recentfilds(recentfile) |-defa

14、ultweboptions |-windows(window) |-languagesettings |-workbooks(workbook) |-filesearch |-names(name) |-answerwizard |-odbcerrors 最上層的application是指整個(gè)應(yīng)用程序，其中最常用到的workbooks代表活頁簿集合，在其后的括號(hào)內(nèi)的workbook是指一個(gè)工作簿。 在vb中要打開excel，首先要引用microsoft excel 9.0(或8.0）object lobrary。 打開的步驟是：（1）定義兩個(gè)變量，數(shù)據(jù)類型指定為excel.applicatio

15、nexcel.workbook. (2)激活excel應(yīng)用程序。（3）打開工作簿(我們假設(shè)在當(dāng)前路徑下有一個(gè)工作簿students.xls）。 代碼如下： option explicit public appexcel as excel.application public wbexcel as excel.workbook private sub setup_excel_object() set appexcel = createobject(excel.application) set wbexcel = appexcel.workbooks.open(app.path & student

16、s.xls) appexcel.visible = true 使對(duì)象可見 end sub 二工作表對(duì)象worksheet workbooks對(duì)象有一個(gè)集合對(duì)象工作表worksheets,，用來放工作表相關(guān)的資料。 workbooks(workbook) 對(duì)象 | 集合 - |-htmlprojcet |-publishobjects |-routingslip |-documentproperties |-areas |-worksheets |-weboptions |-names |-vbproject |-customviews |-commandbars |-pivotcaches |

17、-windows |-styles |-charts 調(diào)用方法是聲明一個(gè)工作表變量，用for-each循環(huán)方式可以讀取集合對(duì)象workbooks里的所有工作表名。 代碼如下： dim temp as excel.worksheet for each temp in wbexcel.worksheets wbexcel是上面代碼中聲明的workbook form1.combo1.additem temp.name next 三讀取工作表某個(gè)選取范圍的內(nèi)容。 要讀取工作表某個(gè)范圍單元格，可先定義一個(gè)excel范圍對(duì)象變量，然后使用rows或columns函數(shù)指定某行或某列的范圍，范圍單元格（cel

18、ls)地址以目前被選取范圍為基準(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工作表范圍變量 第一步：選取工作表sheet1 set tempsheet = appexcel.worksheets(sheet1) 第二步：選取第二行(以這行為第一行） set temprange = tempsheet.rows(2) 第三步：讀取范圍

19、內(nèi)第一行第二列的單元格 text1.text = temprange.cells(1, 2) 四其他 用temprange.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讀寫e

20、xcel表：vb本身提自動(dòng)化功能可以讀寫excel表，其方法如下：1、在工程中引用microsoft excel類型庫：從工程菜單中選擇引用欄；選擇microsoft excel 9.0 object library（excel2000），然后選擇確定。表示在工程中要引用excel類型庫。2、在通用對(duì)象的聲明過程中定義excel對(duì)象：dim xlapp as excel.applicationdim xlbook as excel.workbookdim xlsheet as excel.worksheet 3、在程序中操作excel表常用命令：set xlapp = createobject

21、(excel.application) 創(chuàng)建excel對(duì)象set xlbook = xlapp.workbooks.open(文件名) 打開已經(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 釋放xla

22、pp對(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的狀況，使得vb與excel脫節(jié)。二、 excel的宏功能：excel提供一個(gè)visual basic

23、編輯器，打開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打含有啟動(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)和

24、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í)通過判斷此標(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

25、中，建立一個(gè)form，在其上放置兩個(gè)命令按鈕，將ommand1的caption屬性改為excel，command2的caption屬性改為end。然后在其中輸入如下程序：dim xlapp as excel.application 定義excel類 dim xlbook as excel.workbook 定義工件簿類dim xlsheet as excel.worksheet 定義工作表類 private sub command1_click() 打開excel過程if dir(d:tempexcel.bz) = then 判斷excel是否打開set xlapp = createobjec

26、t(excel.application) 創(chuàng)建excel應(yīng)用類xlapp.visible = true 設(shè)置excel可見set xlbook = 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

27、subprivate sub command2_click()if dir(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對(duì)象endend sub 2、在盤根目錄上建立一個(gè)名為temp的子目錄，在temp目錄下建立一個(gè)名為bb.xls的excel文件。3、在bb.xls中打開visual basic編輯器，在工程窗口中點(diǎn)鼠標(biāo)鍵選

28、擇插入模塊，在模塊中輸入入下程序存盤：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)加了判斷，因此在vb程序中重復(fù)點(diǎn)擊excel按鈕時(shí)會(huì)提示excel已打開。如果在excel中關(guān)閉excel后再點(diǎn)excel按鈕，則會(huì)重新打開excel。而無論exc

29、el打開與否，通過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()注意：圖中符號(hào)的含義是：b表示病假，s表示事假，g表示曠工，q表示出勤，j表示法定休息日。 1、啟動(dòng)excel2003