処理を分岐させる（ＩＦ構文）＠エクセルマクロＶＢＡ

エクセルのちょっとしたテクニックを紹介します。

ＶＢＡでは、条件によって処理を分岐させることが出来ます。ＶＢＡでコードを書くと頻繁に使う構文の一つです。ＩＦを使った処理分岐の構文は以下の通りとなります。

・構文１
Ｉｆ　条件文１　Ｔｈｅｎ
　　　処理１
Ｅｎｄ　Ｉｆ

※条件文１がＴｒｕｅなら、処理１を行うという意味です。
この場合、一行で書く書くと以下のようになります。
　Ｉｆ　条件文１　Ｔｈｅｎ　処理１

・構文２
Ｉｆ　条件文１　Ｔｈｅｎ
　　　処理１
Ｅｌｓｅ
　　　処理２
Ｅｎｄ　Ｉｆ
※条件文１がＴｒｕｅなら、処理１を行い、それ以外は処理２を行うという意味です。


構文２で条件分岐を増やすには、以下のようになります。

Ｉｆ　条件文１　Ｔｈｅｎ
　　　処理１
ＥｌｓｅＩｆ　条件文２　Ｔｈｅｎ　
　　　処理２
ＥｌｓｅＩｆ条件文３　Ｔｈｅｎ　
　　　処理３
Ｅｌｓｅ
　　　処理４
Ｅｎｄ　Ｉｆ

以下は、サンプルコードになります。試してみてくださいね。

Sub Test3()
　　Dim Num As Integer

　　Num = InputBox("数字を入力して下さい。")
　　If Num < 20 Then
　　　　MsgBox "未成年"
　　Else
　　　　MsgBox "成年"
　　End If
End Sub