【文章內(nèi)容簡(jiǎn)介】 ncel Then Exit Sub Call runtimer 39。如果用戶沒(méi)有選擇取消就再次調(diào)用 Runtimer End Sub 以上只是兩個(gè)簡(jiǎn)單的例子，有興趣的話，可以利用 這個(gè)函數(shù)寫出更多更有用的定時(shí)程序。 Sub Show_my_msg() msg = MsgBox(現(xiàn)在是 17:00:00 ！ , vbInformation, 自定義信息 ) End Sub Excel 97 里的 自動(dòng)保存宏 ,在這里定時(shí) 5 秒出現(xiàn)一次 Sub auto_open() MsgBox 歡迎你，在這篇文檔里，每 5 秒出現(xiàn)一次保存的提示！ , vbInformation, 請(qǐng)注意！ Call runtimer 39。打開文檔時(shí)自動(dòng)運(yùn)行 End Sub Sub runtimer() 第 7 頁(yè) 共 93 頁(yè) 7 Now + TimeValue(00:00:05), saveit 39。 Now + TimeValue(00:15:00) 指定在當(dāng)前時(shí)間過(guò) 5 秒鐘開始運(yùn)行 Saveit 這個(gè)過(guò)程。 End Sub 個(gè)人主頁(yè)： 接上面 6 Excel 最重要的應(yīng)用就是利用公式進(jìn)行計(jì)算。無(wú)論輸入是純粹的數(shù)字運(yùn)算，還是引用其他單元格計(jì)算，只要在一個(gè)單元格中輸入公式，就能得到結(jié)果。這個(gè)直接顯示結(jié)果的設(shè)計(jì)對(duì)于絕大多數(shù)場(chǎng)合來(lái)說(shuō)都是適用的，但某些情況下就不那么讓人滿意了。比如說(shuō)在做工程施工的預(yù)結(jié)算編寫，使用 Excel，既要寫出工程量的計(jì)算式，也要看到它的結(jié)果，于是這樣相同的公式在 Excel里面要填兩次，一次在文本格式的單元格中輸入公式，一次是在數(shù)據(jù)格式的單元格中輸入公式讓 Excel計(jì)算結(jié)果。如何既能看到公式又能看到結(jié)果呢？這 個(gè)問(wèn)題筆者認(rèn)為可以從兩個(gè)方面考慮：一種方法是所謂“已知結(jié)果，顯示公式”，先在數(shù)據(jù)格式單元格中輸入公式讓 Excel計(jì)算結(jié)果，然后在相鄰的單元格中看到公式；另一種方法所謂“已知公式，顯示結(jié)果”，就是先在一個(gè)文本格式的單元格中輸入公式，在相鄰的單元格中看到結(jié)果?！镆阎Y(jié)果，顯示公式 假設(shè) C列為通過(guò)公式計(jì)算得到的結(jié)果（假設(shè) C1 為“ =A1+B1”，或者直接是數(shù)字運(yùn)算“ =2+3” )，而相鄰的 D列是你需要顯示公式的地方（即 D1 應(yīng)該顯示為“ =A1+B1”或者“ =2+3”）。 1. 打開“工具”菜單選擇“選項(xiàng)”命令，出現(xiàn)“選 項(xiàng)”對(duì)話框。 2. 在“常規(guī)”選項(xiàng)卡中，選中“ R1C1引用方式”選項(xiàng)。 3. 定義名稱，將“引用位置”由“ =(6,Sheet1!RC[1])”即可。這里的 RC[1]含義是如果在當(dāng)前單元格的同行前一列單元格中有公式結(jié)果，則在當(dāng)前單元格中得到公式內(nèi)容，即在含公式結(jié)果單元格的同行后一列單元格顯示公式內(nèi)容；如果將 RC[1]改為 RC[1]，則在公式結(jié)果的同行前一列單元格顯示公式內(nèi)容。 4. 如果“引用位置”中含有“ RC[1]”，則在含公式結(jié)果單元格的同行后一列單元格中輸入“ =FormulaofResult”即可得到公式；如果“引用位置”中含有“ RC[1]”，則在含公式結(jié)果單元格的同行前一列單元格中輸入“ =FormulaofResult”即可得到公式。 提示：如果想要在含公式結(jié)果單元格的同行后數(shù)第 2 列中顯示公式內(nèi)容，則需要把“引用位置”中的“ RC － 1 ”改為“ RC － 2 ”。 ★已知公式，顯示結(jié)果 假設(shè) C列為輸入的沒(méi)有等號(hào)公式（假設(shè) C1 為“ A1+B1” )，而相鄰的 D列是你需要存放公式計(jì)算結(jié)果的地方（即 D1 顯示 A1和 B1 單元格相加的結(jié)果）。 1. 選中 D1，然后打開“插入”菜單選擇“名稱”命令中的 “定義”子命令，出現(xiàn)“定義名稱”對(duì)話框。 2. 在“在當(dāng)前工作表中的名稱”輸入欄中輸入定義的名稱“ ResultofFomula”，在下方的“引用位置”編輯欄中輸入“ =EVALUATE(Sheet1!C1)”，單擊 [確認(rèn) ]按鈕退出。 3. 在 D1 中輸入“ =ResultofFomula”，然后選中按住右下角的填充柄向下拉動(dòng)填充即可。 提示： EVALUATE 是 Eexcel 4． 0 版的宏表函數(shù)， Excel 2020 和 Excel 2020 中還支持，但只可用于名稱定義中。 4. 填充后要按 [F9]進(jìn)行重算，如果 C列的公式有改動(dòng)，也需要及時(shí)按 [F9]進(jìn)行重算。 巧施妙計(jì)，就能讓公式和結(jié)果在 Excel中和平共處了，你也試試吧。 6 Microsoft Excel是一款功能非常強(qiáng)大的電子表格軟件。它可以輕松地完成數(shù)據(jù)的各類數(shù)學(xué)運(yùn)算，并用各種二維或三維圖形形象地表示出來(lái)，從而大大簡(jiǎn)化了數(shù)據(jù)的處理工作。但若僅利用 Excel 的常用功能來(lái)處理較復(fù)雜的數(shù)據(jù)，可能仍需進(jìn)行大量的人工操作。但 Excel 的強(qiáng)大遠(yuǎn)遠(yuǎn)超過(guò)人們的想象 宏的引入使其具有 了無(wú)限的擴(kuò)展性，因而可以很好地解決復(fù)雜數(shù)據(jù)的處理問(wèn)題。 隨著支持 Windows 的應(yīng)用程序的不斷增多和功能的不斷增強(qiáng)，越來(lái)越多的程序增加了宏處理來(lái)方便用戶的自由擴(kuò)展。但初期各應(yīng)用程序所采用的宏語(yǔ)言并不統(tǒng)一，這樣用戶每使用一種應(yīng)用程序時(shí)都得重新學(xué)習(xí)一種宏語(yǔ)言。為了統(tǒng)一各種應(yīng)用程序下的宏， Microsoft推出了 VBA（ Visual Basic for Applications）語(yǔ)言。 VBA 是從流行的 Visual Basic 編程語(yǔ)言中派生出來(lái)的一種面向應(yīng)用程序的語(yǔ)言，它適用于各種Windows應(yīng)用程序，可以解決 各應(yīng)用程序的宏語(yǔ)言不統(tǒng)一的問(wèn)題。除此之外，使用 VBA語(yǔ)言還有如下優(yōu)點(diǎn)： VBA是一種通用程序語(yǔ)言，通過(guò)它不僅可以共享 Microsoft相關(guān)的各種軟件（如 Excel、Word、 Access）??，而且隨著其它的一些軟件（如大名鼎鼎的 AutoCAD2020）等對(duì) VBA的支持，這些軟件也已進(jìn)入到了 VBA 的控制范圍； 可以將用 VBA 編寫的程序復(fù)制到 Visual Basic 中調(diào)試并運(yùn)行，從而實(shí)現(xiàn)用 Visual Basic來(lái)控制有關(guān)的應(yīng)用程序； VBA提供的大量?jī)?nèi)部函數(shù)大大簡(jiǎn)化了用戶的操作。 對(duì)于而今的宏，不僅語(yǔ) 言統(tǒng)一規(guī)范，而且其功能也已非常強(qiáng)大。但在大多數(shù)介紹 Excel的 傻瓜書、 指南 、 入門與提高 等參考書中往往略過(guò)不提，或淺淺帶過(guò)，讀者從中獲得的有關(guān)知識(shí)往往不足以應(yīng)付處理復(fù)雜數(shù)據(jù)的需求。為了完成工作，就讓我們一起來(lái)學(xué)習(xí) 宏 的妙用吧。 一 )、宏的自學(xué) 首先需要明確的是，本文不可能教會(huì)您關(guān)于宏的所有內(nèi)容。您需要學(xué)會(huì)利用 錄制宏 的方法來(lái)學(xué)習(xí)宏：點(diǎn)擊 Excel工具 下拉菜單中 宏 下 ?quot。錄制新宏 ，此后可象平時(shí)一樣進(jìn)行有關(guān)操作，待完成后停止錄制。然后再點(diǎn)擊 工具 下拉菜單中 宏 下 宏 的 編輯 選項(xiàng)即可打開剛才所錄制的宏的 Visual Basic源程序，并且可以在此時(shí)的 幫助 下拉菜單中獲得有關(guān)的編程幫助。對(duì)錄制宏進(jìn)行修改不僅可以學(xué)習(xí)宏的使用，還能大大簡(jiǎn)化宏的編寫。 二 )、基本概念 為了學(xué)習(xí) Excel中的宏，我們需要先了解以下一些基本概念。 工作簿： Workbooks、 Workbook、 ActiveWorkbook、 ThisWorkbook Workbooks集合包含 Excel中所有當(dāng)前打開的 Excel工作簿，亦即所有打開的 Excel文件； Workbook對(duì)應(yīng) Workbooks中的成員，即其中 的 Excel文件； ActiveWorkbook代表當(dāng)前處于活動(dòng)狀態(tài)的工作簿，即當(dāng)前顯示的 Excel文件； ThisWorkbook代表其中有 Visual Basic代碼正在運(yùn)行的工作簿。 在具體使用中可用 Workbooks(index)來(lái)引用 Workbook對(duì)象，其中 index為工作簿名稱或編號(hào)；如Workbooks(1)、 Workbooks(年度報(bào)表 .xls)。而編號(hào)按照創(chuàng)建或打開工作簿的順序來(lái)確定，第一個(gè)打開的工作簿編號(hào)為 1，第二個(gè)打開的工作簿為 2??。 工作表： Worksheets、 Worksheet、 ActiveSheet Worksheets集合包含工作簿中所有的工作表，即一個(gè) Excel文件中的所有數(shù)據(jù)表頁(yè)；而 Worksheet第 8 頁(yè) 共 93 頁(yè) 8 則代表其中的一個(gè)工作表； ActiveSheet代表當(dāng)前處于的活動(dòng)狀態(tài)工作表，即當(dāng)前顯示的一個(gè)工作表。 可用 Worksheets(index)來(lái)引用 Worksheet 對(duì)象，其中 index 為工作表名稱或索引號(hào)；如Worksheets(1)、 Worksheets(第一季度數(shù)據(jù) )。工作表索引號(hào)表明該工作表在工作表標(biāo)簽中的位置：第一個(gè)（最左邊的）工作表的索引號(hào)為 1，最后一個(gè)（ 最右邊的）為 。需要注意的是：在使用過(guò)程中 Excel 會(huì)自動(dòng)重排工作表索引號(hào)，保持按照其在工作表標(biāo)簽中的從左至右排列，工作表的索引號(hào)遞增。因此，由于可能進(jìn)行的工作表添加或刪除，工作表索引號(hào)不一定始終保持不變。 圖表： Chart 、 Charts、 ChartObject、 ChartObjects、 ActiveChart Chart 代表工作簿中的圖表。該圖表既可為嵌入式圖表（包含在 ChartObject 中），也可為一個(gè)分開的（單獨(dú)的）圖表工作表。 Charts 代表指定工作簿或活動(dòng) 工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或?qū)υ捒蚓庉嫳碇械膱D表。使用 Charts(index) 可引用單個(gè) Chart圖表，其中 index是該圖表工作表的索引號(hào)或名稱；如 Charts(1)、 Charts(銷售圖表 )。圖表工作表的索引號(hào)表示圖表工作表在工作簿的工作表標(biāo)簽欄上的位置。 Charts(1)是工作簿中第一個(gè)（最左邊的）圖表工作表；Charts()為最后一個(gè)（最右邊的）圖表工作表。 ChartObject代表工作表中的嵌入式圖表，其作用是作為 Chart對(duì)象的容器。利 用 ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。 ChartObjects 代表指定的圖表工作表、對(duì)話框編輯表或工作表上所有嵌入式圖表的集合?？捎蒀hartObjects(index)引用單個(gè) ChartObject，其中 index 為嵌入式圖表的編號(hào)或名稱。如Worksheets(Sheet1).ChartObjects(1)、 Worksheets(sheet1).ChartObjects(chart1)分別對(duì)應(yīng) Sheet1工作表中的第一個(gè)嵌入式圖表、以及名為 Chart1的嵌 入式圖表。 ActiveChart可以引用活動(dòng)狀態(tài)下的圖表，不論該圖表是圖表工作表，或嵌入式圖表。而對(duì)于圖表工作表為活動(dòng)工作表時(shí)，還可以通過(guò) ActiveSheet屬性引用之。 單元格： Cells、 ActiveCell、 Range、 Areas Cells(row,column)代表單個(gè)單元格，其中 row 為行號(hào)， column 為列號(hào)。如可以用 Cells(1,1)、Cells(10,4)來(lái)引用 A D10 單元格。 ActiveCell代表活動(dòng)工作表的活動(dòng)單元格，或指定工作表的活動(dòng)單元格。 Range代表 工作表中的某一單元格、某一行、某一列、某一選定區(qū)域（該選定區(qū)域可包含一個(gè)或若干連續(xù)單元格區(qū)域）或者某一三維區(qū)域。 可用 Range(arg)來(lái)引用單元格或單元格區(qū)域，其中 arg 可為單元格號(hào)、單元格號(hào)范圍、單元格區(qū)域名稱。如 Range(A5)、 Range(A1:H8)、 Range(Criteria)。雖然可用 Range(A1)返回單元格 A1，但用 Cells 更方便，因?yàn)榇藭r(shí)可用變量指定行和列。 可將 Range 與 Cells 結(jié)合起來(lái)使用，如 Range(Cells(1,1),Cells(10,10))代 表單元格區(qū)域A1:J10；而 (row,column)返回單元格區(qū)域中的一部分，其中 expression是返回 Range 的 表 達(dá) 式 ， row 和 column 為 相 對(duì) 于 該 區(qū) 域 的 左 上 角 偏 移 量 。 如 由Range(C5:C10).Cells(1,1)引用單元格 C5。 Areas為選定區(qū)域內(nèi)的連續(xù)單元格塊的集合，其成員是 Range對(duì)象。而其中的每個(gè) Range對(duì)象代表選定區(qū)域內(nèi)與其它部分相分離的一個(gè)連續(xù)單元格塊。某些操作不能在選定區(qū)域內(nèi)的多個(gè)單元格塊上同時(shí)執(zhí)行；必須在選定區(qū)域內(nèi)的單元格塊數(shù) 上循環(huán)，對(duì)每個(gè)單獨(dú)的單元格塊分別執(zhí)行該操作。此時(shí)，可用 Areas(index)從集合中返回單個(gè) Range對(duì)象，其中 index為單元格塊編號(hào)；如 Areas(1)。 行與列： Rows、 Columns、 Row、 Column Rows、 Columns分別代表活動(dòng)工作表、單元格區(qū)域范圍 Range、指定工作表中的所有行數(shù)、列數(shù)。對(duì)于一個(gè)多選單元格區(qū)域范圍 Range的 Rows、 Columns，只返回該范圍中第一個(gè)區(qū)域的行數(shù)、列數(shù)。例如，如果 Range對(duì)象有兩個(gè)區(qū)域（ areas） A1:B2和 C3:D4， 返回 2 而不是 4。 可通過(guò) Rows(行號(hào) )、 Columns(列號(hào) )來(lái)引用相應(yīng)的行與列；如 Rows(3)、 Columns(4)分別對(duì)應(yīng)第三行、 D 列。 利用 Rows、 Column可以獲得區(qū)域中第一塊的第一行行號(hào)、第一列列號(hào)，所得值均以十進(jìn)制數(shù)表示