【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
|
すらすら読めるExcelVBA
|
VBA逆引き大辞典
|