【IF...THEN...語句】

If condition Then

[statements1]

else

[statements2]

end if

condition 為一個邏輯表達式，表示做選擇時需要判別的條件，其結果為布爾類型，當其值為真時，執行statements1語句，為假是則執行ELSE中statements2語句

【代碼區域】

Private Sub 測試if()Dim age As Integerage = InputBox("請輸入年齡", "輸入年齡窗口")If (age >= 18) ThenMsgBox "已經成年", vbOKOnly, "判斷結果"ElseMsgBox "未成年", vbOKOnly, "判斷結果"End If End Sub

【IF嵌套語句】

IF condition Then?

[statements1]

[Elseif condition2 then statements2]

[Elseif condition3 then?statements3]

...

[Elseif conditionN then?statementsN]

Else statements?

End if

【代碼區域】

Private Sub 測試if嵌套()Dim age As Integerage = InputBox("請輸入年齡", "輸入年齡窗口")If (age <= 6) ThenMsgBox "童年", vbOKOnly, "判斷結果"ElseIf (6 < age And age <= 17) ThenMsgBox "少年", vbOKOnly, "判斷結果"ElseIf (17 < age And age <= 40) ThenMsgBox "青年", vbOKOnly, "判斷結果"ElseIf (41 < age And age <= 65) ThenMsgBox "中年", vbOKOnly, "判斷結果"ElseMsgBox "老年", vbOKOnly, "判斷結果"End If End Sub

【Select Case語句】

Select Case testexpression

[Case expressionlist - n]

[statements-n]...

[Case Else

[elsestatements]]

End Select

【代碼區域】

Private Sub case測試() Dim age As Integer age = InputBox("請輸入年齡", "輸入年齡窗口") Select Case ageCase 0 To 6MsgBox "童年", vbOKOnly, "判斷結果"Case 6 To 17MsgBox "少年", vbOKOnly, "判斷結果"Case 17 To 40MsgBox "青年", vbOKOnly, "判斷結果"Case 40 To 65MsgBox "中年", vbOKOnly, "判斷結果"Case ElseEnd Select End Sub

【Tips】

在Select Case中需要注意上下界問題，例如："Case 0 to 6"表示6>=age>0

轉載于:https://www.cnblogs.com/OliverQin/p/6206946.html

總結

以上是生活随笔為你收集整理的【VBA编程】06.控制语句的全部內容，希望文章能夠幫你解決所遇到的問題。

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