Excel VBAのIF文のサンプル

ExcelのVBAのIF文のサンプルです。

目次

if文

If (条件)  Then
  処理
ElseIf (条件)  Then
  処理
Else
  処理
End If
  • 条件がtrueの場合、配下の処理が実行され、if文の処理は終了します。
  • 条件がfalseの場合、配下の処理は実行されず、その下(ElseIf/Else)に進みます。
  • ElseIf は1つ以上記述できます。省略可。
  • Elseの配下の処理は、どの条件もtrueでなかったときに実行されます。
  • Elseは1つのみ記述できます。省略可。

コード

if文のサンプルです。

Sub test1()
    Dim num As Integer
    num = 1
    
    If num = 0 Then
        MsgBox "0です"
        
    ElseIf num = 1 Then
        MsgBox "1です" '1です 
            
    Else
        MsgBox "それ以外です" 
            
    End If
End Sub

8行目は、条件式がtrueになります。

ネストの構造

ネストの構造のサンプルです。

Sub test1()
    Dim num1, num2 As Integer
    num1 = 1
    num2 = 1
    
    If num1 = 1 Then
        If num2 = 1 Then
            MsgBox "1です" '1です
        End If
    End If
End Sub

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

 

And演算子

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
            MsgBox "OK" 'OKが表示される
    Else
            MsgBox "NG"
    End If
End Sub

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

 

Or演算子

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
            MsgBox "OK" 'OKが表示される
    Else
            MsgBox "NG"
    End If
End Sub

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

Not演算子

if  Not (条件式 ) Then
  • 条件式がfalseの場合にtrueになります。
  • 条件式がtrueの場合にfalseになります。
Sub test1()
    Dim a, b As Integer
    a = 1
    
    If Not (a = 2) Then
            MsgBox "1" '1が表示される
    End If
    
    If Not (a = 1) Then
            MsgBox "2"
    Else
            MsgBox "3" '3が表示される
    End If
End Sub

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

比較演算子

上記コードの=などは比較演算子です。

比較演算子は、2つの値を比べて真偽値(true/false)を返します。
条件を満たしていれば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より小さい または 等しい

関連の記事

Excel VBAのSelect Case文のサンプル
Excel VBAのFor文のサンプル
Excel VBAのDo Loop文のサンプル
Excel VBAのFor Each文のサンプル
Excel VBAの変数の宣言を強制するサンプル
Excel VBAのデータ型
Excel VBA セルを指定して値を設定/取得するサンプル
Excel VBA セルの値をテキストに出力するサンプル

△上に戻る