VBAのIF文で条件分岐をマスターしよう｜IF Else文の使い方も解説

VBAで条件分岐を使いたいけれど、どう書けばいいのかわからない…。
このようなことで悩んでいませんか？

お悩みpoint

• IF文を使いたいけれど、条件によって異なる処理をどう書き分ければいいのか分からない。
• IF Else文の使い方がよくわからない。
• 複数の条件を使った複雑な処理をどう組み立てればいいのか悩んでいる。

この記事では、VBAのIF文やIF Else文を使った条件分岐の方法を詳しく解説します。

基本的な構文から実際の業務で役立つ応用例まで、初心者でもすぐに実践できる内容です。

ぜひ最後までお読みください。

【　この記事の概要　】

この記事を見てできるようになること

この記事を読むことで、以下のことができるようになります。

VBAにおけるIF文とは？

VBAのIF文は、指定した条件が「真」か「偽」かを判断し、それに応じて異なる処理を実行するための構文です。
条件分岐とも呼ばれ、プログラムの流れをコントロールする際に頻繁に使用されます。

VBAのIF文には、以下の3種類があります。

IF文の基本構成

まず、IF文の基本的な構成を理解しましょう。

この構文では、「条件式」が「真」の場合に、Then以下の「真の処理」が実行されます。
条件が「偽」の場合は、何も行われません。

【 使用例 】

If Range("A1") = 1000 Then
    Range("B1") = Range("A1") * 10
End If

基本的にこのように3行使用し記載することが一般的です。

しかし、IF文は1行で簡潔に記載することも可能です。

例えば、セルA1の値が10以上である場合に「A1は10以上です」とメッセージを表示するコードは、以下のように1行で書くことができます。

If Range("A1").Value >= 10 Then MsgBox "A1は10以上です"

この方法は、短い条件分岐を記述する際に便利です。

IF Else文の基本構成

次に、IF Else文について説明します。

IF Else文は、条件式が「真」の場合に「真の処理」を行い、その他の場合に「偽の処理」を行うことができます。

使用例

If Range("A1") = 1000 Then
    Range("B1") = Range("A1") * 10
Else
    Range("B1") = Range("A1") * 100
End If

これにより、条件に応じて2つの異なる処理を選択できるようになります。

複数の条件を扱う場合：IF ElseIf文

複数の条件を評価する場合は、IF ElseIf文を使用します。

IF ElseIf文は、条件式1が「真」の場合に「Aの処理」を行い、条件式2が「真」の場合に「Bの処理」、その他の場合に「Cの処理」を行うことができます。

これにより、複数の条件を順に評価し、最初に「真」となる条件の処理を実行します。

使用例

If Range("A1") = 1000 Then
    Range("B1") = Range("A1") * 10
ElseIf Range("A1") = 100 Then
    Range("B1") = Range("A1") * 100
Else
    Range("B1") = Range("A1") * 1000
End If

これにより、条件が複数ある場合でも、効率的に条件分岐を行うことができます。

より詳しい情報は、Microsoft公式 – If…Then…Else ステートメントを使用するを参照してみてください。

IF文を使うにあたっての注意ポイント

IF文は非常に便利ですが、いくつかのデメリットがあります。
特に以下の点に注意し、それに対する対策も考慮することが重要です。

IF分の使用例を紹介します。

それでは、IF分の使用例について解説します。

使用例1: 基本的な If 文

基本的な IF ～ End If 文の使用方法を紹介します。

例えば、変数「cellValue」に入力された数値が10以上かどうか？を判定するコードです。

Sub CheckValue()
    Dim cellValue As Long
    
    cellValue = 100

    If cellValue >= 10 Then
        MsgBox "A1の値は10以上です"
    End If
End Sub

動作結果

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、Excel VBAのIF文を使った基本的な条件分岐の使用例を示しています。
セル「A1」に設定された値が「10以上」である場合にメッセージを表示するシンプルな例です。
IF文は、より複雑なロジックを構築する際の基本となる構文であるため、確実に覚えておきましょう。

使用例2: IF文で「Is」演算子を使用

Is演算子を使ったIF文の例を紹介します。

Is演算子は、2つのオブジェクトが同一であるかどうかを判定する場合に使用します。
一致する場合は「True」、一致しない場合は「False」を返します。

以下のコードは、Ws1とWs2が同じシートを指しているかどうか？を判定します。

Sub CheckObjectEquality()
    Dim Ws1 As Worksheet
    Dim Ws2 As Worksheet

    Set Ws1 = ThisWorkbook.Sheets(1)
    Set Ws2 = ThisWorkbook.Sheets(1)

    If Ws1 Is Ws2 Then
        MsgBox "Ws1とWs2は同じシートを指しています"
    Else
        MsgBox "Ws1とWs2は異なるシートを指しています"
    End If
End Sub

処理結果

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• Is演算子 (2つのオブジェクトが同じかチェック)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、Is演算子を使って2つのワークシートオブジェクトが同一かどうかを確認する方法を示しています。
オブジェクト同士の比較は、特に同一性を確認したい場合に非常に重要です。
この例では、同じシートを指しているかどうかを確認し、結果をメッセージボックスで表示するシンプルな処理を行っています。
VBAでオブジェクトの同一性を確認する際には、Is演算子が役立ちます。

使用例3: IF文で「Like」演算子を使用

Like演算子を使ったIF文の例を紹介します。

Like演算子は、文字列が特定のパターンに一致するかどうか?を確認する場合に使用されます。
Like演算子では、ワイルドカードを使ってパターンマッチングを行うことができます。

以下のコードは、セルA1に入力された文字列が特定の形式に一致するかどうかを判定します。

Sub CheckPattern()
    Dim cellValue As String
    
    cellValue = Range("A1").Value

    If cellValue Like "A####" Then
        MsgBox "A1は'A'で始まり、続く4文字が数字です"
    Else
        MsgBox "A1の値は指定のパターンと一致しません"
    End If
End Sub

処理結果

このコードで使用している機能

• Dim (変数)
• Like演算子 (文字列のパターンチェック)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、Like演算子を使ってセル「A1」の値が特定のパターンに一致するかどうかを確認する方法を示しています。
ワイルドカードを使用することで、文字列のパターンマッチングを柔軟に行うことができ、条件に合致した場合や合致しなかった場合に応じた処理を実行します。
特定の形式のデータを確認したり、フィルタリングする際に非常に便利なテクニックです。

使用例4: IF文を1行で記載

IF分で、条件分岐を1行で記載する方法を紹介します。
簡単な条件分岐であれば、IF文を1行でシンプルに記述することが可能です。

この例では、セルA1に入力された数値が10以上かどうかを判定し、その結果をメッセージボックスで表示します。

Sub CheckValueOneLine()
    Dim cellValue As Long
    
    cellValue = Cells(1, 1)
    
    If cellValue >= 10 Then MsgBox "A1の値は10以上です"
End Sub

処理結果

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、IF文を1行で記述し、セルA1の値が10以上かどうかを確認する方法を示しています。
この方法は、コードをシンプルかつ直感的に書くために非常に有効です。
特に短いロジックでは、1行のIF文を使用することでコードの可読性が向上します。

使用例5: IF ～ Else ～ End If 文を使用

IF ～ Else ～ End If 文の使用方法を紹介します。

以下のコードでは、セルA1に入力された数値が10以上かどうかを判定し、10以上の場合とそれ以外の場合で異なるメッセージを表示します。

Sub CheckValueWithElse()
    Dim cellValue As Long
    
    cellValue = Range("A1").Value

    If cellValue >= 10 Then
        MsgBox "A1の値は10以上です"
    Else
        MsgBox "A1の値は10未満です"
    End If
End Sub

処理結果

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、IF ～ Else ～ End If 文を使用して、条件に応じた異なる処理を実行する方法を示しています。
この方法は、複数のケースに対して異なる処理を行う際に非常に役立ちます。
IF ～ Else ～ End If 文を理解することで、より柔軟なVBAプログラムを作成できるようになります。

使用例6: IF ～ ElseIf ～ Else ～ End If 文の使用 (複数の条件を評価する)

IF ～ ElseIf ～ Else ～ End If 文の使用方法を紹介します。

このコードでは、セルA1に入力された数値が100以上、50以上、またはそれ未満かどうかを判定します。

Sub CheckMultipleValues()
    Dim cellValue As Long
    
    cellValue = Range("A1").Value

    If cellValue >= 100 Then
        MsgBox "A1の値は100以上です"
    ElseIf cellValue >= 50 Then
        MsgBox "A1の値は50以上100未満です"
    Else
        MsgBox "A1の値は50未満です"
    End If
End Sub

処理結果

このコードで使用している機能

• Dim (変数)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、IF ～ ElseIf ～ Else ～ End If 文を使用して、複数の条件に応じた異なる処理を実行する方法を示しています。
複数の条件を評価する際には、この構文を用いることでコードの可読性を保ちながら、効率的に処理を行うことが可能です。

さらに、Select Case文を使用することで、条件が多い場合にはより整理されたコードを記述することができます。

Select Case文で同じ処理を記載した例

同じ条件分岐をSelect Case文で記述すると、以下のようになります。
Select Case文を使用すると、複数の条件を整理して記述することができ、コードがより分かりやすくなります。

Sub CheckMultipleValuesSelectCase()
    Dim cellValue As Long
    
    cellValue = Range("A1").Value

    Select Case cellValue
        Case Is >= 100
            MsgBox "A1の値は100以上です"
        Case Is >= 50
            MsgBox "A1の値は50以上100未満です"
        Case Else
            MsgBox "A1の値は50未満です"
    End Select
End Sub

この例では、Select Case文を使うことで、条件ごとの処理を整理して記述しています。
Select Case文は、特に条件が多い場合にIF ElseIf文よりも可読性が高く、メンテナンスがしやすくなるという利点があります。

Select Case文については、別記事で解説していますので、そちらをご覧ください。

VBAでの条件分岐をシンプルに！Select Case文の使い方

VBAのSelect Case文を使って、複数の条件をシンプルに分岐処理する方法を解説します。基本的な使い方から応用例まで、初心者でもすぐに理解できる内容です。IF文とSelect Case文の使い分けも紹介！

zangyo-free.com

2024.08.12

まとめ

ポイントのおさらい

さらに学ぶために

この記事を通じて、IF文を使った条件分岐の基礎をしっかりと理解し、実務に役立つスキルを習得できることを目指しました。

今後もVBAの知識を深めていくことで、さらに高度なプログラムを構築できるようになります。

サイトマップ

VBAワークシート関数 VBA 基本設定 VBAとは？ VBAの始め方 VBAのおすすめ設定 セル操作 RangeとCells CurrentRegion Offset Resize 最終行・最終列の取得 変数 変数 オブジェクト変数 グロ...

zangyo-free.com

2024.08.28