【VBA道場】#12 条件分岐(IF文)

ExcelVBA

【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

 

サンプルファイル(マクロ有)

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

 

解説

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

 

 

すらすら読めるExcelVBA

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

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

楽天で購入

 

 

 

VBA逆引き大辞典

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

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

楽天で購入

 

 

タイトルとURLをコピーしました