エクセルマクロ(EXCEL VBA) その8 ElseIfを使った条件分岐（If ElseIf）
前回その7でIfによる条件分岐について学びました。
今回はその続きです。
割合が80％以上の場合に「好調！」と付けることができるようになったわけですが、今回はさらに
60％以上、80％未満の場合は「もう少し！」、
60％未満の場合は「がんばれ！」と出るようにしてみます。
前回はここまで書いていましたので、この続きから書き入れていきます。
Ifの条件文の後に、
60％以上、80％未満の場合は「もう少し！」
という条件を入れたいので、
ElseIf 0.6 <= Cells(i, 5) And Cells(i, 5) < 0.8 Then
Cells(i, 6) = "もう少し！"と、書き足して足してください。
これは、数学でいうところの不等式っぽい条件ですね。
60％以上というのが 0.6 <= Cells(i, 5)の部分で、
80％未満というのが Cells(i, 5) < 0.8 の部分です。
それを And でつないで、60％以上 かつ 80％未満 と表現しているわけです。
これで実行すると、
うまいこと、「もう少し！」を入れることができました。
では続いて、60％以下の条件についても記述してみましょう。
どうすればいいか、予想付きましたでしょうか？
ElseIf Cells(i, 5) < 0.6 Then
Cells(i, 6) = "がんばれ！"ですね。
これを実行すると、
うまく行きました！
券売数を変えて試してみてください。
計画した通りになりましたでしょうか？
試しに0.8や0.6を変更してみて、うまく動作するか実験してみても面白いと思います。
ここまでやってくると、
『やっぱり「好調！」は太字にしたい』とか
『いちいちマクロの画面に行って実行を押すのがめんどくさい』とか
もっと楽に、いい感じにできないだろうかと思ってきませんか？
次回は、エクセルマクロの調べ方と、ボタンを配置する方法についてご紹介します。
今回の最終的なコード
Sub kenbai_hantei()
For i = 2 To 4
If Cells(i, 5) >= 0.8 Then
Cells(i, 6) = "好調！"
ElseIf 0.6 <= Cells(i, 5) And Cells(i, 5) < 0.8 Then
Cells(i, 6) = "もう少し！"
ElseIf Cells(i, 5) < 0.6 Then
Cells(i, 6) = "がんばれ！"
End If
Next
End Sub
宿題-8
この表で、判定の文字を、
がんばれ→青 もう少し→オレンジ、好調→赤
になるようにしてください。
もくじ（エクセルマクロ EXCEL VBA）
→ 他にどんな作業ができたら便利か思いついたらぜひ教えてください！（うまく実現できるかわからないけど・・・。）
http://entre-news.jp/contact
（文：森脇孝／エントレ）
最近の記事
5
13
3
152
11
11
17
12
12
37
22
20
1
13
≫もっと見る
編集部ピックアップ！
エントレがおすすめする他の舞台
