関数・メソッド

いくつかの条件に応じて分岐処理を行う【Ifステートメント応用】【ExcelVBA】

2024.11.01

Ifステートメントの応用

IFステートメントは論理演算子と比較演算子を組み合わせることにより
「Aなら〇、Bなら△、Cなら□…」といった複数の条件を指定し、分岐処理を実行できます。

入力した数値によって表記を分岐させるサンプルコード

Public Sub sample()
     Dim num As Long
     num = InputBox("数値を入力してください")

     If num >= 120 And num <= 200 Then
        MsgBox "高すぎます"             '■120以上200以下の数値「高すぎます」
     ElseIf num >= 80 And num < 120 Then
        MsgBox "正常です"               '■80以上120未満の数値「正常です」
     ElseIf num >= 50 And num < 80 Then
         MsgBox "低すぎます"            '■50以上80未満の数値「低すぎます」
     Else
         MsgBox "測り直してください"    '■該当しない数値「測り直してください」
     End If
End Sub

注意点

  • 2つ目以降の条件は「ElseIf～Then」と記述します。
  • 条件が多くIf文だと視認性が損なわれてしまう場合は、Select Caseステートメントを使用してください。
    ※sample文の場合はSelectCaseの結果をTrueで判断したほうが良いでしょう。

関連記事

コメント