条件分岐 If文（If…Then…Else ステートメント）

サイト管理人

9年前

If…Then…Else ステートメントの使い方

【構文：単一行形式】
If condition Then [ statements ][ Else else_statements ]

【構文：ブロック形式】
If condition Then
　　statements

[ ElseIf condition1 Then ]
　　[ else_if_statements1 ]

[ ElseIf condition2 Then ]
　　[ else_if_statements2 ]

[ ・・・・・ ]

[ Else ]
　　[ else_statements ]

End If

【項目の説明】

condition ・・・真（True）か偽（False）を評価する条件式（数式・文字列式）を指定します。
statements ・・・ condition が真（true）の場合に実行されます。
「ブロック形式」の場合は省略可、「単一行形式」の場合は必ず指定します。
else_statements ・・・ Else 以前に定義されている条件がどれも真（True）でないときに実行されます。（省略可）
conditon1(2) ・・・真（True）か偽（False）を評価する条件式（数式・文字列式）を指定します。（省略可）
else_if_statements1(2) ・・・ condition1(2)が真（True）のときに実行されます。（省略可）

If…Then…Else ステートメント使用例

VBAソース

　
　
Sub Sample_if_statement_1()

　'単一行形式

    Dim Number As Integer

    Number = 252

    If Number > 100 Then MsgBox ("100より大きい") Else MsgBox ("100未満")
    
End Sub


Sub Sample_if_statement_2()
　'ブロック形式

　　Dim Number As Integer

    Number = 125

    If Number > 0 Then
        MsgBox Number & " は、正数です"
    
    ElseIf Number < 0 Then
        MsgBox Number & " は、負数です"
        
    Else
        MsgBox Number & " です"
    
    End If
    
End Sub

Sub Sample_if_statement_1()

　'単一行形式

Dim Number As Integer

Number = 252

If Number > 100 Then MsgBox ("100より大きい") Else MsgBox ("100未満")

End Sub

Sub Sample_if_statement_2()

　'ブロック形式

　　Dim Number As Integer

Number = 125

If Number > 0 Then

MsgBox Number & " は、正数です"

ElseIf Number < 0 Then

MsgBox Number & " は、負数です"

Else

MsgBox Number & " です"

End If

End Sub

If…Then…Else ステートメントのマクロ実行例

Sub Sample_if_statement_1()の実行例

Sub Sample_if_statement_2()の実行例