概要 VBAの「IF Then Else」構文は、条件に応じて処理を分岐するための基本的な手法です。この記事では、単純な条件分岐から複数条件やネストした条件まで、具体例を通してこの構文の使い方を解説します。
基本例：単一条件での処理
構文
|
1 2 3 |
IF 条件式 Then 処理 END IF |
使用例１
|
1 2 3 4 5 6 7 |
Sub Example1() Dim score As Integer score = 80 If score >= 60 Then MsgBox "合格" End If End Sub |
解説
この例では、scoreが60以上の場合に「合格」というメッセージが表示されます。条件が成立したときのみ処理が実行され、不成立の場合はそのまま次の処理に進みます。
ElseIfを使った複数条件処理
構文
|
1 2 3 4 5 6 7 |
IF 条件式1 Then 処理1 ElseIf 条件式2 Then 処理2 Else 処理3 END IF |
使用例２
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub Example2() Dim score As Integer score = 75 If score >= 80 Then MsgBox "優" ElseIf score >= 60 Then MsgBox "合格" Else MsgBox "不合格" End If End Sub |
解説
この例では、80点以上なら「優」、60点以上なら「合格」、それ以下なら「不合格」と表示されます。ElseIfを使うことで、複数の条件を順に判定し、最初に成立した条件のみが実行されます。すべての条件が不成立の場合、Elseが実行されます。
Elseでの不成立時の処理
構文
|
1 2 3 4 5 |
IF 条件式 Then 処理1 Else 処理2 END IF |
使用例３
|
1 2 3 4 5 6 7 8 9 |
Sub Example3() Dim score As Integer score = 50 If score >= 60 Then MsgBox "合格" Else MsgBox "不合格" End If End Sub |
解説
この例では、scoreが60以上の場合は「合格」、それ以外の場合は「不合格」と表示されます。Elseを使うことで、条件が成立しなかったときの処理を簡単に指定できます。
ネスト（入れ子）を使った条件分岐
構文
|
1 2 3 4 5 |
IF 条件式1 Then IF 条件式2 Then 処理1 END IF END IF |
使用例４
|
1 2 3 4 5 6 7 8 9 10 |
Sub Example4() Dim score As Integer, attendance As Integer score = 75 attendance = 90 If score >= 60 Then If attendance >= 80 Then MsgBox "合格" End If End If End Sub |
解説
この例では、scoreが60以上で、さらにattendance（出席率）が80%以上の場合に「合格」と表示されます。ネストを使うと、複数の条件を段階的に判定できますが、コードの複雑化を避けるためにインデントやコメントを工夫しましょう。
まとめ
VBAのIF Then Else構文は、シンプルな条件分岐から複雑なロジックまで対応できる強力なツールです。条件分岐が複雑になる場合は、Select Case文を検討することで、コードの可読性をさらに向上させることができます。
コメント