If・ElseIf・Elseで3通りに条件分岐する
If・ElseIf・Elseで、数値を複数の条件に分けて表示します。
実行前に確認
- 上から順に判定し、最初に成立した枝だけを実行します。数値の範囲が重なる場合は条件の順番に注意します。
- 負の在庫を許さない実務処理では、別途入力チェックを加えます。
- Excel実機での動作は未確認です。コピーした練習用ブックで試してください。
1サンプルコード
Option Explicit
Sub Example7014()
Dim stock As Long
stock = 3
If stock = 0 Then
MsgBox "在庫なし"
ElseIf stock < 5 Then
MsgBox "補充が必要"
Else
MsgBox "在庫あり"
End If
End Sub図で見るIf・ElseIf・Elseで3通りに条件分岐するの流れ
イメージ図If・ElseIf・Elseで、数値を複数の条件に分けて表示します。
入力・開始時
stock=3
実行する処理
0ではなく5未満なのでElseIfの枝へ進む
結果
補充が必要
セルの値や既存のファイルを変更しない例です。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
デスクトップ版Excelで練習用ブックを.xlsm形式で保存します。Alt＋F11→［挿入］→［標準モジュール］を選び、空のモジュールの先頭にこの例全体を貼り付けます。
- 2
書き換えは不要です。まず例の値のままで試し、値や変数名を変える場合は同じ名前の箇所も揃えます。
- 3
Example7014のSub内にカーソルを置き、F5キーで実行します。
- 4
stockが3なので「補充が必要」と表示されます。0なら「在庫なし」、5以上なら「在庫あり」です。