Excel 2013　マクロ講座InputBoxの情報から条件分岐

ユーザーに情報を入力してもらうのは、InputBox関数
[構文]
InputBox(Prompt, Title, Default, Xpos, Ypos, HelpFile, Context)
引数のPrompt以外は省略可能です。

「条件１」に一致する場合は「処理1」を実行
「条件１」に一致しない場合で「条件2」に一致する場合は「処理２」を実行
「条件１」「条件2」のいずれにも一致しない場合は「処理3」を実行
それ以外は「処理4」を実行

ユーザーにテストの点数を入力してもらい、優秀、まあまあ、危険、追試と判断を下すマクロです。
条件分岐は4通り

点数＞＝80　・・・優秀
点数＞＝60　・・・まあまあ
点数＞＝40　・・・危険
点数＜　40　・・・追試

変数として点数を宣言します。
Dim 点数 As Integer

点数は、InputBoxから入力してもらいます
点数 = InputBox("テストの点数は何点ですか？", "テスト結果")

ここから条件分岐です。
もし点数が80点以上なら、MsgBoxでほめる。
If 点数 >= 80 Then
MsgBox ("優秀です")

もし点数が60点以上なら、MsgBoxで少しほめる。
ElseIf 点数 >= 60 Then
MsgBox ("まあまあです")

このように4通りの分岐をしていきます。

出来上がったコードを見てみましょう。

Sub テストの結果()
    Dim 点数 As Integer
    点数 = InputBox("テストの点数は何点ですか？", "テスト結果")
    If 点数 >= 80 Then
    MsgBox ("優秀です")
    ElseIf 点数 >= 60 Then
    MsgBox ("まあまあです")
    ElseIf 点数 >= 40 Then
    MsgBox ("危険です")
    Else
    MsgBox ("追試です")
    End If
End Sub
    

マクロを実行すると、インプットボックスが表示されます。

点数を入力すると、条件の判定を行い処理を実行します。

上記のコードでは、へそ曲がり君が 文字を入力した場合や[キャンセル]ボタンをクリックした場合は工ラーになってしまいます。
工ラー回避する場合は、まず変数をVariant バリアント型にします。
また数値が、入力されたら処理を続行し、文字列が入力された場合は処理を中止するようにしましょう。 入力されたデータが数値かどうかを調べるために、ここではIsNumeric関数を使用します。

Sub テストの結果2()
    Dim 点数 As Variant
    点数 = InputBox("テストの点数は何点ですか？", "テスト結果")
    If IsNumeric(点数) Then
      If 点数 >= 80 Then
        MsgBox ("優秀です")
      ElseIf 点数 >= 60 Then
        MsgBox ("まあまあです")
      ElseIf 点数 >= 40 Then
        MsgBox ("危険です")
      Else
        MsgBox ("追試です")
      End If
    Else
      MsgBox ("数値が入力されませんでした。終了します。")
    End If
End Sub
    

今日はこれまでです。お疲れ様でした。