【正文】 查條件（如下面的 ChkFirstWhile 示例）；或者在循環(huán)至少運行完一次之后檢查條件（如下面的 ChkLastWhile 示例）。在 ChkFirstWhile 過程中，如果 myNum 的初始值被設(shè)置為 9 而不是 20，則永遠不會執(zhí)行循環(huán)體中的語句。在 ChkLastWhile 過程中，循環(huán)體中的語句只會執(zhí)行一次，因為條件在檢查時已經(jīng)為 False。 Sub ChkFirstWhile() Dim counter, myNum counter = 0 myNum = 20 Do While myNum 10 myNum = myNum 1 counter = counter + 1 Loop MsgBox 循環(huán)重復了 amp。 counter amp。 次。 End Sub Sub ChkLastWhile() Dim counter, myNum counter = 0 myNum = 9 Do myNum = myNum 1 counter = counter + 1 Loop While myNum 10 MsgBox 循環(huán)重復了 amp。 counter amp。 次。 End Sub（11）重復執(zhí)行語句直到條件變?yōu)?TrueUntil 關(guān)鍵字用于檢查 Do...Loop 語句中的條件。有兩種方式檢查條件：在進入循環(huán)之前檢查條件（如下面的 ChkFirstUntil 示例）；或者在循環(huán)至少運行完一次之后檢查條件（如下面的 ChkLastUntil 示例）。只要條件為 False，就會進行循環(huán)。 Sub ChkFirstUntil() Dim counter, myNum counter = 0 myNum = 20 Do Until myNum = 10 myNum = myNum 1 counter = counter + 1 Loop MsgBox 循環(huán)重復了 amp。 counter amp。 次。 End Sub Sub ChkLastUntil() Dim counter, myNum counter = 0 myNum = 1 Do myNum = myNum + 1 counter = counter + 1 Loop Until myNum = 10 MsgBox 循環(huán)重復了 amp。 counter amp。 次。 End Sub（11）退出循環(huán)Exit Do 語句用于退出 Do...Loop 循環(huán)。因為通常只是在某些特殊情況下要退出循環(huán)（例如要避免死循環(huán)），所以可在 If...Then...Else 語句的 True 語句塊中使用 Exit Do 語句。如果條件為 False，循環(huán)將照常運行。 在下面的示例中，myNum 的初始值將導致死循環(huán)。If...Then...Else 語句檢查此條件，防止出現(xiàn)死循環(huán)。 Sub ExitExample() Dim counter, myNum counter = 0 myNum = 9 Do Until myNum = 10 myNum = myNum 1 counter = counter + 1 If myNum 10 Then Exit Do Loop MsgBox 循環(huán)重復了 amp。 counter amp。 次。 End Sub（12）使用 While...WendWhile...Wend 語句是為那些熟悉其用法的用戶提供的。但是由于 While...Wend 缺少靈活性，所以建議最好使用 Do...Loop 語句。 （13）使用 For...NextFor...Next 語句用于將語句塊運行指定的次數(shù)。在循環(huán)中使用計數(shù)器變量，該變量的值隨每一次循環(huán)增加或減少。 例如，下面的示例將過程 MyProc 重復執(zhí)行 50 次。For 語句指定計數(shù)器變量 x 及其起始值與終止值。Next 語句使計數(shù)器變量每次加 1。 Sub DoMyProc50Times() Dim x For x = 1 To 50 MyProc Next End Sub關(guān)鍵字 Step 用于指定計數(shù)器變量每次增加或減少的值。在下面的示例中，計數(shù)器變量 j 每次加 2。循環(huán)結(jié)束后，total 的值為 8 和 10 的總和。 Sub TwosTotal() Dim j, total For j = 2 To 10 Step 2 total = total + j Next MsgBox 總和為 amp。 total amp。 。 End Sub要使計數(shù)器變量遞減，可將 Step 設(shè)為負值。此時計數(shù)器變量的終止值必須小于起始值。在下面的示例中，計數(shù)器變量 myNum 每次減 2。循環(huán)結(jié)束后，total 的值為 1114 和 2 的總和。 Sub NewTotal() Dim myNum, total For myNum = 16 To 2 Step 2 total = total + myNum Next MsgBox 總和為 amp。 total amp。 。 End SubExit For 語句用于在計數(shù)器達到其終止值之前退出 For...Next 語句。因為通常只是在某些特殊情況下（例如在發(fā)生錯誤時）要退出循環(huán)，所以可以在 If...Then...Else 語句的 True 語句塊中使用 Exit For 語句。如果條件為 False，循環(huán)將照常運行。VBA 包括一類特殊的對象――用戶窗體（UserForm），用戶窗體是一個窗口或?qū)υ捒?，用以?gòu)成應用程序的用戶界面部分。使用用戶窗體可以提供一個圖形用戶界面，在此界面上，可以為其添加按鈕、圖片、文本框等控件，作為一個自定義窗口或者對話框，供用戶與程序進行交互。（1）設(shè)計用戶窗體 通過在工程資源管理器右鍵單擊，選擇“插入 － 用戶窗體”可以新建一個用戶窗體（圖 34），新建的用戶窗體缺省名稱為“UserForm1”，新建以后的用戶窗體是一個空白區(qū)域，可以從工具箱中選擇控件為用戶窗體添加界面元素。選中用戶窗體，在右鍵選擇屬性窗口內(nèi)可以設(shè)置其屬性（如果工具箱和屬性窗口沒有顯示，可以通過查看菜單激活之），也可以拖動改變其大小。窗體具有設(shè)計模式和代碼模式之分，在資源管理器窗口選擇窗體，可以在其工具欄或者通過右鍵切換窗體的設(shè)計模式和代碼模式。設(shè)計模式下可以通過鼠標拖拽以及屬性調(diào)整來可視化設(shè)計用戶窗體的外觀以及樣式。在代碼模式下，可以和在一般的模塊窗體一樣，定義變量、過程，并且可以響應窗體和控件的事件。 新建一個窗體，按Ctrl+S快捷鍵，在隨后的窗體保存窗口名稱設(shè)置為“frmMyHelloWorld”，在屬性窗口，將Caption 設(shè)置為“Hello, My First Form”。圖34 用戶窗體設(shè)計界面從工具箱中選擇不同的控件，然后在用戶窗體上按下鼠標左鍵，拖動即可將控件添加到用戶窗體。從工具箱選擇“文本框”，添加到用戶窗體，右鍵該控件選擇屬性命令，在屬性窗口設(shè)置其名稱為“txtHelloMsg”。選擇“命令按鈕”，添加到用戶窗體,屬性窗口設(shè)置其名稱為“cmdHello”，Caption 為“Hello”。雙擊處于設(shè)計狀態(tài)的窗體，VBA IDE 自動打開代碼窗口，選擇代碼窗口上方的對象名和右側(cè)的事件，這里我們選擇Click事件，這時金字塔將新建一個名為“rmMyHelloWorld_cmdHello_Click”的過程，這個過程稱為事件，當用戶點擊按鈕，此過程內(nèi)的代碼就會執(zhí)行。在此過程中輸入如下代碼：Sub rmMyHelloWorld_cmdHello_Click() = Hello, My VBA!End Sub按Alt+F8彈出宏運行窗口，選擇我們剛才建立的frmMyHelloWorld窗體，單擊按鈕，文本框的文字將會變成“Hello, My VBA!”（圖36）。圖35 代碼與事件顯示窗口圖36運行的My First Form 這就是用戶窗體編程的基本概念，我們可以操作的窗體，文本框，按鈕等都是對象，準確來說，都是ActiveX 控件，通過對這些對象的可視化設(shè)計，設(shè)置其屬性，然后在其事件內(nèi)寫入需要的操作?？偠灾?，用戶窗體是VBA 中的一個對象，我們可以通過設(shè)置其屬性、調(diào)用其方法、響應其事件來操作用戶窗體和其之上的控件，當用戶對用戶窗體的元素進行操作時（通過鼠標、按鈕），響應的事件就會被執(zhí)行，這種編程模式就叫做事件驅(qū)動的編程模式。我們可以創(chuàng)建一個過程來顯示設(shè)計好的用戶窗體。（2）事件驅(qū)動 下面介紹一下事件的有關(guān)概念。事件簡單來說，就是由用戶或者系統(tǒng)觸發(fā)的、可以在代碼中響應的一段代碼。例如，我們移動鼠標、點擊窗體和按鈕、敲擊鍵盤、窗體的顯示移動等等都會產(chǎn)生一系列的事件，通過編寫代碼中響應這些事件，當發(fā)生此類事件時，例如單擊了一個按鈕，程序代碼就會進行相應的操作。例如在前邊的例子中，在按鈕單擊事件中（cmdHello_Click()），我們書寫了改變文本框文本的代碼。窗體、窗體上的控件都定義了很多事件，例如鼠標移動、單擊等事件。用戶窗體編程時，編寫一個事件的響應代碼可以在代碼編輯器上方左側(cè)的“對象框”選擇對象，然后在其右側(cè)的“過程/事件框”選擇響應的事件，即可定位或創(chuàng)建這個事件。（3）使用控件 用戶窗體編程的大部分工作就是在工具箱選擇合適的工具，放置到用戶窗體，設(shè)置其屬性。工具箱中包含了一系列可以放置到窗體的控件，例如標簽（Label）控件，可以顯示靜態(tài)文本，文本框（TextBox）可以顯示動態(tài)的可編輯文本?？梢灾苯訌墓ぞ呦鋵⒖丶献У酱绑w上的合適位置，通過拖拽設(shè)置大小、位置，在屬性窗口設(shè)置其屬性。用戶窗體以及工具箱的常用控件包含有一些通用的屬性、方法和事件（不一定所有控件都有）這些屬性、方法和事件描述如下：BackColor 屬性：控制控件的背景色。Caption 屬性：在控件上顯示的文本，不能被用戶改變。Change 事件：當控件的Value 屬性改變時調(diào)用。Click 事件：用戶在控件上單擊鼠標時調(diào)用。ControlTipText 屬性：當用戶鼠標指針停留在控件上時顯示的提示信息。DblClick 事件：用戶在控件上雙擊鼠標時調(diào)用。Enabled 屬性：當為True 時，會獲取焦點并響應用戶操作。Enter 事件：在控件獲取了焦點后觸發(fā)。Exit 事件：當控件的焦點轉(zhuǎn)移到其他控件時發(fā)生。Font 屬性：表示控件的字體樣式。ForeColor 屬性：表示控件的前景色，如控件上字體的顏色Height 屬性：表示控件的高度。Left 屬性：表示控件左側(cè)距窗體左側(cè)的距離。Locked 屬性：當為True 時，用戶無法改變其內(nèi)容。Name （名稱） 屬性: 表示控件的名稱。SpecialEffect 屬性：控件的顯示效果，例如平面效果之類。TabIndex 屬性：設(shè)置控件在窗體中的Tab 順序。TabStop 屬性：當用戶使用Tab 鍵設(shè)置焦點到此控件后，控件是否接受焦點。Top 屬性：控件距窗體上部的距離。Value 屬性：一般包含控件的狀態(tài)或者內(nèi)容。Visible 屬性：為True 則顯示在窗體上，否則不顯示。Width 屬性：控件寬度。 Top，Left，Width 和Height 的單位都是以磅（Point）為單位。Value 屬性的具體含義與控件的類型有關(guān)，當Value 改變時，都會觸發(fā)Change 事件。Click 和DblClick事件發(fā)生在用戶單擊或雙擊鼠標時，一般來說，客戶代碼往往都包含在Click 事件中，例如下拉列表框的選擇，按鈕的點擊等。對 VBA 用戶窗體中的控件的介紹和應用如果有疑問請及時參閱隨機附帶的VBA編程手冊(幫助菜單VBA編程信息和Microsoft 窗體參考)。（4）調(diào)試 VBA 代碼 程序設(shè)計過程中，經(jīng)常需要定位錯誤位置并改之，此過程常稱為調(diào)試。VBA 中第一類錯誤為語法錯誤，如果你打開了代碼編輯器的“自動語法檢查”，則當你輸入了一條錯誤的語法時，VBA IDE 會即時給出一條提示信息。 第二類錯誤為運行錯誤。運行錯誤是指造成應用程序停止運行的任何錯誤。有時這是由于錯誤的拼寫，例如對象名字。VBA 不會檢查這種類型的錯誤，除非運行該過程。運行錯誤也可能是用戶的操作所引起的，而用戶的操作不是你所能控制和預測的。例如，如果用戶不給你編寫的函數(shù)提供數(shù)據(jù)，就有可能產(chǎn)生運行錯誤。對于此類情況，就需要寫錯誤處理代碼。最后一種可能出現(xiàn)的錯誤是邏輯錯誤。邏輯錯誤不會顯示在 IDE，問題在于代碼的執(zhí)行結(jié)果和預期的結(jié)果不同，這就意味著代碼的邏輯或算法出了問題。隨著對語言和環(huán)境的熟悉，大部分的調(diào)試時間可能都用在對邏輯錯誤的處理上。 ，這個函數(shù)可以在金字塔下方的消息窗口輸出指定的文本，可以對程序進行跟蹤判斷和調(diào)試。舉例如下:Dim iFor i = 1 To 10 Step 1 iNext（5）錯誤處理 所謂調(diào)試，就是對可以預測的問題進行處理并進行糾正的過程。調(diào)試只能夠發(fā)現(xiàn)可以預測的錯誤，要處理不可預測的和不可避免的錯誤時，就必須使用錯誤處理。通過啟用錯誤處理，就可以使應用程序更穩(wěn)