【マクロVBA】If …Thenで条件分岐・判別をする!Elseで異なる処理パターンも可能に

セルの文字・数値や処理結果によって処理方法を分けたい・変えたいときはないでしょうか。
そんな時はIfを使えば可能になります。

さらにElseを使用することで条件にあった処理と異なる処理を分けることもできます。

複雑なシステム・計算をするときにはとても役立つと思うので是非参考にしてください。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム
■If Then の構造
■実践
■練習問題
⬛︎公式
■よくあるエラーと対処法
1. ・Ifブロックに対応するEnd Ifがありません。
■まとめ

■忙しい人向けのコピペ用プログラム

赤字の条件式は指定したい条件を入力して活用してください

Sub IFによる条件分岐()

If 条件式 Then
　　'正しい場合の処理
　Else
　　'異なった場合の処理
End If

End Sub

■If Then の構造

まずは構造から見ていきましょう。

If 条件式　Then

’正しい場合の処理

Else

’異なった場合の処理

End If

If 条件式　Thenの説明

まずIfで条件分岐をすることを宣言します。
スペースを開けて条件式を入力します。その後のThenで条件式の完了を宣言します。

次の行で正しい場合の処理を入力します。

Elseの説明

条件式で異なった場合の処理を分けたい場合は入力します。
異なった場合を入力した場合はElseの次の行に処理プログラムを入力します。

入力しなけれなEnd Ifまで飛びます。

End If

End IfでIfの終わりを宣言します。

■実践

・通常の使用方法

それでは実践です。
見本で下図のシートを用意しました。

数値がB行にランダムに入っている状態です。
その隣のC行に偶数か奇数を判別して入力していきます。

偶数・奇数の判別式は今回は詳しく説明しませんが下記の式を判別式にします。
Ｂ3の「56」を偶数・奇数の判断式に直すと…

If Cells(3, 2).Value Mod 2 = 0 Then

このようになります。

「Mod 2」は2で割った際のあまりの数値を算出する機能があります。

つまり、B3を2で割って「1」余れば奇数。「0」になれば偶数になる計算式となります。

ではFor Nextを使用して繰り返し実行するようにプログラミングしましょう。

Sub 偶数or奇数()

Dim A As Long

For A = 3 To 10 Step 1

　If Cells(A, 2).Value Mod 2 = 0 Then
　　Cells(A, 3) = “偶数”

　Else
　　Cells(A, 3) = “奇数”

　End If

Next A

End Sub

このようになりました。
では実行してみましょう。

正しく実行できてますね。

・Elseを使用せずに実施

先ほどは偶数であれば「偶数」と出力、奇数であれば「奇数」と出力しましたが

場合によっては偶数の時のみ「偶数」と1つのパターンのみでいい時もあると思います。

その際はElseを省略することも可能です。

先ほどのプログラムと比較しましょう。

If Cells(A, 2).Value Mod 2 = 0 Then
Cells(A, 3) = "偶数"
Else
Cells(A, 3) = "奇数"
End If

上記のプログラムを偶数のみ「偶数」と出力するようにしてみましょう。

Elseを取り除いたプログラムはこのようになります。

If Cells(A, 2).Value Mod 2 = 0 Then
Cells(A, 3) = "偶数"
End If

これで１パターンのみの出力が可能になりました。

・Ifの条件分岐先でさらにIfを使用する

If …Thenは条件分岐先でも使用することができ、複数の条件分岐が可能です。

例えば先ほどの「偶数」「奇数」の２パターンの条件分岐を

「５０以上の偶数」・「５０以下の偶数」・「５０以上の奇数」・「５０以下の奇数」

の４パターンの出力にしてみたいと思います。

プログラムはこのようになります。

Sub 偶数or奇数()

Dim A As Long

For A = 3 To 10 Step 1

If Cells(A, 2).Value Mod 2 = 0 Then
　If Cells(A, 2).Value >= 50 Then
　　Cells(A, 3) = “50以上の偶数”
　Else
　　Cells(A, 3) = “50以下の偶数”
　End If

Else

If Cells(A, 2).Value >= 50 Then
　　Cells(A, 3) = “50以上の奇数”
　Else
　　Cells(A, 3) = “50以下の奇数”
　End If

End If

Next A

End Sub