【VBAスタンダードに挑戦！】
本日の５分勉強の内容
********************************************************
エラー処理
・エラーが発生した場合の処理を準備しておき、
エラーが発生したときのその処理を実行させる
・On Error GoTo ラベル名
コードの最初、またはエラーが発生すると予想される箇所に記述する
・ラベル名：（コロンも必要）
コロン以下にエラーの時の処理を記述する
Sub Sample100
Dim Num As Long
On Error GoTo Warn
Num = InputBox("数字を入力してください")
MsgBox Num & " です。"
Exit Sub 'エラー処理に進んでしまうので、ここで終了させる
Warn: '数字が入力されなかった場合の処理
MsgBox "数字ではありません"
End Sub
＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／
