（試題 試卷 真題）Word_VBA

1、1,VBA,2,3-1 認(rèn)識(shí)VBA及其應(yīng)用,Visual Basic for Application 又稱VBA，是一種程式語(yǔ)言，可隨著不同的應(yīng)用軟體透過(guò)對(duì)應(yīng)的語(yǔ)法來(lái)設(shè)計(jì)，從Office2000開(kāi)始，Office間應(yīng)用軟體的VBA即可互通了 。 VBA應(yīng)用很廣，小則應(yīng)用它來(lái)設(shè)計(jì)一個(gè)Word沒(méi)提供的函數(shù)，本書(shū)此章節(jié)的目的，是要讓使用者對(duì)Word的VBA有一初步概念。,3,3-2 VBA程式語(yǔ)言基本結(jié)構(gòu),VBA是一種物件導(dǎo)向程式語(yǔ)言，跟一般語(yǔ)言一樣，其基本架構(gòu)為 Sub 函數(shù)或程序名稱() 定義(宣告)函數(shù)或程序 宣告1 宣告2 . 陳述式1 陳述式2 . End Sub,4,VBA程式語(yǔ)言基本結(jié)

2、構(gòu)-續(xù),VBA的程式碼是由許多陳述式集合而成，包含宣告其實(shí)也是一種陳述式，陳述式會(huì)執(zhí)行VBA的動(dòng)作，每一個(gè)正確的指令，都會(huì)產(chǎn)生對(duì)應(yīng)的動(dòng)作，例如引發(fā)物件啟動(dòng)、計(jì)算或結(jié)束程式等。 陳述式約分為4類：(1)宣告陳述式(2)指定陳述式及設(shè)定物件屬性(3)條件及迴圈陳述式(4)執(zhí)行物件的方法。 剛開(kāi)始時(shí)，我們可藉由前一章所錄的巨集產(chǎn)生的VBA成式碼來(lái)學(xué)習(xí)各種用法，對(duì)初學(xué)者效果不錯(cuò)哦！ 先看一個(gè)例子感受一下！下面的 Sub 程序當(dāng)文件開(kāi)啟時(shí)會(huì)詢問(wèn)今日日期若錯(cuò)誤則離開(kāi)此應(yīng)用程式（Word） Sub Document_Open() IF InputBox(“請(qǐng)輸入今日日期”) = Day(Now() Then

3、 MsgBox “歡迎使用此文件” Else Application.Quit End If End Sub,5,VBA操作環(huán)境,Word提供了一個(gè)很好的VBA操作環(huán)境，來(lái)讓我們寫(xiě)程式，我們現(xiàn)在就來(lái)看看！ Step1：執(zhí)行工具/巨集/Visual Basic編輯器或按Alt+F11快速鍵。,6,VBA操作環(huán)境-續(xù),Step2：進(jìn)入VBA操作環(huán)境視窗後，會(huì)看到左上方的專案視窗，左下的屬性視窗，以及右邊的程式視窗，這時(shí)你可以透過(guò)視窗工作列切換到Word環(huán)境或再切換到VBA環(huán)境，也可以透過(guò)檢視把其他工具列叫出來(lái)。,7,VBA操作環(huán)境-續(xù),Step3：在專案視窗上，選取專案名稱(預(yù)設(shè)為VB Proje

4、ct)，按右鍵，叫出快顯功能表，選擇此專案的屬性。,8,VBA操作環(huán)境-續(xù),Step4：開(kāi)啟專案屬性交談窗，將專案名稱改成star(原為Projecct)，也可以用密碼保護(hù)我們的專案，不讓別人看到專案內(nèi)容，如程式。,9,VBA操作環(huán)境-續(xù),Step5：VBA的物件導(dǎo)向式語(yǔ)法，有非常多的方法及屬性，其中各有不同的參數(shù)，不用強(qiáng)記，可以在屬性或方法的字上(例如RGB)按右鍵，叫出快顯功能表，選擇列出屬性或方法。,10,VBA操作環(huán)境-續(xù),Step6：就可直接跳到最接近的屬性或方法項(xiàng)下，按一下，就會(huì)出現(xiàn)相關(guān)的線上說(shuō)明，可以複製說(shuō)明檔上面的程式，直接拿過(guò)來(lái)用哦！,11,VBA操作環(huán)境-續(xù),Step7：輸

5、入方法或?qū)傩詴r(shí)，若有參數(shù)，輸入(時(shí)會(huì)出現(xiàn)參數(shù)指引說(shuō)明。,12,VBA操作環(huán)境-續(xù),Step8：輸入程式時(shí)請(qǐng)用小寫(xiě)英文即可，它會(huì)自動(dòng)幫你轉(zhuǎn)成大小寫(xiě)，以及用顏色區(qū)分，藍(lán)色為VBA與法的保留字或關(guān)鍵字，不可拼錯(cuò)，黑色為程式的變數(shù)、宣告或陳述，而綠色則是註解。如果我輸入if x1=40 按Enter鍵，立刻會(huì)告訴你錯(cuò)誤訊息，並告訴你怎麼做，而且用紅色的字標(biāo)示出錯(cuò)誤的那一列，是不是很方便，剛開(kāi)始只要沒(méi)出現(xiàn)紅色的字，表示程式?jīng)]有大錯(cuò)，就可以執(zhí)行了。,13,VBA操作環(huán)境-續(xù),Step9：我們先來(lái)看一個(gè)設(shè)定字型格式變化的程序，都在每一行後面有說(shuō)明註解(註解以為開(kāi)始)。,14,VBA基本結(jié)構(gòu)-程序或函數(shù),一般

6、我們用VBA最多的就是程序或函數(shù)了，程序是一連串可執(zhí)行的指令結(jié)合在一起，例如前一章所錄製的巨集，主要目的是讓多個(gè)重複的動(dòng)作在一起執(zhí)行，減少我們操作的時(shí)間；而函數(shù)則是根據(jù)使用者傳入的參數(shù)，做一些運(yùn)算後傳回一個(gè)結(jié)果的值。 Step1：執(zhí)行插入/程序。 Step2：在新增程式交談窗，輸入名稱為leapyear，型態(tài)為Sub表示為一個(gè)程序程式。 Step3：按確定後，自動(dòng)在程式視窗加入了一段定義程序的宣告與結(jié)束指令，我們可以開(kāi)始依據(jù)需要在這個(gè)程序中間加入我們需要的程式指令了！,15,VBA基本結(jié)構(gòu)-程序或函數(shù),Step4：假設(shè)寫(xiě)好了，想試試看如何執(zhí)行，這裡我們以上一節(jié)改變字型格式的程序font20b來(lái)

7、示範(fàn)，到Word中，選取一段文字，按Alt+F8，開(kāi)啟巨集交談窗，選取一個(gè)巨集名稱來(lái)執(zhí)行。 Step5：若沒(méi)有錯(cuò)誤，就可以看到程式執(zhí)行的結(jié)果。,16,VBA基本結(jié)構(gòu)-程序或函數(shù),Step6：現(xiàn)在我們?cè)趤?lái)看看函數(shù)程式是怎麼做跟怎麼執(zhí)行的？在新增程式交談窗，輸入名稱為leapyear1，型態(tài)為Function表示為一個(gè)函數(shù)程式。在同一模組下，程序或函數(shù)名稱都不可重複。 Step7：按確定後，一樣自動(dòng)在程式視窗加入了一段定義函數(shù)的宣告與結(jié)束指令，所不同的是程序的關(guān)鍵字是Sub，而函數(shù)是Function，同樣都以End來(lái)結(jié)束程式。 Step8：雖然透過(guò)插入/程序產(chǎn)生了一小小段程式，我們還是可以在程式視

8、窗直接修改它哦！也可以直接複製一段程序或函數(shù)來(lái)修改，這裡我們就把leapyear1改為slength，我們想利用畢氏定理來(lái)計(jì)算三角形的斜邊，而無(wú)論是程序或函數(shù)都不一定要傳入?yún)?shù)，但宣告程序或函數(shù)後的( )左右括號(hào)一定要存在，在這裡我們需要三角型的兩邊，所以我們就在括號(hào)中定義了兩個(gè)傳入的參數(shù)x1及y1，資料型態(tài)都是整數(shù)。,17,VBA基本結(jié)構(gòu)-常數(shù)、變數(shù)與資料型態(tài),通常會(huì)使用 Dim 陳述式來(lái)宣告變數(shù)。 Dim 陳述式的語(yǔ)法為： Dim 變數(shù)名稱 as 資料型態(tài) . . .( 內(nèi)的表示可省略) 在 Dim 陳述式的語(yǔ)法中，Dim 是必備的關(guān)鍵字。而唯一必備的元素是變數(shù)名稱。 變數(shù)可以宣告成下列資

9、料型態(tài)中的一者：Boolean、Byte、Integer、Long、Currency、Single、Double、Date、String(可變長(zhǎng)度字串)、String * length (固定長(zhǎng)度字串)、Object 或 Variant。如果您未指定資料型態(tài)，則 Variant資料型態(tài)會(huì)被指定成預(yù)設(shè)型態(tài)。在宣告陳述式中，您不一定要提供變數(shù)的資料型態(tài)，若省略資料型態(tài)的則會(huì)將變數(shù)設(shè)成 Variant 型態(tài)。,18,常數(shù)、變數(shù)與資料型態(tài),變數(shù)的命名規(guī)則： (1)必須以字母為開(kāi)頭。 (2)不可以包含句號(hào)、關(guān)鍵字及型態(tài)宣告字元。 (3)不能超過(guò)255個(gè)字。 (4)如果這個(gè)陳述式出現(xiàn)在程序中，則此變數(shù)只可

10、以在此程序中被使用。如果這個(gè)陳述式出現(xiàn)在模組中的 宣告 區(qū)段，則此變數(shù)可以被此模組中所有的程序所使用，但是不能被同一專案中不同的模組所含程序來(lái)使用。為了使變數(shù)可被專案中所有的程序所使用，則在變數(shù)名稱前加上 Public 陳述式。,19,常數(shù)、變數(shù)與資料型態(tài),宣告常數(shù) 我們使用 Const 陳述式宣告部份常用到的文數(shù)字設(shè)為常數(shù)。例如： 常數(shù)的預(yù)設(shè)狀態(tài)是 Private。 Const MyVar = 459 宣告 Public 常數(shù)。 Public Const MyString = HELP 在同一行裏宣告多個(gè)常數(shù)。 Const MyStr = Hello, MyDouble As Double

11、= 3.4567 宣告變數(shù) Dim x1 as Integer, y2 as Object Sub slength(),20,VBA基本結(jié)構(gòu)-物件式導(dǎo)向語(yǔ)法-物件,物件導(dǎo)向程式中，有四個(gè)很重要的元件，(1)物件(2)屬性(3)方法及(4)事件，而當(dāng)我們把物件相關(guān)的屬性，執(zhí)行的方法，引發(fā)的事件，依物件導(dǎo)向語(yǔ)法組合在一起就是所謂的指令或陳述式。 物件 Word中常見(jiàn)的物件有按鈕、範(fàn)圍、文件等等，在程式中為了使用方便，將某些同型態(tài)的物件集合在一起，稱為物件集，其關(guān)鍵字為英文的複數(shù)型態(tài)，如Tables，例如想在第c個(gè)表格的Formlength列刪除，可以這樣寫(xiě)： Set MyTable = Activ

12、eDocument.Tables(c) MyTable.Rows(Formlength).Delete,21,VBA基本結(jié)構(gòu)-物件式導(dǎo)向語(yǔ)法-物件,我們可以在VBA環(huán)境的一般工具列上按瀏覽物件，可看到有相當(dāng)多的物件類型。,22,VBA基本結(jié)構(gòu)-物件式導(dǎo)向語(yǔ)法-屬性,屬性:各種不同的物件，各有其特定的性質(zhì)，我們稱之為屬性，通常我們利用屬性來(lái)控制物件的外觀，如設(shè)定儲(chǔ)存格的字型、顏色等，我們常用指定陳述是來(lái)達(dá)成。 物件.屬性=設(shè)定值或 變數(shù)=物件.屬性 Step1：例如在物件Font上，按右鍵，執(zhí)行快顯功能表中的說(shuō)明。,23,VBA基本結(jié)構(gòu)-物件式導(dǎo)向語(yǔ)法-屬性,Step2：會(huì)開(kāi)啟Font的線上說(shuō)明

13、，亦會(huì)介紹其相關(guān)的屬性、方法及事件等，樣可以複製到我們的程式視窗。,24,VBA基本結(jié)構(gòu)-物件式導(dǎo)向語(yǔ)法-方法,方法 除了用屬性來(lái)改變物件外，還可以使用方法來(lái)要求物件做一些動(dòng)作，參下圖，可以看到Tables成員中前半部的屬性都為名詞，而後半部的方法都為動(dòng)詞。,25,VBA基本結(jié)構(gòu)-物件式導(dǎo)向語(yǔ)法-事件,事件是指要執(zhí)行或驅(qū)動(dòng)某一物件執(zhí)行一些動(dòng)作所發(fā)出的訊息，如按一下滑鼠，按一下鍵盤(pán)或開(kāi)啟文件，另外我們也可以透過(guò)我們寫(xiě)的程式碼來(lái)驅(qū)動(dòng)或?qū)е履承┦录陌l(fā)生。如下，我們可以看物件可以有哪些事件。 CommandButton1(按鈕)物件，有Click(按一下)，DbClick(按二下).等等事件。,26

14、,程式的控制結(jié)構(gòu)-使用 If.Then.Else 陳述式,If.Then.Else 陳述式會(huì)根據(jù)條件式的值，而執(zhí)行指定的陳述式或一個(gè)區(qū)塊的陳述式。If.Then.Else 陳述式可以依據(jù)您的需要而做多階層的巢狀執(zhí)行。然而，為了可讀性您可能會(huì)使用 Select Case 陳述式而不使用多階層的巢狀 If.Then.Else 語(yǔ)法。下列的範(fàn)例展示了單行語(yǔ)法，並省略了 Else 關(guān)鍵字： Sub FixDate() myDate = #2/13/95# If myDate Now Then myDate = Now End Sub,27,程式的控制結(jié)構(gòu)-使用 If.Then.Else 陳述式,若要執(zhí)

15、行多行程式碼的話，您必須使用多行的語(yǔ)法，而此語(yǔ)法須包含 End If 陳述式，如同下面範(fàn)例所示： Sub AlertUser(value as Long) If value = 0 Then AlertLabel.ForeColor = Red AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True End If End Sub,28,程式的控制結(jié)構(gòu)-使用 If.Then.Else 陳述式,當(dāng)條件式為 True，執(zhí)行某些陳述式；條件式為 False，執(zhí)行其餘的陳述式 使用 If.Then.Else 陳述式可以定義兩個(gè)可執(zhí)行的陳述式區(qū)塊

16、：其中一個(gè)區(qū)塊會(huì)在條件式為T(mén)rue 時(shí)執(zhí)行；而另一個(gè)區(qū)塊會(huì)在條件式為 False 時(shí)執(zhí)行。 Sub AlertUser(value as Long) If value = 0 Then AlertLabel.ForeColor = vbRed AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True Else AlertLabel.Forecolor = vbBlack AlertLabel.Font.Bold = False AlertLabel.Font.Italic = False End If End Sub,29,程式的控制結(jié)

17、構(gòu)-使用 If.Then.Else 陳述式,當(dāng)?shù)谝粋€(gè)條件式為 False 時(shí)，測(cè)試第二個(gè)條件式 當(dāng)?shù)谝粋€(gè)條件式為 False 時(shí)，您可以在 If.Then.Else 陳述式中加上 ElseIf 陳述式來(lái)測(cè)試第二個(gè)條件式。舉例而言，下列的函數(shù)程序根據(jù)工作分類來(lái)計(jì)算獎(jiǎng)金。如何所有 If 和 ElseIf 陳述式中條件式都是 False，則會(huì)執(zhí)行緊接在 Else 陳述式之後的陳述式。 Function Bonus(performance, salary) If performance = 1 Then Bonus = salary * 0.1 ElseIf performance = 2 Then

18、Bonus = salary * 0.09 ElseIf performance = 3 Then Bonus = salary * 0.07 Else Bonus = 0 End If End Function,30,程式的控制結(jié)構(gòu)-使用 Select Case 陳述式,將一個(gè)運(yùn)算式與數(shù)個(gè)不同的值比較時(shí)，可以使用 Select Case 陳述式來(lái)取代在 If.Then.Else 陳述式中使用 ElseIf。If.Then.Else 陳述式會(huì)計(jì)算每個(gè) ElseIf 陳述式中的運(yùn)算式，而 Select Case 陳述式只會(huì)在控制結(jié)構(gòu)的頂端計(jì)算一次運(yùn)算式。 在下面的範(fàn)例中，Select Case

19、陳述式會(huì)計(jì)算傳送給此程序的引數(shù)performance。請(qǐng)注意，每一個(gè) Case 陳述式可以含有一個(gè)以上的值，一段範(fàn)圍的值，或是一個(gè)組合值以及比較運(yùn)算子。選擇性的 Case Else 陳述式只有在引數(shù)值無(wú)法與 Select Case 中所有的 Case 陳述式相符合時(shí)才會(huì)執(zhí)行。 Function Bonus(performance, salary) Select Case performance Case 1 Bonus = salary * 0.1 Case 2, 3 Bonus = salary * 0.09 Case 4 To 6 Bonus = salary * 0.07 Case Is

20、 8 Bonus = 100 Case Else Bonus = 0 End Select End Function,31,程式的控制結(jié)構(gòu)-使用 Do.Loop 陳述式,您可以使用 Do.Loop 陳述式去執(zhí)行一個(gè)區(qū)塊的陳述式，而它所用掉的時(shí)間是不確定的。當(dāng)條件式為 True 或直到條件式變成 True 之前，此陳述式會(huì)一直重複。 （）重複陳述式直到條件式為 True 當(dāng)使用 While 關(guān)鍵字去檢查 Do.Loop 陳述式中的條件式時(shí)，可以有兩種不同的方式。您可以在進(jìn)入迴圈之前檢查條件式，也可以在迴圈至少執(zhí)行一次之後才檢查條件式。 在下面的 ChkFirstWhile 程序中，是在進(jìn)入迴圈之

21、前檢查條件式。如果 將 myNum 的值由 20 替換成 9，則在迴圈中的陳述式將永遠(yuǎn)不會(huì)執(zhí)行。 在ChkLastWhile 程序中，在條件式變成 False 之前迴圈中的陳述式會(huì)一直執(zhí)行。 Sub ChkFirstWhile() counter = 0 myNum = 20 Do While myNum 10 myNum = myNum - 1 counter = counter + 1 Loop MsgBox The loop made & counter & repetitions. End Sub,32,程式的控制結(jié)構(gòu)-使用 Do.Loop 陳述式,（）從 Do.Loop 陳述式中離開(kāi)

22、 您可以使用 Exit Do 陳述式來(lái)離開(kāi) Do.Loop 陳述式。舉例而言，為了離開(kāi)無(wú)窮迴圈，可以將 Exit Do 陳述式放在 If.Then.Else 陳述式或是 Select Case 陳述式中的 True 陳述式區(qū)塊。如果條件式為 False，則迴圈會(huì)像平常一樣執(zhí)行?？梢园聪?ESC 或 CTRL+BREAK 來(lái)終止無(wú)窮迴圈。,33,程式的控制結(jié)構(gòu)-使用 For.Next 陳述式,您可以使用 For.Next 陳述式去執(zhí)行一個(gè)區(qū)塊的陳述式，而它所用掉的時(shí)間是特定的。For 迴圈使用一個(gè)計(jì)數(shù)變數(shù)，當(dāng)反覆的執(zhí)行迴圈時(shí)它的值會(huì)增加或減少。 下面的程序會(huì)讓電腦發(fā)出嗶聲 50 次。For 陳述

23、式會(huì)指定計(jì)數(shù)變數(shù) x 的開(kāi)始與結(jié)束值。Next 陳述式會(huì)將計(jì)數(shù)變數(shù)的值加 1。 Sub Beeps() For x = 1 To 50 Beep Next x End Sub,34,程式的控制結(jié)構(gòu)-使用 For.Next 陳述式,使用 Step 關(guān)鍵字，可以增加或減少計(jì)數(shù)變數(shù)的值，並且增減值可由您指定。在下面的範(fàn)例中，計(jì)數(shù)變數(shù) j 會(huì)在迴圈重複時(shí)加上 2。當(dāng)迴圈結(jié)束時(shí)，total 的值為 2、4、6、8 和 10 的總合。 Sub TwosTotal() For j = 2 To 10 Step 2 total = total + j Next j MsgBox The total is & total End Sub 為了減少計(jì)數(shù)變數(shù)的值，您可以使用負(fù)的 Step 值。在 Next 陳述式後面可以不用加上計(jì)數(shù)變數(shù)的名稱。在 For.Next 陳述式中您可以在計(jì)數(shù)變數(shù)到達(dá)它的結(jié)束值之前，使用 Exit For 陳述式來(lái)離開(kāi)。舉例而言，當(dāng)錯(cuò)誤發(fā)生時(shí)可以將 Exit For 陳述式放在 If.Then.Else 陳述式或是 Select Case 陳述式中的 True 陳述式區(qū)塊，它是專門(mén)用來(lái)檢查此錯(cuò)誤的。如果沒(méi)有錯(cuò)誤發(fā)生，If.Then.Else 陳述式的值為 False，則迴圈會(huì)像預(yù)期一樣的執(zhí)行。,35,3-3 VBA應(yīng)用簡(jiǎn)例-以程序來(lái)判斷星座,我們以今日日期中的