10日で習得！VBA入門⑦If Thenステートメント

みなさん、こんにちは。今回はExcelマクロVBA入門の７回目です。

前回は、繰り返し処理と最終行数の取得について紹介しました。

今回は、If Thenステートメントについて紹介します。

学習用Excelファイルのダウンロードはこちらから↓

If Thenステートメント

ワークシート関数のIF関数は論理式を使って、条件を満たす場合の処理、満たさない場合の処理を分けることができました。

VBAにおいても、If Thenステートメントを使って同じことが可能になります。

条件を満たすかによって実行する操作を分けます。下記のように記述します。

IF　条件式　Then
　　操作A　　　　’条件を満たす場合に行う操作
Else　
　　操作B　　　　’条件を満たさない場合に行う操作
End　If

IFの後に条件を指定して、条件を満たす場合は「操作A」、条件を満たさない場合は「操作B」を実行します。

条件を満たさない場合に何も実行しない場合は、「Else」と「操作B」は省略

IF　条件式　Then
　　操作　　　　’条件を満たした場合の操作
End　If

条件式に使われる比較演算子

条件式には比較演算子を使います。

比較演算子とは、２つの値を比較した結果を「True」または「False」で返します。

演習問題（If Then)

レジュメ：「11.演習_IF」シート使用

演習①：「数学」が６０点以上は合格、それ以外は不合格を「判定」の列に入れます。

Sub 条件分岐()
    Dim i As Long
    For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 2) >= 60 Then
            Cells(i, 3) = "合格"
        Else
            Cells(i, 3) = "不合格"
        End If
    Next
End Sub

ElseIfを使った複数条件分岐

複数の条件を設定したい場合は、ElseIf文を使用します。

ElseIf文を使用することによって３つ以上の処理を分岐させることが可能になります。

下記のように記述します。

IF　条件式１　Then
 操作Ａ　　　’条件１を満たす場合に行う操作
ElseIf　条件式２　Then
 操作Ｂ　　　’条件１は満たさず、条件２を満たす場合に行う操作
Else
 操作Ｃ 　　’条件１と２を満たさない場合に行う操作
End　If

演習問題（ElseIf)

レジュメ：「11.演習_IF」シート使用

演習②：「数学」が８０点以上は◎、60点以上は〇、それ以外は×を「判定」の列に入れます。

Sub 条件分岐_2()
    Dim i As Long
    For i = 23 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 2) >= 80 Then
            Cells(i, 3) = "◎"
        ElseIf Cells(i, 2) >= 60 Then
            Cells(i, 3) = "○"
        Else
            Cells(i, 3) = "×"
        End If
    Next
End Sub

まとめ

If Thenステートメントについて紹介しました。

次回は、いよいよパズルを使った演習問題に入っていきます。