この記事では、VBAでの条件分岐に使用する、Ifステートメントの使用方法を解説します。
基本構文から、Elseif・Else を使った複数条件や、ネスト（入れ子）構造の記述方法を解説します。
また、Goto・Exit Sub ステートメントなど、後続処理をスキップする方法についても解説していきます。
＊IfステートメントはIf文とも呼ばれますが、この記事ではIfステートメントと表記します。
VBA関連解説
Ifステートメントの構文
VBAでは、条件によって処理を変えたい場合に、Ifステートメントがよく使用されます。
基本的な記述方法から、複数条件・ネストまで、例示しながら解説していきます。
１条件：１処理
1つの条件を判定し、真：True の時に処理を実行します。
最も基本の構文です。
If＿Then 構文
If 条件１ Then 条件１が真の時の処理１ End If
If＿Then 例
Dim num as Long num = 1 If num = 1 Then MsgBox "数は１です。" End If
"数は１です。" が表示されます。
１条件：２処理
1つの条件を判定し、真：True と偽：False の時にそれぞれの処理を実行します。
Elseの後に偽の時の処理を書きます。
If＿Then＿Else 構文
If 条件１ Then 条件１が真の時の処理１ Else 条件１が偽の時の処理２ End If
If ＿Then＿Else 例
Dim num as Long num = 2 If num = 1 Then MsgBox "数は１です。" Else MsgBox "数は１ではありません。" End If
"数は１ではありません。" が表示されます。
２条件：２処理
2つの条件を判定し、真：True の時にそれぞれの処理を実行します。
ElseIfの後に条件を追加します。
If＿Then＿ElseIf 構文
If 条件１ Then 条件１が真の時の処理１ ElseIf 条件２ Then 条件２が真の時の処理２ End If
If＿Then＿ElseIf 例
Dim num as Long num = 2 If num = 1 Then MsgBox "数は１です。" ElseIf num = 2 Then MsgBox "数は２です。" End If
"数は２です。" が表示されます。
２条件：３処理
2つの条件を判定し、真：True の時にそれぞれの処理を実行します。さらに、偽：False の時に別の処理を実行します。
ElseIfの後に条件を追加します。Elseの後に偽の時の処理を書きます。
If＿Then＿ElseIf＿Else 構文
If 条件１ Then 条件１が真の時の処理１ ElseIf 条件２ Then 条件２が真の時の処理２ Else 条件１・２が偽の時の処理３ End If
If＿Then＿ElseIf＿Else 例
Dim num as Long num = 3 If num = 1 Then MsgBox "数は１です。" ElseIf num = 2 Then MsgBox "数は２です。" Else MsgBox "数は１・２ではありません。" End If
"数は１・２ではありません。" が表示されます。
複数条件
複数の条件を判定し、真：True の時にそれぞれの処理を実行します。さらに、偽：False の時に別の処理を実行します。
ElseIfの後に条件を追加していきます。Elseの後に偽の時の処理を書きます。
If＿Then＿ElseIf＿Else 構文
If 条件１ Then 条件１が真の時の処理１ ElseIf 条件２ Then 条件２が真の時の処理２ ElseIf 条件３ Then 条件３が真の時の処理３ ElseIf 条件４ Then 条件４が真の時の処理４ Else 条件１・２・３・４が偽の時の処理５ End If
If＿Then＿ElseIf＿Else 例
Dim num as Long num = 5 If num = 1 Then MsgBox "数は１です。" ElseIf num = 2 Then MsgBox "数は２です。" ElseIf num = 3 Then MsgBox "数は３です。" ElseIf num = 4 Then MsgBox "数は４です。" Else MsgBox "数は１・２・３・４ではありません。" End If
"数は１・２・３・４ではありません。" が表示されます。
ネスト（入れ子）
Ifステートメントの条件の中で、さらに条件分岐をすることをネスト（入れ子）といいます。
条件処理の中で、さらに条件を判定し、真：True の時にそれぞれの処理を実行します。
Ifステートメントの中にIfステートメントを追加していきます。
If＿(If＿Then＿ElseIf)＿Then＿ElseIf＿(If＿Then＿ElseIf)＿Else 構文
If 条件１ Then If 条件３ Then 条件１・３が真の時の処理１ ElseIf 条件４ Then 条件１・４が真の時の処理２ End If ElseIf 条件２ Then If 条件５ Then 条件２・５が真の時の処理３ ElseIf 条件６ Then 条件２・６が真の時の処理４ End If Else 条件１・２が偽の時の処理５ End If
If＿(If＿Then＿ElseIf)＿Then＿ElseIf＿(If＿Then＿ElseIf)＿Else 例
Dim num as Long num = 3 If num < 3 Then If num = 1 Then MsgBox "数は１です。" ElseIf num = 2 Then MsgBox "数は２です。" End If ElseIf num > 3 Then If num = 4 Then MsgBox "数は４です。" ElseIf num = 5 Then MsgBox "数は５です。" End If Else MsgBox "数は３です。" End If
"数は３です。" が表示されます。
後続処理をスキップする方法
GoToステートメント
GoToステートメントは、GoTo後述の処理名：の記述部分まで、プログラムをスキップさせる構文です。
If＿(GoTo)＿Then 構文
Sub TEST() If 条件1 Then GoTo 処理名 '→ここからスキップ End If 後続処理 処理名: 処理1 '←ここまでスキップ End Sub
GoToステートメントは、Ifステートメントと組み合わせて使われ、条件が成り立った場合に、後続処理を飛ばして、処理名：の記述部分までスキップします。
GoToステートメントは、GoTo記述の前にもスキップできますが、処理が分離してしまうので、可読性の観点からも、適度な使用をこころがけましょう。
Exit Sub ステートメント
Exit Subステートメントは、プロシージャを抜けてサブプロシージャの呼び出し元にスキップさせる構文です。End Subにスキップするのではなく、プロシージャ自体を抜けます。
If＿(Exit Sub)＿Then 構文
Sub TEST() If 条件1 Then Exit Sub '→ここからスキップ End If 後続処理 End Sub '←ここまでスキップ
Exit Subステートメントは、Ifステートメントと組み合わせて使われ、条件が成り立った場合に、後続処理を飛ばして、プロシージャ自体も抜けます。
異常値の回避判定の時などに、よく使用されます。
注意点等
詳細にわたり注意点等を確認していきます。
１行構文
Ifステートメントは、条件と処理を１行にまとめて記述することができます。
If＿Then 構文１
If 条件１ Then 条件１が真の時の処理１ End If
１条件：１処理の基本構文を１行にまとめて記述すると、構文２のようになり、End If は必要ありません。
If＿Then 構文２
If 条件１ Then 条件１が真の時の処理１
構文１をブロック形式、構文２を１行形式と呼びます。１行形式で記述できるのは、処理命令が単独の場合だけです。
ただし１行形式は、デバック時に 条件に問題があるのか 処理に問題があるのかが判り難いことと、可読性の観点からも、あまり使用せずにブロック形式で記述していきましょう。
複数条件の可読性
Ifステートメントは、条件が増えてくると可読性が低下していきます。
インデントを有効に使用したり、変数やサブプロシージャを活用して処理部分の記述を短くし、可読性を上げていきましょう。ネストについても、多くても３階層ぐらいに留めましょう。
また、複数条件の場合に可読性をあげるには、Select Caseステートメントを使用する方法もあります。
下記の記事では、VBAでの条件分岐に使用する、Select Caseステートメントの使用方法を解説していますので、参考にしてください。
演算子
Ifステートメントの構文例ででてきた、"＝" や "＜" などは演算子とよばれ、値の比較などに使われます。
演算子には、"＝" "＜" などの比較演算子、その他、算術演算子や論理演算子、文字列比較に使われるLike演算子などがあります。
演算子の詳細は下記の記事で解説していますので、記事を参考に演算子の使い方を理解して、さまざまな条件を設定できるようになりましょう。
概要解説に戻る
