VBA IF文条件分岐を行うサンプル

VBAのIF文のサンプルです。条件で処理を分岐する時に使用します。Excel、Accessとも同じです。

if文	if文とは / if文のサンプル / ネストの構造 if文の中にif文
	値の一部で比較する(like演算子)
	比較演算子
論理演算子	論理積のAnd演算子 AかつB / 論理和のOr演算子 AまたはB
	論理否定のNot演算子 Aではない

if文とは

If (条件) Then 　　処理 End If '条件がtrueの時のみ処理しfalseでは処理しない
'Elseを書く場合 If (条件) Then 　　処理 Else 　　処理 End If '条件がtrueとfalseでそれぞれ処理する
'ElseIfとElseを書く場合 If (条件) Then 　　処理 ElseIf (条件) Then 　　処理 Else 　　処理 End If '複数の条件と条件にあてはまらない場合の書き方

条件が合致する場合、配下の処理が実行され、if文の処理は終了します。
条件が合致することをtrue(真)ともいいます。
条件が合致しないことをfalse(偽)ともいいます。
条件が合致しない場合、配下の処理は実行されず、その下(ElseIf/Else/if文終了)に進みます。
ElseIfは、複数記述できます。省略可です。
Elseの処理は、どの条件も合致しなかったときに実行されます。Elseは１つのみ記述できます。省略可能です。

if文のサンプル

Sub test1()
    Dim num As Integer
    num = 1
    
    If num = 0 Then
        Debug.Print "0です"
        
    ElseIf num = 1 Then
        Debug.Print "1です" '1ですが表示される 
            
    Else
        Debug.Print "それ以外です" 
            
    End If
End Sub

5行目からif文が始まります。
8行目のif文はtrueになるのでその配下の処理が実行されます。
9行目の処理が実行されif文を抜けます。

ネストの構造 if文の中にif文

Sub test1()
    Dim num1, num2 As Integer
    num1 = 1
    num2 = 1
    
    If num1 = 1 Then
        If num2 = 1 Then
            Debug.Print "1です" '1ですが表示される
        End If
    End If
End Sub

7行目は、if文の中にif文を記述しています。ネストの構造です。入れ子ともいいます。
6,7行目は、trueになり文字列が表示されます。

値の一部で比較する(like演算子)

like演算子とアスタリスク(*)で、前方一致、部分一致、後方一致の比較ができます。

Sub test1()
    Dim str1 As String
    str1 = "みかん"
 
    If str1 Like "み*" Then
        Debug.Print "OK" 'OKが表示される
    End If
    
    If str1 Like "み*ん" Then
        Debug.Print "OK" 'OKが表示される
    End If
    
    If str1 Like "*かん" Then
        Debug.Print "OK" 'OKが表示される
    End If
    
    If str1 Like "みかん*" Then
        Debug.Print "OK" 'OKが表示される
    End If
End Sub

アスタリスク(*)は、0以上の任意の文字を表します。

比較演算子

比較演算子は、2つの値を比べて条件を満たしていればtrue,そうでない場合はfalseを返します。

比較演算子	説明
a = b	aとbの値は等しい
a <> b	aとbの値は等しくない
a > b	aはbより大きい
a >= b	aはbより大きいまたは等しい
a < b	aはbより小さい
a <= b	aはbより小さいまたは等しい

論理積のAnd演算子 AかつB

if (左の条件式) And (右の条件式) Then

If文でAND演算子を使用する場合、
AND演算子の左の式と右の式の両方が条件に合致する場合にtrueになります。

Sub test1()
    Dim num1, num2 As Integer
    num1 = 2
    num2 = 2
    
    If (num1 = 2) And (num2 = 2) Then
        Debug.Print "OK" 'OKが表示される
    Else
        Debug.Print "NG"
    End If
End Sub

6行目は、左の式と右の式が共にtrueなので、trueになります。

論理和のOr演算子 AまたはB

if (左の条件式) Or (右の条件式) Then

If文でOR演算子を使用する場合、
OR演算子の左の式または右の式のどちらかが条件に合致する場合にtrueになります。

Sub test1()
    Dim num1, num2 As Integer
    num1 = 1
    num2 = 2
    
    If (num1 = 2) Or (num2 = 2) Then
        Debug.Print "OK" 'OKが表示される
    Else
        Debug.Print "NG"
    End If
End Sub

6行目は、左の式はfalseですが右の式がtrueなのでtrueになります。

論理否定のNot演算子 Aではない

if Not (条件式 ) Then

条件式がfalseの場合にtrueになります。
条件式がtrueの場合にfalseになります。

Sub test1()
    Dim a, b As Integer
    a = 1
    
    If Not (a = 2) Then
        Debug.Print "1" '1が表示される
    End If
    
    If Not (a = 1) Then
        Debug.Print "2"
    Else
        Debug.Print "3" '3が表示される
    End If
End Sub

5行目は値の比較でfalseになり、それを否定するのでtrueになります。
9行目は値の比較でtrueになり、それを否定するのでfalseになります。