#7　条件分岐を使ってみよう！【Excelマクロ講座】

分岐処理をしてみよう！

まずは簡単な例から！
セルA1に入力された値が奇数か偶数かメッセージボックスで教えてくれるマクロを作ってみよう。

Sub 奇数か偶数か()

If Range("A1").Value Mod 2 = 0 Then
    MsgBox "偶数"
End Sub

A1に好きな数字を入れて試してみてね！
入力した数字が偶数の時だけメッセージボックスが表示されるよ！

【解説】
If Range("A1").Value Mod 2 = 0 Then
If～Then…間に条件式を入れる
　Mod 2 = 0…「Mod」は「割り算の余り」を出す演算子。
　つまり「２で割って余りが0」ということは偶数の場合という意味！

条件が成立していない時の処理を追加！

Sub 奇数か偶数か()

If Range("A1").Value Mod 2 = 0 Then
    MsgBox "偶数"
Else
    MsgBox "奇数"
End If
  
End Sub

【解説】
Else…If～End Ifの間に「Else」を入れる。
　その下に条件が成立しなかったときの処理を書く。

複数の条件を指定してみる！

セルA１に入力された値が「青」「赤」「黄」のどれか判定して「すすめ！」「とまれ！」「ちゅうい！」と表示する信号機みたいなマクロを作ってみよう！
さっきと違うのは条件が２つ以上あること！

Sub 信号()

If Range("A1").Value = "青" Then
    MsgBox "すすめ！"
ElseIf Range("A1").Value = "赤" Then
    MsgBox "とまれ"
ElseIf Range("A1").Value = "黄" Then
    MsgBox "ちゅうい！"
Else
    MsgBox "該当なし"
End If

End Sub

【解説】
ElseIf Range("A1").Value = "赤" Then
　ElseIf～then…間に条件式を入れる
　同じ要領で複数条件を指定していける！
Else…上記のどの条件にも一致しなかった場合の処理

繰り返し処理と組み合わせて使ってみよう！

前回やった繰り返し処理と使えばぐーんとできることが増える！

ヒント：処理は入れ子にできる！

前回の講座↓

～～～シンキングタイム～～～

答え！

Sub 奇数の時は1足す()

Dim i As Variant


For i = 1 To 5

    If Cells(i, 1).Value Mod 2 <> 0 Then
    
        Cells(i, 1).Value = Cells(i, 1).Value + 1
        
    End If
    
Next i

End Sub

For～Nextの間にIfを入れるのがポイント！

【解説】
If Cells(i, 1).Value Mod 2 <> 0 Then
　<>0…今回は「偶数の時」ではなく「奇数の時」なので「＜＞」不等号を使って「〇〇以外」という式を使う！

ここまでお疲れさまでした！

◎これを解説して欲しい！などリクエストあれば、こちらからお気軽にどうぞ