- VBAでの条件分岐
- 「もし〜なら〜する」という書き方です
文法
If 条件文1
条件1に当てはまった時の処理
ElseIf 条件文2
条件1に当てはまらず、条件2に当てはまった時の処理
Else
条件1にも2にも当てはまらなかった時の処理
End If
| 演算子 |
意味 |
例 |
説明 |
| = |
等しい |
a = 10 |
aは10と等しい |
| <> |
等しくない |
a <> 10 |
aは10ではない |
|
小なり |
a < 10 |
aは10より小さい |
| <= |
以下 |
a <= 10 |
aは10以下 |
| > |
大なり |
a > 10 |
aは10より大きい |
| >= |
以上 |
a >= 10 |
aは10以上 |
| 演算子 |
例 |
意味 |
| And |
条件文1 And 条件文2 |
条件文1も条件文2も満たす場合 |
| Or |
|
条件文1 Or 条件文2 |
条件文1もしくは条件文2を満たす場合 |
| Not |
Not 条件文 |
条件文を満たさない場合 |
サンプル
- 変数(myAge)の値によって、メッセージが変わるプログラムです
変数myAgeが19以下ならアラート "未成年ですね"
変数myAgeが20以上30以下なら "大人ですね"
変数myAgeが30以上なら "売れ残りですね" を表示します
Option Explicit
Sub myIfElse()
Dim myAge As Integer
myAge = 29
If myAge >= 30 Then
MsgBox "売れ残りですね"
ElseIf myAge >= 20 Then
MsgBox "大人ですね"
ElseIf myAge <= 19 Then
MsgBox "未成年ですね"
Else
MsgBox "何も言うことはありません"
End If
End Sub
