VBAforEXCEL教程

1、VBAforEXCEL教程 VBAforEXCEL教程 VBA是什么 1.1 VBA是什么 直到90,使應(yīng)用程序自動(dòng)化還是充滿挑戰(zhàn)性的領(lǐng)域.對(duì)每個(gè)需要自動(dòng)化的應(yīng) 用程序,人們不得不學(xué)習(xí)一種不同的自動(dòng)化語(yǔ)言.例如:可以用EXCEL的宏語(yǔ)言來(lái) 使EXCEL自動(dòng)化,使用WORD BASIC使WORD自動(dòng)化,等等.微軟決定讓它開(kāi)發(fā) 出來(lái)的應(yīng)用程序共享一種通用的自動(dòng)化語(yǔ)言-Visual Basic For Application(VBA),可以認(rèn)為VBA是非常流行的應(yīng)用程序開(kāi)發(fā)語(yǔ)言VASUAL BASIC 的子集.實(shí)際上VBA是寄生于VB應(yīng)用程序的版本.VBA和VB的區(qū)別包括 如下幾個(gè)方面: 1. VB

2、是設(shè)計(jì)用于創(chuàng)建標(biāo)準(zhǔn)的應(yīng)用程序,而VBA是使已有的應(yīng)用程序(EXCEL 等)自動(dòng)化 2. VB具有自己的開(kāi)發(fā)環(huán)境,而VBA必須寄生于已有的應(yīng)用程序. 3. 要運(yùn)行VB開(kāi)發(fā)的應(yīng)用程序,用戶不必安裝VB,因?yàn)閂B開(kāi)發(fā)出的應(yīng)用程序 是可執(zhí)行文件(*.EXE),而VBA開(kāi)發(fā)的程序必須依賴于它的父,例如EXCEL. 盡管存在這些不同,VBA和VB在結(jié)構(gòu)上仍然十分相似.事實(shí)上,如果你已經(jīng)了 解了VB,會(huì)發(fā)現(xiàn)學(xué)習(xí)VBA非常快.,學(xué)完VBA會(huì)給學(xué)習(xí)VB打下堅(jiān)實(shí)的基礎(chǔ).而且,當(dāng) 學(xué)會(huì)在EXCEL中用VBA創(chuàng)建解決方案后,即已具備在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用V

3、BA創(chuàng)建解決方案的大部分知識(shí). * VBA一個(gè)關(guān)鍵特征是你所學(xué)的知識(shí)在微軟的一些產(chǎn)品中可以相互轉(zhuǎn)化. * VBA可以稱作EXCEL的“遙控器”. VBA究竟是什么?更確切地講,它是一種自動(dòng)化語(yǔ)言,它可以使常用的程序自 動(dòng)化,可以創(chuàng)建自定義的解決方案. 此外,如果你愿意,還可以將EXCEL用做開(kāi)發(fā)平臺(tái)實(shí)現(xiàn)應(yīng)用程序. VBAforEXCEL教程 1.2 EXCEL環(huán)境中基于應(yīng)用程序自動(dòng) 化的優(yōu)點(diǎn) 也許你想知道VBA可以干什么?使用VBA可以實(shí)現(xiàn)的功能包括: 1. 使重復(fù)的任務(wù)自動(dòng)化. 2. 自定義EXCEL工具欄,菜單和界面. 3. 簡(jiǎn)化模板的使用. 4. 自定義EXCEL,使其成為開(kāi)發(fā)平臺(tái). 5

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

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

6、果“停止錄制”工具欄開(kāi)始并未出現(xiàn)，請(qǐng)選擇“工具”“宏” “停止錄制”。 錄制完一個(gè)宏后就可以執(zhí)行它了。 VBAforEXCEL教程 1.4 執(zhí)行宏 當(dāng)執(zhí)行一個(gè)宏時(shí)，EXCEL按照宏語(yǔ)句執(zhí)行的情況就像 VBA代碼在對(duì)EXCEL進(jìn)行“遙控”。但VBA的“遙控”不僅 能使操作變得簡(jiǎn)便，還能使你獲得一些使用EXCEL標(biāo)準(zhǔn)命令 所無(wú)法實(shí)現(xiàn)的功能。而且，一旦熟悉了EXCEL的“遙控”， 你都會(huì)奇怪自己在沒(méi)有這些“遙控”的情況下，到底是怎么 熬過(guò)來(lái)的。要執(zhí)行剛才錄制的宏，可以按以下步驟進(jìn)行： 1）選擇任何一個(gè)單元格，比如A3。 2）選擇“工具”“宏”“宏”，顯示“宏”對(duì)話框。 3）選擇“改變顏色”，選擇“執(zhí)

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

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

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

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

11、完成后，在工作表中試驗(yàn)一下。你會(huì)發(fā)現(xiàn)結(jié)果和修改前的狀況一樣。在With 語(yǔ)句前加 入一行: Range(A5).Select 試著運(yùn)行該宏,則無(wú)論開(kāi)始選擇哪個(gè)單元格,宏運(yùn)行結(jié)果都是使A5單元格變紅. 現(xiàn)在可以看到，編輯錄制的宏同樣非常簡(jiǎn)單。需要編輯宏是因?yàn)橐韵氯齻€(gè)方面的原因。 一：在錄制中出錯(cuò)而不得不修改。二：錄制的宏中有多余的語(yǔ)句需要?jiǎng)h除，提高宏的運(yùn)行 速度。三：希望增加宏的功能。比如：加入判斷或循環(huán)等無(wú)法錄制的語(yǔ)句。 VBAforEXCEL教程 1.7 錄制宏的局限性 希望自動(dòng)化的許多EXCEL過(guò)程大多都可 以用錄制宏來(lái)完成.但是宏記錄器存在以下局 限性.通過(guò)宏記錄器無(wú)法完成的工作有: 1

12、)錄制的宏無(wú)判斷或循環(huán)能力. 2)人機(jī)交互能力差,即用戶無(wú)法進(jìn)行輸入, 計(jì)算機(jī)無(wú)法給出提示. 3)無(wú)法顯示EXCEL對(duì)話框. 4)無(wú)法顯示自定義窗體. VBAforEXCEL教程 VBA for Excel 的基本操作 基礎(chǔ)教程 (二) VBAforEXCEL教程 幾種用VBA在單元格輸入數(shù)據(jù)的方法： 程序說(shuō)明： Public Sub Writes() 1- 2 方法，最簡(jiǎn)單在 中輸入單元格名稱。 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是單元格行數(shù)，Column是單元格 欄數(shù)。 5 Cells(1, 4) = 400 在 D1 單元格輸入400。 6 Range(Cells(1, 5), Cells(5, 5) = 50 在 E1:E 5單元格輸入50。 End Sub 你點(diǎn)選任何單元格，按 Selection 按鈕，則則所點(diǎn)選的單元格均會(huì)被輸入文字 Test。 Public Sub Selection1() Selection.Value =

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

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

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

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

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

19、讀到 E1:E 5單元格。 End Sub 你點(diǎn)選任何單元格，按 Selection 按鈕，則所點(diǎn)選的單元格均會(huì)被輸入 Shee4 工作表單元 格 F1 數(shù)據(jù)。 Public Sub Selection1() Selection.Value = Sheet4.F1 把 Shee4 工作表單元格 F1 數(shù)據(jù)，讀到任何你點(diǎn)選的單元 格。 End Sub VBAforEXCEL教程 如何利用 Worksheet_SelectionChange 在限定的單元格輸入數(shù)據(jù)的方法。 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 這是我們學(xué)的這一個(gè)邏輯判斷語(yǔ)句。 Target.Row = 2，指的是鼠標(biāo)選定的單元格的行大于或等于 2。 Target.Column = 2 ，指的是鼠標(biāo)選定的單元格的欄等于 2。 If Target.Row = 2 And Target.Column = 2 Then 指的是只有在 Target.Row = 2及Target.Column = 2二個(gè)條件成立時(shí)。 就是 (Target.Row = 2) 為True

21、及(Target.Column = 2)為True時(shí)，才執(zhí)行 下面的程序 Target=100， 也就是 B 欄第二行及以下行用鼠標(biāo)被點(diǎn)選時(shí)，才會(huì)被輸入100，其它單 元格則不被輸入數(shù)據(jù)。 VBAforEXCEL教程 比較 Worksheet_SelectionChange() 與用按鈕 CommandButton1_Click() 來(lái)執(zhí)行程序二者的方法與寫法有何不同 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 二者執(zhí)行方法最大的地方，在于 Worksheet_SelectionChange() 是自動(dòng)的，你不用了解他 是怎么完成工作的。 按鈕 CommandButton1_Click() 是人工的，比 Select

23、ionChange()多一道手續(xù)，就是要去 按那接鈕，程序才會(huì)執(zhí)行。 SelectionChange() 有一個(gè)參數(shù) Target 可用；CommandButton1_Click ()沒(méi)有。 所以我們要用 ActiveCell 內(nèi)定函數(shù)來(lái)取代Target，ActiveCell 與 Target最大的不同點(diǎn)他只 能指定一個(gè)單元格。 就是你選取多個(gè)單元格也只有最上面的單元格會(huì)加上數(shù)據(jù)；用 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 這是個(gè)完整的 If 邏輯判斷式，意思是說(shuō)，假如 If 後的判斷式條件成立的話，就執(zhí)行第二條 程序，否則

25、假如 ElseIf 後的判斷式條件成立的話，就執(zhí)行第四條程序，否則假如另一個(gè) ElseIf 後的判斷式條件成立的話，就執(zhí)行第六條程序。 Else 的意思是說(shuō)，假如以上條件都不成立的話，就執(zhí)行第八條程序。 他的執(zhí)行方式是假如 IF 的條件成立的話，就不執(zhí)行其它ElseIf 及Else 的邏輯判斷式，假如 If 後的條件不成立的話才會(huì)執(zhí)行 ElseIf 或 Else 邏輯判斷式。第二個(gè) ElseIf後的條件因?yàn)榕c IF 後的條件一樣，所以這個(gè)判斷式後面的 Target=400 將是永遠(yuǎn)無(wú)法執(zhí)行到的程序。 VBAforEXCEL教程 我們?yōu)槭颤N要用變數(shù)。 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教程 變數(shù) 跟上例比較，程序是不是明朗多了，在前課重復(fù)的用 Targ

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

28、Column 是把當(dāng)前單元格的欄數(shù)，指定給變量 j。 Set k = Target 是把當(dāng)前的單元格，指定給變量 k。 用像 i 與 j 這樣簡(jiǎn)單的變量，在程序的前面你可能還記得 i 或 j 代表著什 厶。程序?qū)戦L(zhǎng)了，你可能忘記 i 或 j 代表著什厶。所以最好的方法是用比 較有意義的代號(hào)，來(lái)為變量命名如 iRow 或 iCol 來(lái)取代 i 及 j 。 VBAforEXCEL教程 體會(huì)一下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 前幾個(gè)教程都是用Worksheet_SelectionChange 事件來(lái)舉例子，大家應(yīng) 該能體會(huì)他是怎厶一回事了吧。 這個(gè)教程就是要讓你來(lái)體會(huì)什厶是Worksheet_Chang()事件。因?yàn)檫@二 個(gè)事件在VBA都是非常有用的，所以一定要了解。 簡(jiǎn)單的說(shuō)，前者是你鼠標(biāo)移動(dòng)到那個(gè)單元格，就觸發(fā)那個(gè)事件的執(zhí)行。 後者是要等到你點(diǎn)選的單元格，數(shù)有了改變才會(huì)觸發(fā)事件的執(zhí)行。二 者執(zhí)行的時(shí)機(jī)一前一後。 Target 是代表限定當(dāng)前的單元格要是有數(shù)的，才會(huì)執(zhí)行以下三行 的程序。 Cells(iRow, iCol + 1)

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

32、)事件。 VBAforEXCEL教程 Worksheet_Change()事件連鎖反應(yīng) 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() 這個(gè)程序的目的是要在 B2 輸入新的數(shù)時(shí)，C2 會(huì)將 B2 輸 入的新數(shù)加上 C2 原有的數(shù)呈現(xiàn)在 C2 上。 照上面有加上 Application.EnableEvents = False 程序執(zhí)

34、行 當(dāng)然沒(méi)問(wèn)題。 現(xiàn)在你在 Application.EnableEvents = False 與 Application.EnableEvents = True 前加上 看看。 程序前加上 的目的是要使 之后的文字變成說(shuō)明文 字，程序執(zhí)行時(shí)是會(huì)跳過(guò)說(shuō)明文字，不執(zhí)行說(shuō)明文字的內(nèi)容。 程序前加上 符號(hào)后，文字會(huì)變成綠色。 執(zhí)行第二個(gè)程序時(shí)，你將發(fā)現(xiàn) C2 不會(huì)按你所要求的，呈現(xiàn) 結(jié)果。 這就是所謂的事件連鎖反應(yīng)。 VBAforEXCEL教程 Worksheet_Activate() 體會(huì)一下Worksheet_Activate()事件。 這個(gè)程序的目的是要大家體會(huì)一下 Worksheet_Acti

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

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

37、樣可達(dá)成我們?cè)?10 所要達(dá)成的目的。 那我們應(yīng)把程序?qū)懺?Sheet3 的 Worksheet_Activate() 事件上，或是寫在 Sheet1 的 Worksheet_Deactivate() 事件上呢？依這功能需求當(dāng)然還是寫在 Sheet3 的 Worksheet_Activate() 事件上比較合。 因?yàn)榧偃缒銖?登記表 工作表切到 說(shuō)明 工作表，也會(huì)觸發(fā)Worksheet_Deactivate() 的執(zhí)行，徒增 Excel 的工作量。 Worksheet_BeforeDoubleClick() 事件有二個(gè)參數(shù)，Target 以前介紹過(guò)了，另一個(gè)參數(shù) Cancel 是做什厶用途的呢

38、？ 原來(lái)我們?cè)趩卧?DoubleClick 時(shí)會(huì)變成編輯狀態(tài) 。假如我們把 Cancel 設(shè)定成 True 時(shí)，則你連按鼠標(biāo)二次時(shí)，單元格不會(huì)變成編輯狀態(tài)。 就像這個(gè) Worksheet_BeforeDoubleClick() 事件，我們就是把單元格 DoubleClick變成 編輯狀態(tài)功能 Cancel 掉。并把 Sheet3 隱藏起來(lái)。 說(shuō)明工作表 Worksheet_BeforeDoubleClick() 的 Cancel 參數(shù)是設(shè)定 True；出毛登記 表工作表 Worksheet_BeforeDoubleClick() 的 Cancel 參數(shù)是設(shè)定 False，你用鼠標(biāo)連 按二次就

39、可體會(huì)設(shè)定成 True 與 False 的不同。 VBAforEXCEL教程 體會(huì)一下 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 這個(gè)程序的目的是要大家體會(huì)一下Worksheet_BeforeRightClick () 事件的意義與 用法。 Worksheet_BeforeRightClick () 事件也有二個(gè)參數(shù)，Target 以前介紹過(guò)了，另一 個(gè)參數(shù) Cancel 是做什厶用途的呢？ 這個(gè) Cancel 與前一個(gè)教程 Worksheet_BeforeDoubleClick () 的 Cancel 是有所 不同的。 這個(gè) Cancel 假如設(shè)定成 True 的話，將屏閉掉鼠標(biāo)右鍵的菜單。 你可以在VBALesson 12工作表 的 D8 單元格 與 D12 單元格，按鼠標(biāo)右鍵

41、試看 看有何不同。 在 D12 按鼠標(biāo)右鍵將呈現(xiàn)正常的右鍵菜單；在 D8 按鼠標(biāo)右鍵將呈現(xiàn)一個(gè)對(duì)話 框并且屏閉掉右鍵菜單。 VBAforEXCEL教程 Worksheet 的事件計(jì)有如下七種 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辦公套件的廣泛應(yīng)用， 以及該軟件版本的不斷提升，功能不斷完善， 在Office辦公套件平臺(tái)上開(kāi)發(fā)出的的VBA應(yīng)用 程序越來(lái)越多，而VBA是一種宏語(yǔ)言，在運(yùn) 行速度上有很大的限制。因此VBA編程的方 法直接關(guān)系到VBA程序運(yùn)行的效率，本文列 舉了一些提高VBA程序運(yùn)行效率的方法。 VBAforEXCEL教程 方法1：盡量使用VBA原有的屬性、 方法和Worksheet函數(shù) 由于Excel對(duì)象多達(dá)百多個(gè)，對(duì)象的屬性、方法、事件多不勝數(shù)，對(duì)于初學(xué)者來(lái)說(shuō)可能 對(duì)它們不全部了解，這就產(chǎn)生了編程者經(jīng)常編寫與Excel對(duì)象的屬性、方法相同功能的VBA 代碼段，而這些代碼段的運(yùn)行效率顯然與Excel對(duì)象的屬性、方法完成任務(wù)的速度相差甚大。 例如用Range的屬性CurrentRegion來(lái)返回Range 對(duì)象，該對(duì)象代表當(dāng)前區(qū)。（當(dāng)前區(qū)指 以任意空白行及空白列的組合為邊界的區(qū)域）。同樣功能的VBA代碼需數(shù)十行。因此編程 前應(yīng)盡可能多地了解Excel對(duì)象的屬性、方法。 充分利用Worksheet函數(shù)是提高程序運(yùn)行速度的極度有效的方法。如求平均工資的例 子： For Each c In Worksheet(1).Ran