はじめに

プログラムは大きく2つの要素で成り立っています。

条件分岐(IF文)
繰り返し処理(For文、DoLoop文など)

今回はそのうちの1つである「条件分岐」について学習していきます。

条件分岐とは
IF文の書き方
1. IF文の例題
  1. コードの簡易説明
IF文～実践～
1. IF文～模範解答〜
条件式の作り方(比較演算子)
まとめ

条件分岐とは

条件分岐とは何か？簡単に言うと比較する文です。

2つ以上の値や式の結果を指定した条件で比較する式

例えば、あなたはりんごが好きですか？嫌いですか？の質問のような形です。

もし〜なら〜、〜でないなら〜のような形です。

少し英語に似ていますね。

IF文の書き方

基本的な書き方は下記のようになります。

If 条件式 Then
    実行する処理
Else
    実行する処理
End If

この形を覚えておきましょう！

IF文の例題

プログラムでりんごの質問を書くとこんな感じになります。

青色の下線マーカーのあるコードが今回の条件分岐文になります。

Sub Ex_IF()
    Dim rc As VbMsgBoxResult
    rc = MsgBox("あなたはりんごが好きですか？", vbYesNo + vbQuestion)
    If rc = vbYes Then
        MsgBox "好きを選択しました！"
    Else
        MsgBox "嫌いを選択しました！"
    End If
End Sub

コードの簡易説明

りんごが好きですか？の質問に対して、ユーザーがYesまたはNoをクリックします。

クリックした結果をIF文で条件分岐させています。

今回の場合、もしYesを選択していたら「好きを選択しました！」を表示する。

それ以外なら「嫌いを選択しました！」を表示する。と言う意味になります。

IF文～実践～

例題を3つ実践していきましょう。

EX_1 もしセルA1にりんごがある場合の処理
EX_2 もしセルA1にりんごがある場合とそれ以外の処理
EX_3 もしセルA1にりんごがある場合、空欄の場合、りんご以外がある場合

メッセージ通知を「○○が存在しました。」と言う形でそれぞれ行うことにします。

また、セルの選択はCells(1,1).Valueで統一します。

セルA1の中に「りんご」と入力したり「空欄」にしたりしてみてください。処理が切り替われば成功です。

また、後々の回でセルの選択方法について詳しく勉強しますので安心して今回は指示通り作成してください。

では、早速トライしてみましょう！

IF文～模範解答〜

Sub EX_1
    If Cells(1,1).Value = "りんご" Then
        MsgBox "りんごが存在しました！"
    End If
End Sub

Sub EX_2
    If Cells(1,1).Value = "りんご" Then
        MsgBox "りんごが存在しました！"
    Else
        MsgBox "りんご以外が存在しました！"
    End If
End Sub

Sub EX_3
    If Cells(1,1).Value = "りんご" Then
        MsgBox "りんごが存在しました！"
    Else If Cells(1,1).value = "" Then
        MsgBox "空欄です！"
    Else
        MsgBox "りんご以外が存在しました！"
    End If
End Sub

以上がサンプルの答えとなります。