1、VBAforEXCEL教程 VBAforEXCEL教程 VBA是什么 1.1 VBA是什么 直到90,使應用程序自動化還是充滿挑戰性的領域.對每個需要自動化的應 用程序,人們不得不學習一種不同的自動化語言.例如:可以用EXCEL的宏語言來 使EXCEL自動化,使用WORD BASIC使WORD自動化,等等.微軟決定讓它開發 出來的應用程序共享一種通用的自動化語言-Visual Basic For Application(VBA),可以認為VBA是非常流行的應用程序開發語言VASUAL BASIC 的子集.實際上VBA是寄生于VB應用程序的版本.VBA和VB的區別包括 如下幾個方面: 1. VB

2、是設計用于創建標準的應用程序,而VBA是使已有的應用程序(EXCEL 等)自動化 2. VB具有自己的開發環境,而VBA必須寄生于已有的應用程序. 3. 要運行VB開發的應用程序,用戶不必安裝VB,因為VB開發出的應用程序 是可執行文件(*.EXE),而VBA開發的程序必須依賴于它的父,例如EXCEL. 盡管存在這些不同,VBA和VB在結構上仍然十分相似.事實上,如果你已經了 解了VB,會發現學習VBA非常快.,學完VBA會給學習VB打下堅實的基礎.而且,當 學會在EXCEL中用VBA創建解決方案后,即已具備在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用V

3、BA創建解決方案的大部分知識. * VBA一個關鍵特征是你所學的知識在微軟的一些產品中可以相互轉化. * VBA可以稱作EXCEL的“遙控器”. VBA究竟是什么?更確切地講,它是一種自動化語言,它可以使常用的程序自 動化,可以創建自定義的解決方案. 此外,如果你愿意,還可以將EXCEL用做開發平臺實現應用程序. VBAforEXCEL教程 1.2 EXCEL環境中基于應用程序自動 化的優點 也許你想知道VBA可以干什么?使用VBA可以實現的功能包括: 1. 使重復的任務自動化. 2. 自定義EXCEL工具欄,菜單和界面. 3. 簡化模板的使用. 4. 自定義EXCEL,使其成為開發平臺. 5

4、. 創建報表. 6. 對數據進行復雜的操作和分析. 用EXCEL作為開發平臺有如下原因: 1. EXCEL本身功能強大,包括打印,文件處理,格式化和文本編輯. 2. EXCEL內置大量函數. 3. EXCEL界面熟悉. 4. 可連接到多種數據庫. 用其他語言開發應用程序,一半的工作是編寫一些基本功能的模塊,包 括文件的打開和保存,打印,復制等.而用EXCEL作為開發平臺,則由于 EXCEL已經具備這些基本功能,你要做的只是使用它. VBAforEXCEL教程 1.3 錄制簡單的宏 在介紹學習VBA之前，應該花幾分鐘錄制一個宏。 新術語：“宏”，指一系列EXCEL能夠執行的VBA語句。 以下將要

5、錄制的宏非常簡單，只是改變單元格顏色。請完成如下步驟： 1)打開新工作簿，確認其他工作簿已經關閉。 2)選擇A1單元格。調出“常用”工具欄。 3)選擇“工具”“宏”“錄制新宏”。 4)輸入“改變顏色”作為宏名替換默認宏名，單擊確定,注意，此時狀態 欄中顯示“錄制”，特別是“停止錄制”工具欄也顯示出來。替換默認宏名 主要是便于分別這些宏。 宏名最多可為255個字符，并且必須以字母開始。其中可用的字符包 括：字母、數字和下劃線。宏名中不允許出現空格。通常用下劃線代表空格。 5)選擇“格式”的“單元格”，選擇“圖案”選項中的紅色,單擊“確 定”。 6)單擊“停止錄制”工具欄按鈕，結束宏錄制過程。 如

6、果“停止錄制”工具欄開始并未出現，請選擇“工具”“宏” “停止錄制”。 錄制完一個宏后就可以執行它了。 VBAforEXCEL教程 1.4 執行宏 當執行一個宏時，EXCEL按照宏語句執行的情況就像 VBA代碼在對EXCEL進行“遙控”。但VBA的“遙控”不僅 能使操作變得簡便，還能使你獲得一些使用EXCEL標準命令 所無法實現的功能。而且，一旦熟悉了EXCEL的“遙控”， 你都會奇怪自己在沒有這些“遙控”的情況下，到底是怎么 熬過來的。要執行剛才錄制的宏，可以按以下步驟進行： 1）選擇任何一個單元格，比如A3。 2）選擇“工具”“宏”“宏”，顯示“宏”對話框。 3）選擇“改變顏色”，選擇“執

7、行”，則A3單元格的 顏色變為紅色。試著選擇其它單元格和幾個單元格組成的區 域，然后再執行宏，以便加深印象。 VBAforEXCEL教程 1.5 查看錄制的代碼 到底是什么在控制EXCEL的運行呢?你可能有 些疑惑.好,讓我們看看VBA的語句吧. 1）選擇“工具”“宏”“宏”，顯示“宏” 對話框。 2）單擊列表中的“改變顏色”,選擇“編輯” 按鈕。 此時，會打開VBA的編輯器窗口（VBE）。關 于該編輯器，以后再詳細說明，先將注意力集中到 顯示的代碼上。代碼如下：（日期和姓名會有不同 VBAforEXCEL教程 改變顏色代碼 Sub 改變顏色() 改變顏色 Macro xuyigu 記錄的宏

8、2007-6-10 With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub VBAforEXCEL教程 將來會十分熟悉這種代碼，雖然現在它們看上去像一種奇怪的外語。學習VBA或編 程語言在某種程度上比較像在學習一種外語。 Sub 改變顏色():這是宏的名稱。 中間的以“ ”開頭的五行稱為“注釋”，它在錄制宏時自動產生。 以With 開頭到End With 結束的結構是With結構語句，這段語句是宏的主要部 分。注意單詞“selecti

9、on”，它代表“突出顯示的區域”（即：選定區域）。 With Selection.Interior ：它讀作“選擇區域的的內部”.這整段語句設置該區 域內部的一些“屬性”。 其中： .ColorIndex = 3: 將該內部設為紅色。注意：有一小圓點，它的作用在于簡化 語句，小圓點代替出現在With后的詞,它是With結構的一部分。另外：紅色被 數字化為3.(紅色警戒是否可稱作：3號警戒，嗯？)有興趣的話，你將3改為其 他數字試試看。 .Pattern = xlSolid：設置該區域的內部圖案。由于是錄制宏，所以，雖然你并 未設置這一項，宏仍然將其記錄下來(因為在“圖案”選項中有此一項，只是

10、你為曾設置而已）。xlSolid表示純色。 .PatternColorIndex = xlAutomatic：表示內部圖案底紋顏色為自動配色。 End With:結束With 語句。 End Sub:整個宏的結束語 VBAforEXCEL教程 1.6 編輯錄制的代碼 在上一節，我們錄制了一個宏并查看了代碼，代碼中有兩句實際上并不起作用。哪兩 句？現在，在宏中作一個修改，刪除多余行，直到和下面代碼相同： Sub 改變顏色() 改變顏色 Macro xw 記錄的宏 2000-6-10 With Selection.Interior .ColorIndex = 3 End With End Sub

11、完成后，在工作表中試驗一下。你會發現結果和修改前的狀況一樣。在With 語句前加 入一行: Range(A5).Select 試著運行該宏,則無論開始選擇哪個單元格,宏運行結果都是使A5單元格變紅. 現在可以看到，編輯錄制的宏同樣非常簡單。需要編輯宏是因為以下三個方面的原因。 一：在錄制中出錯而不得不修改。二：錄制的宏中有多余的語句需要刪除，提高宏的運行 速度。三：希望增加宏的功能。比如：加入判斷或循環等無法錄制的語句。 VBAforEXCEL教程 1.7 錄制宏的局限性 希望自動化的許多EXCEL過程大多都可 以用錄制宏來完成.但是宏記錄器存在以下局 限性.通過宏記錄器無法完成的工作有: 1

12、)錄制的宏無判斷或循環能力. 2)人機交互能力差,即用戶無法進行輸入, 計算機無法給出提示. 3)無法顯示EXCEL對話框. 4)無法顯示自定義窗體. VBAforEXCEL教程 VBA for Excel 的基本操作 基礎教程 (二) VBAforEXCEL教程 幾種用VBA在單元格輸入數據的方法： 程序說明： Public Sub Writes() 1- 2 方法，最簡單在 中輸入單元格名稱。 1 A1 = 100 在 A1 單元格輸入100。 2 A2:A4 = 10 在 A2:A4 單元格輸入10。 3- 4 方法，采用 Range( )， 中輸入單元格名稱。 3 Range(B1)

13、= 200 在 B1 單元格輸入200。 4 Range(C1:C3) = 300 在 C1:C3 單元格輸入300。 5- 6 方法，采用 Cells(Row,Column)，Row是單元格行數，Column是單元格 欄數。 5 Cells(1, 4) = 400 在 D1 單元格輸入400。 6 Range(Cells(1, 5), Cells(5, 5) = 50 在 E1:E 5單元格輸入50。 End Sub 你點選任何單元格，按 Selection 按鈕，則則所點選的單元格均會被輸入文字 Test。 Public Sub Selection1() Selection.Value =

14、 Test 在任何你點選的單元格輸入文字 Test。 End Sub 觀看本程序的方法： 粗體文字為程序，其它字體均為說明文字。 按快捷鍵 Alt+F11即可看到程序。 VBAforEXCEL教程 幾種如何把別的工作表 Sheet4 數據， 讀到這個工作表的方法： 在被讀取的單元格前加上工作表名稱 Sheet4。 Public Sub Writes() 1- 2 方法，最簡單在被讀取的 前加上被讀取的工作表名稱 Sheet4。 1 A1 = Sheet4.A1 把Sheet4 A1 單元格的數據，讀到 A1單元格。 2 A2:A4 = Sheet4.B1 把 Shee4 工作表單元格 B1 數

15、據，讀到 A2:A4 單元格。 3- 4 方法，在被讀取的工作表 Range( )的 Range 前加上被讀取的工作表名稱Sheet4。 3 Range(B1) = Sheet4.Range(B1) 把 Shee4工作表單元格 B1 數據，讀到 B1 單元 格。 4 Range(C1:C3) = Sheet4.Range(C1) 把 Shee4 工作表單元格 C1 數據，讀到 C1:C3 單元格。 5- 6 方法，在被讀取的工作表 Cells(Row,Column)，Cells 前加上被讀取工作表名稱 Sheet4。 5 Cells(1, 4) = Sheet4.Cells(1, 4) 把 S

16、hee4 工作表單元格 D1 數據，讀到 D1 單元格。 6 Range(Cells(1, 5), Cells(5, 5) = Sheet4.Cells(1, 5) 把 Shee4 工作表單元格 E1 數據， 讀到 E1:E 5單元格。 End Sub 你點選任何單元格，按 Selection 按鈕，則所點選的單元格均會被輸入 Shee4 工作表單 元格 F1 數據。 Public Sub Selection1() Selection.Value = Sheet4.F1 把 Shee4 工作表單元格 F1 數據，讀到任何你點選的單 元格。 End Sub VBAforEXCEL教程 幾種如何把

17、別的工作表 Sheet4 數據， 讀到這個工作表的方法： 在被讀取的單元格前加上工作表名稱 Sheet4。 Public Sub Writes() 1- 2 方法，最簡單在被讀取的 前加上被讀取的工作表名稱 Sheet4。 1 A1 = Sheet4.A1 把Sheet4 A1 單元格的數據，讀到 A1單元格。 2 A2:A4 = Sheet4.B1 把 Shee4 工作表單元格 B1 數據，讀到 A2:A4 單元格。 3- 4 方法，在被讀取的工作表 Range( )的 Range 前加上被讀取的工作表名稱Sheet4。 3 Range(B1) = Sheet4.Range(B1) 把 Sh

18、ee4工作表單元格 B1 數據，讀到 B1 單元格。 4 Range(C1:C3) = Sheet4.Range(C1) 把 Shee4 工作表單元格 C1 數據，讀到 C1:C3 單元格。 5- 6 方法，在被讀取的工作表 Cells(Row,Column)，Cells 前加上被讀取工作表名稱 Sheet4。 5 Cells(1, 4) = Sheet4.Cells(1, 4) 把 Shee4 工作表單元格 D1 數據，讀到 D1 單元格。 6 Range(Cells(1, 5), Cells(5, 5) = Sheet4.Cells(1, 5) 把 Shee4 工作表單元格 E1 數據，

19、讀到 E1:E 5單元格。 End Sub 你點選任何單元格，按 Selection 按鈕，則所點選的單元格均會被輸入 Shee4 工作表單元 格 F1 數據。 Public Sub Selection1() Selection.Value = Sheet4.F1 把 Shee4 工作表單元格 F1 數據，讀到任何你點選的單元 格。 End Sub VBAforEXCEL教程 如何利用 Worksheet_SelectionChange 在限定的單元格輸入數據的方法。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If

20、 Target.Row = 2 And Target.Column = 2 Then Target = 100 End If End Sub If . Then . End If 這是我們學的這一個邏輯判斷語句。 Target.Row = 2，指的是鼠標選定的單元格的行大于或等于 2。 Target.Column = 2 ，指的是鼠標選定的單元格的欄等于 2。 If Target.Row = 2 And Target.Column = 2 Then 指的是只有在 Target.Row = 2及Target.Column = 2二個條件成立時。 就是 (Target.Row = 2) 為True

21、及(Target.Column = 2)為True時，才執行 下面的程序 Target=100， 也就是 B 欄第二行及以下行用鼠標被點選時，才會被輸入100，其它單 元格則不被輸入數據。 VBAforEXCEL教程 比較 Worksheet_SelectionChange() 與用按鈕 CommandButton1_Click() 來執行程序二者的方法與寫法有何不同 Worksheet_SelectionChange()事件 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 2 And T

22、arget.Column = 2 Then Target = 100 End If End Sub 按鈕 CommandButton1_Click() Private Sub CommandButton1_Click() If ActiveCell.Row = 2 And ActiveCell.Column = 3 Then ActiveCell = 100 End If End Sub 二者執行方法最大的地方，在于 Worksheet_SelectionChange() 是自動的，你不用了解他 是怎么完成工作的。 按鈕 CommandButton1_Click() 是人工的，比 Select

23、ionChange()多一道手續，就是要去 按那接鈕，程序才會執行。 SelectionChange() 有一個參數 Target 可用；CommandButton1_Click ()沒有。 所以我們要用 ActiveCell 內定函數來取代Target，ActiveCell 與 Target最大的不同點他只 能指定一個單元格。 就是你選取多個單元格也只有最上面的單元格會加上數據；用 Selection 取代 ActiveCell， 用法就跟 Target 一樣了。 VBAforEXCEL教程 完整的 If.Then End 邏輯判斷式。 Private Sub Worksheet_Selec

24、tionChange(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then Target = 200 ElseIf Target.Row = 2 And Target.Column = 3 Then Target = 300 ElseIf Target.Row = 2 And Target.Column = 2 Then Target = 400 Else Target = 500 End If End Sub 這是個完整的 If 邏輯判斷式，意思是說，假如 If 後的判斷式條件成立的話，就執行第二條 程序，否則

25、假如 ElseIf 後的判斷式條件成立的話，就執行第四條程序，否則假如另一個 ElseIf 後的判斷式條件成立的話，就執行第六條程序。 Else 的意思是說，假如以上條件都不成立的話，就執行第八條程序。 他的執行方式是假如 IF 的條件成立的話，就不執行其它ElseIf 及Else 的邏輯判斷式，假如 If 後的條件不成立的話才會執行 ElseIf 或 Else 邏輯判斷式。第二個 ElseIf後的條件因為與 IF 後的條件一樣，所以這個判斷式後面的 Target=400 將是永遠無法執行到的程序。 VBAforEXCEL教程 我們為什麼要用變數。 Private Sub Worksheet_

26、SelectionChange(ByVal Target As Range) Dim i , j As Integer Dim k As Range i = Target.Row j = Target.Column Set k = Target If i = 2 And j = 2 Then k = 200 ElseIf i = 2 And j = 3 Then k = 300 ElseIf i = 2 And j = 4 Then k = 400 Else k = 500 End If End Sub VBAforEXCEL教程 變數 跟上例比較，程序是不是明朗多了，在前課重復的用 Targ

27、et.Row， Target.Column及Target來寫程序是不是有一點煩。用變量的第一個好處 大家馬上感覺得出來，就是可以簡化程序。 使用變量前，你得先宣告變量。宣告變量的方法是在 Dim 后面寫上變 量 i As 后面接上變量的形態 Integer。 Dim i , j As Integer 就是宣告 i 與 j 為整數變量，這是同時宣告二個變量 i 與 j 所以要在二個變量間加個 , 號。 Dim k As Range 是宣告 k 為范圍資料形態，Range這是 Excel 特有的資 料形態。 i = Target.Row是把當前單元格的行數，指定給變量 i。 j = Target.

28、Column 是把當前單元格的欄數，指定給變量 j。 Set k = Target 是把當前的單元格，指定給變量 k。 用像 i 與 j 這樣簡單的變量，在程序的前面你可能還記得 i 或 j 代表著什 厶。程序寫長了，你可能忘記 i 或 j 代表著什厶。所以最好的方法是用比 較有意義的代號，來為變量命名如 iRow 或 iCol 來取代 i 及 j 。 VBAforEXCEL教程 體會一下Worksheet_Change()事件。 Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow, iCol As Integer iRow

29、 = Target.Row iCol = Target.Column If iRow = 2 And iCol = 2 And Target Then Application.EnableEvents = False Cells(iRow, iCol + 1) = Cells(iRow, iCol) * 2 Application.EnableEvents = True ElseIf iRow = 2 And iCol = 2 And Target = Then Cells(iRow, iCol + 1) = Else Cells(iRow, iCol + 1) = End If End Su

30、b VBAforEXCEL教程 Worksheet_SelectionChange 前幾個教程都是用Worksheet_SelectionChange 事件來舉例子，大家應 該能體會他是怎厶一回事了吧。 這個教程就是要讓你來體會什厶是Worksheet_Chang()事件。因為這二 個事件在VBA都是非常有用的，所以一定要了解。 簡單的說，前者是你鼠標移動到那個單元格，就觸發那個事件的執行。 後者是要等到你點選的單元格，數有了改變才會觸發事件的執行。二 者執行的時機一前一後。 Target 是代表限定當前的單元格要是有數的，才會執行以下三行 的程序。 Cells(iRow, iCol + 1)

31、 = Cells(iRow, iCol) * 2，是你在 B 欄輸入數時， C 欄將可得到 B 欄二倍的數。 Target = 是限定當前的單元格要是沒有數的，才會執行以下一行的 程序。 Cells(iRow, iCol + 1) = ，是把 C 欄的數清成空格。 Application.EnableEvents = False與Application.EnableEvents = True， 這是個成雙的程序，當你用了前者記得在執行其他程序後要寫上後面的 程序。它的目的在抑制事件連鎖執行。簡單的說就是，在 B 字段所觸發 的事件，不愿在其它單元格再觸發另一個Worksheet_Change(

32、)事件。 VBAforEXCEL教程 Worksheet_Change()事件連鎖反應 Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow As Integer iRow = Target.Row Application.EnableEvents = False Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2) Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As

33、 Range) Dim iRow As Integer iRow = Target.Row Application.EnableEvents = False Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2) Application.EnableEvents = True End Sub VBAforEXCEL教程 Worksheet_Change() 這個程序的目的是要在 B2 輸入新的數時，C2 會將 B2 輸 入的新數加上 C2 原有的數呈現在 C2 上。 照上面有加上 Application.EnableEvents = False 程序執

34、行 當然沒問題。 現在你在 Application.EnableEvents = False 與 Application.EnableEvents = True 前加上 看看。 程序前加上 的目的是要使 之后的文字變成說明文 字，程序執行時是會跳過說明文字，不執行說明文字的內容。 程序前加上 符號后，文字會變成綠色。 執行第二個程序時，你將發現 C2 不會按你所要求的，呈現 結果。 這就是所謂的事件連鎖反應。 VBAforEXCEL教程 Worksheet_Activate() 體會一下Worksheet_Activate()事件。 這個程序的目的是要大家體會一下 Worksheet_Acti

35、vate() 事 件的意義與用法，大家暫且不用去了解事件的程序代碼。 我們在 出毛登記表工作表 K欄打勾選取我們要的數 。 當打開 發毛單 工作表時， 出毛登記表 工作表 K欄有打 勾的那一行數 自動就復制至 發毛單 工作表。 這樣的做法可省去我們做一個按鈕，用人工的方法將數 復制 至 發毛單 工作表。但有個後遺癥，那就是每次打開 發毛 單 工作表時Excel一定會執行這個程序，增加Excel 的工作 量。 VBAforEXCEL教程 體會一下Worksheet_Deactivate() 與 Worksheet_BeforeDoubleClick()事件。 Private Sub Worksh

36、eet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Sheet3.Visible = xlSheetVeryHidden End Sub 這個程序的目的是要大家體會一下 Worksheet_Deactivate() 與 Worksheet_BeforeDoubleClick() 事件的意義與用法，大家暫且不用去了解事件的程序 代碼。 與 教程 Sheet3 的 Worksheet_Activate() 相同的程序，寫在 Sheet1 的 Worksheet_Deactivate()事件上。一

37、樣可達成我們在 10 所要達成的目的。 那我們應把程序寫在 Sheet3 的 Worksheet_Activate() 事件上，或是寫在 Sheet1 的 Worksheet_Deactivate() 事件上呢？依這功能需求當然還是寫在 Sheet3 的 Worksheet_Activate() 事件上比較合。 因為假如你從 登記表 工作表切到 說明 工作表，也會觸發Worksheet_Deactivate() 的執行，徒增 Excel 的工作量。 Worksheet_BeforeDoubleClick() 事件有二個參數，Target 以前介紹過了，另一個參數 Cancel 是做什厶用途的呢

38、？ 原來我們在單元格 DoubleClick 時會變成編輯狀態 。假如我們把 Cancel 設定成 True 時，則你連按鼠標二次時，單元格不會變成編輯狀態。 就像這個 Worksheet_BeforeDoubleClick() 事件，我們就是把單元格 DoubleClick變成 編輯狀態功能 Cancel 掉。并把 Sheet3 隱藏起來。 說明工作表 Worksheet_BeforeDoubleClick() 的 Cancel 參數是設定 True；出毛登記 表工作表 Worksheet_BeforeDoubleClick() 的 Cancel 參數是設定 False，你用鼠標連 按二次就

39、可體會設定成 True 與 False 的不同。 VBAforEXCEL教程 體會一下 Worksheet_BeforeRightClick () 事件。 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range(D8) Is Nothing Then Cancel = True MsgBox (Target is Range D8 and Cancel is True !) Else Cancel = F

40、alse End If End Sub 這個程序的目的是要大家體會一下Worksheet_BeforeRightClick () 事件的意義與 用法。 Worksheet_BeforeRightClick () 事件也有二個參數，Target 以前介紹過了，另一 個參數 Cancel 是做什厶用途的呢？ 這個 Cancel 與前一個教程 Worksheet_BeforeDoubleClick () 的 Cancel 是有所 不同的。 這個 Cancel 假如設定成 True 的話，將屏閉掉鼠標右鍵的菜單。 你可以在VBALesson 12工作表 的 D8 單元格 與 D12 單元格，按鼠標右鍵

41、試看 看有何不同。 在 D12 按鼠標右鍵將呈現正常的右鍵菜單；在 D8 按鼠標右鍵將呈現一個對話 框并且屏閉掉右鍵菜單。 VBAforEXCEL教程 Worksheet 的事件計有如下七種 1、Worksheet_Activate() 2、Worksheet_BeforeDoubleClick ( ) 3、Worksheet_BeforeRightClick ( ) 4、Worksheet_Calculate ( ) 5、Worksheet_Change ( ) 6、Worksheet_FollowHyperlink ( ) 7、Worksheet_SelectionChange ( ) V

42、BAforEXCEL教程 提高Excel中VBA的效率 由于Microsoft Office辦公套件的廣泛應用， 以及該軟件版本的不斷提升，功能不斷完善， 在Office辦公套件平臺上開發出的的VBA應用 程序越來越多，而VBA是一種宏語言，在運 行速度上有很大的限制。因此VBA編程的方 法直接關系到VBA程序運行的效率，本文列 舉了一些提高VBA程序運行效率的方法。 VBAforEXCEL教程 方法1：盡量使用VBA原有的屬性、 方法和Worksheet函數 由于Excel對象多達百多個，對象的屬性、方法、事件多不勝數，對于初學者來說可能 對它們不全部了解，這就產生了編程者經常編寫與Excel對象的屬性、方法相同功能的VBA 代碼段，而這些代碼段的運行效率顯然與Excel對象的屬性、方法完成任務的速度相差甚大。 例如用Range的屬性CurrentRegion來返回Range 對象，該對象代表當前區。（當前區指 以任意空白行及空白列的組合為邊界的區域）。同樣功能的VBA代碼需數十行。因此編程 前應盡可能多地了解Excel對象的屬性、方法。 充分利用Worksheet函數是提高程序運行速度的極度有效的方法。如求平均工資的例 子： For Each c In Worksheet(1).Ran