【文章內容簡介】
mp。 Chars 39。 將數字添加到字符串中 Next Chars 39。 Increment counter MyString = MyString amp。 39。 添加一個空格 Next Words 2) For Each… Next 語句 主要功能是對一個 數組或集合對象 進行,讓所有元素重復執(zhí)行一次語句 其作用就是遍歷一遍 數組或集合對象中的所有元素 For Each element In group ?group 必要參數。對象集合或數組的名稱(用戶定義類型的數組除外)。 Statements [Exit for] Statements Next [element] 如 1: For Each rang2 In range1 With .colorindex=6 .pattern=xlSolid End with Next 這上面一例中用到了 With… End With 語句,目的是省去對象多次調用,加快速度;語法為: With object [statements] End With 3) Do… loop 語句 在條件為 true 時,重復執(zhí)行區(qū)塊命令 Do {while |until} condition 39。 while 為當型循環(huán), until 為直到型循環(huán),顧名思義,不多說啦 Statements Exit do Statements Loop 或者使用下面語法 Do 39。 先 do 再判斷,即不論如何先干一次再說 Statements Exit do Statements Loop {while |until} condition 4) while… wend 語句 ,只要條件為 TRUE,循環(huán)就執(zhí)行 如下例: while condition ?while I50 [statements] ?I=I+1 wend 第十節(jié) 其他類語句和錯誤語句處理 這節(jié)可以省略 ,感興趣的話可以看看 一.其他循環(huán)語句 結構化程序使用以上判斷和循環(huán)語句已經足夠,建議不要輕易使用下面的語句,雖然 VBA還支持。 1) Goto line 該語句為跳轉到 line 語句行 2) On expression gosub destinatioinlist 或者 on expression goto destinationlist 語句為根據 exprssion 表達式值來跳轉到所要的行號或行標記 3) Gosub line… line… Return 語句, Return 返回到 Gosub line 行,如下例: Sub gosubtry() Dim num Num=inputbox(“輸入一個數字,此值將會被判斷循環(huán) ”) If num0 then Gosub Routine1 : num: Exit sub Routine1: Num=num/5 Return End sub ?Wend 二.錯誤語句處理 執(zhí)行階段有時會有錯誤的情況發(fā)生,利用 On Error 語句來處理錯誤,啟動一個錯誤的處理程序。語法如下: On Error Goto Line ?當錯誤發(fā)生時,會立刻轉移到 line 行去 On Error Resume Next ?當錯誤發(fā)生時,會立刻轉移到發(fā)生錯誤的下一行去 On Erro Goto 0 ?當錯誤發(fā)生時,會立刻停止過程中任何錯誤處理過程 第十一節(jié) 過程和函數 過程是構成程序的一個模塊,往往用來完成一個相對獨立的功能。過程可以使程序更清晰、更具結構性。 VBA 具有四種過程: Sub 過程、 Function 函數、 Property 屬性過程和 Ev