【VBA道場】#12　条件分岐（IF文）

問題

A1に入力された値が80以上なら、B1のセルに「合格です」と表示、80未満なら「不合格です」と表示せよ。

完成見本

解答

Sub vba_doujyou_12()

’もしA1の値が80以上だったら
If Sheets("Sheet1").Range("A1").Value >= 80 Then
    Range("B1").Value = "合格です！"　　　’B1セルに「合格です！」と入力
Else　　　　’そうでなければ
    Range("B1").Value = "不合格です"　　　’B1セルに「不合格です」と入力
End If

End Sub

サンプルファイル（マクロ有）

今回のマクロはこちらからダウンロードしてご使用いただけます。

VBA道場12 サンプルファイル（マクロ有）

1 ファイル 13.20 KB

ダウンロード

解説

If 条件 Then
      処理1
Else
      処理2
End If

ある条件によって分岐を書く時には、Ifステートメントを使います。
IfとThenの間には条件を書きます。

If Sheets("Sheet1").Range("A1").Value >= 80 Then

今回は「A1のセルの値が80以上の場合」というのが条件になります。

Thenの後ろには、実行したい処理を記述します。

Range("B1").Value = "合格です！"

今回は、B1セルに「合格です！」と表示させます。

Elseは、「条件に当てはまらなかった場合」を指します。
その下に条件が当てはまらなかった場合の処理を書きます。

Range("B1").Value = "不合格です"

今回は、「B1」セルに「不合格です」と表示させました。

終わりに

今日は条件分岐について学習しました。

条件分岐はVBAに限らず非常によく使われます。
しっかりとマスターしましょう！今日はここまで！

おすすめ参考書

Amazon

たった1秒で仕事が片付くExcel自動化の教科書

いちばんやさしいExcelVBAの教本

ExcelVBA逆引き辞典　パーフェクト

楽天

いちばんやさしいExcelVBA

いちばんやさしいExcel　VBAの教本　人気講師が教える実務に役立つマクロの始め方／伊藤潔人【1000円以上送料無料】 価格：2420円（税込、送料無料) (2021/4/22時点) 楽天で購入

すらすら読めるExcelVBA

スラスラ読めるExcel　VBAふりがなプログラミング [ リブロワークス ] 価格：2035円（税込、送料無料) (2021/4/22時点) 楽天で購入

VBA逆引き大辞典

Excel　VBA逆引き辞典パーフェクト第3版 [ 田中亨 ] 価格：2838円（税込、送料無料) (2021/4/22時点) 楽天で購入