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

「VBAで条件分岐を使いたいけれど、IF文をどう書けばいいのかわからない…。」
そんな悩みをお持ちではありませんか？

・VBAで条件分岐を書きたいけど、どう書けばいいの？

・IF文・IF Else文・ElseIfの違いがごちゃごちゃ…

・If文と合わせてAND・OR・Notは、どう使えばいいの？

VBAの条件分岐は、どんな業務自動化でも避けて通れない
基本テクニックです。
でも実は、書き方のルールと使い分け方さえ押さえれば
とてもシンプルに使えるんです。

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

初心者の方でも迷わず書けるように、コピペOKのコード例付きで丁寧に解説しています。
実務でよく使うパターンを中心に、「これが知りたかった！」という内容をギュッと詰め込みました。

ぜひ、最後まで読んで「VBAの条件分岐」をマスターしてください！

【　この記事の概要　】

VBAをしっかり学びたいけれど、「どこから始めればいいかわからない…」と迷っていませんか？

そんな方には、UdemyのVBA講座がおすすめです。

• 動画での丁寧な解説で、自分のペースで学べる
• 実務ベースのサンプルコードで、すぐに応用できる
• 繰り返し視聴OKだから、つまずいても安心

＼ 　今すぐ条件分岐をマスターしたい方はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

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

VBAのIF文とは？｜条件分岐の基本をわかりやすく解説

VBAにおける「IF文」は、条件によって処理の流れを変えるための構文です。
これは「条件分岐」とも呼ばれ、Excel VBAで最もよく使われる命令の一つです。

たとえばこんな使い方ができます👇

このように、IF文を使えば入力値に応じた自動処理を簡単に実現できます。
業務効率化・自動化の第一歩として覚えておきたい構文です。

VBAのIF分の記述方法詳細を解説 | 3パターンを解説します。

VBAで条件分岐を行う際は、主に以下の3つのパターンを使い分けます。

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

If Then文の基本構文とは？｜3行＆1行記述の使い分け方

VBAの「If Then文」は、最も基本的な条件分岐の書き方です。
指定した条件が「真（True）」の場合のみ処理を実行し、偽（False）のときは何もしません。

If Then文の基本的な書き方 | 3行で記述

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

■ 基本構文（複数行）

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

VBA If Then文を1行で書く方法｜簡単な条件分岐に最適

VBAでは、簡単な条件であれば1行で書くことも可能です。
短く済ませたいときや、処理が1つしかないときに便利です。

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

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

If Then文の使い分けの目安

ここまでが、基本の「If Then文」の使い方になります！
では次に、「条件が満たされなかった場合の処理」も記述できる「If Else文」の使い方を見てみましょう。

If Then Else文の基本構文とは？｜2つの処理を条件で分ける方法

VBAの「If Else文」は、指定した条件が「真（True）」なら「A」の処理を実行し、「偽（False）」の場合には別の処理「B」を実行する条件分岐（if文）の一種です。

たとえば、「数値が1000なら特別処理、そうでなければ通常処理」といったケースに使えます。

使用例

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

次は、複数の条件を評価して処理を分けたい場合に便利な「If ElseIf文」について詳しく見ていきましょう！

If Then ElseIf文の使い方｜複数の条件を順に評価して処理を分ける方法

VBAで3つ以上の条件を評価したいときに使うのが「If ElseIf文」です。
この構文を使えば、「Aの場合はこれ、Bならこれ、その他はこれ」といった多段階の条件分岐がスッキリ書けます。

使用例

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

 Select Caseとの違いは？

If ElseIf文と似た構文に「Select Case文」があります。
どちらを使ってもよいですが、以下のように使い分けるのがおすすめです

Select Case文についてもっと詳しく見たい方は、別記事で解説しているので、是非ご覧ください。

あわせて読みたい

VBA Select Caseで複数の文字列・条件を簡単処理！ワイルドカードや文字列比較の応用例も紹介 「VBAのIF分で複数の条件分岐を行うと、コードが複雑になってよく分からなくなる．．．」そんな悩みを抱えていませんか？ ・複数の条件をIF文で書くと、コードが複雑に...

VBAのIF文を使うときの注意点と書き方のコツ

VBAのIF文は非常に便利な構文ですが、使い方を間違えるとコードが読みにくくなったり、意図しない動作につながることがあります。

ここでは、初心者が特に気をつけたい「2つの注意ポイント」とその対策を紹介します。

注意点①：コードが長くなり、複雑になる

問題点

複数の条件を扱う場合、IF文を連続して書いたり、ネスト（入れ子）させることで、コードが長くなり、見通しが悪くなることがあります。

これにより、後でコードを見直す際に理解しにくくなり、バグが発生しやすくなります。

If A = 1 Then
    If B = 2 Then
        If C = 3 Then
            MsgBox "複雑すぎる…"
        End If
    End If
End If

対策

以下のような工夫で、コードの可読性と保守性をアップできます。

注意点②：条件の順序に注意する

問題点

IF文では、条件が上から順に評価されるため、条件の順序を誤ると、意図しない結果になることがあります。
例えば、複数の条件がある場合に、最も一般的な条件を最初に評価しないと、効率が悪くなることがあります。

If x > 10 Then
    '// 処理A
ElseIf x > 1000 Then
    '// 処理B
End If

対策

IF文を書く際には、最も一般的な条件や、プログラムの目的において重要な条件を先に評価するようにしましょう。

これにより、コードの効率が向上し、誤解を避けることができます。
また、条件の評価順序が重要であることを常に意識し、テストを行うことで正確な動作を確認することが大切です。

VBAのIF分の使用例をご紹介

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

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1: 基本的な If 文

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

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

コード例 | 基本的な If 文

Sub CheckValue()
    Dim cellValue As Long
    
    cellValue = 100

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

処理結果

コードの動作概要

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

1行ずつ解説

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

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

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

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

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

コード例 | IF文で「Is」演算子を使用

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

処理結果

コードの動作概要

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

1行ずつ解説

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

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

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

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

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

コード例 | IF文で「Like」演算子を使用

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

処理結果

コードの動作概要

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

1行ずつ解説

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

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

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

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

コード例 | IF文を1行で記載

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

処理結果

コードの動作概要

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

1行ずつ解説

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

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

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

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

コード例 | IF ～ Else ～ End If 文を使用

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

処理結果

コードの動作概要

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

1行ずつ解説

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

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

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

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

コード例 | IF ～ ElseIf ～ Else ～ End If 文の使用

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

処理結果

コードの動作概要

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

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のIF分で複数の条件分岐を行うと、コードが複雑になってよく分からなくなる．．．」そんな悩みを抱えていませんか？ ・複数の条件をIF文で書くと、コードが複雑に...

この記事のまとめ

ポイントのおさらい

さらに学ぶために

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

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

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「共通」を見る 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」...