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

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で判断したほうが良いでしょう。

関連記事

• • SelectCaseで複雑な条件をTrueで判定する
  • 複数の条件をわかりやすく記述する【Select Caseステートメント】
  • 条件に応じた処理を行う【Ifステートメント】
  • 記号を用いてデータを比較する【比較演算子】
  • 複数の条件を指定し処理を行う【論理演算子】