条件分岐処理 If・・・Then・・・ElseIf ステートメント

解説

条件が複数に分かれているとき、それぞれの条件で処理を変えたいときに使います。

書式

If 条件式A Then
   条件式Aが真(True)のときに実行する処理
 ElseIf 条件式B Then
   条件式Bが真(True)のときに実行する処理
 ElseIf 条件式C Then
   条件式Cが真(True)のときに実行する処理
 Else
   全ての条件式が偽(False)のときに実行する処理
EndIf

使用例

Sub Sample()
 Dim Tokuten As Integer
 If Tokuten > 90 Then
   MsgBox "優秀です。"
 ElseIf Tokuten > 70 Then
   MsgBox "合格です。"
 ElseIf Tokuten > 50 Then
   MsgBox "レポート提出です。"
 Else
   MsgBox "再試験です。"
 End If
End Sub

(この項終わり)