一、條件控制IF

if 邏輯表達式 then語句塊 end if

　　帶else的if語句：

　If 邏輯表達式1 Then 語句塊1ElseIf 邏輯表達式2 Then 語句塊2ElseIf 邏輯表達式3 Then 語句塊3…Else語句塊nEnd If

二、條件判斷Select/Case

Select Case 測試表達式Case 條件表達式1語句塊1Case 條件表達式2語句塊2Case 條件表達式3語句塊3......Case 條件表達式n語句塊nCase Else語句塊ElseEnd Select.

　　示例：

Sub test()If [a1].Value = "" ThenMsgBox "A1單元格沒有輸入數字。"Exit Sub '? ???退出程序End IfSelect Case [a1].ValueCase 0 To 29MsgBox "差"Case 30 To 59MsgBox "不及格"Case 60 To 79MsgBox "及格"Case 80 To 89MsgBox "良好"Case ElseMsgBox "優秀"End Select End Sub

三、循環控制For/Next

For 循環變量＝初值 to 終值 step 步長循環體1[exit for]循環體2next 循環變量

　　示例：（步長默認為1，next后的循環變量可以省略 ）

Sub mysum()Dim Lsum As Long, i As LongFor i = 1 To 1000Lsum = Lsum + iNextMsgBox "1到1000的自然數和為：" & Lsum End Sub

　　//更多實例，參考開篇鏈接

四、循環控制For/Each

For Eacn 元素變量 In 對象集合或數組名稱語句塊1[Exit For]語句塊2 next 元素變量

　　//與上一個循環類似，這里采用元素變量從對象集合中取得方式

五、循環控制Do/While

Do Wihle 循環條件語句塊1[Exit Do]語句塊2LoopDo 語句塊1[Exit Do]語句塊2Loop Wihle 循環條件

　　//示例暫略

六、循環控制Do/Until

Do Until 循環條件語句塊1[Exit Do]語句塊2LoopDo 語句塊1[Exit Do]語句塊2Loop Until 循環條件

　　//與Do/While相反的是為真時退出

七、循環控制GoTo

Sub mysum() Dim Lsum As Long, i As Long i = 1 x: '為go to 語句設置的標簽，必須以英文狀態下的冒號結尾Lsum = Lsum + ii = i + 1 If i <= 1000 Then GoTo x '如果i<=1000,則程序跳到標簽X處 MsgBox "1到1000的自然數和為：" & Lsum End Sub

?

轉載于:https://www.cnblogs.com/jiangbei/p/9359664.html

總結

以上是生活随笔為你收集整理的excel的宏与VBA入门（三）——流程控制的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。