EXCEL VBA On Error Goto の使い方

EXCEL VBA On Error Goto の使い方

Sub ERROR01()
    
    Dim Gokei, Ninzu   As Integer
    
        On Error GoTo err_shori   'エラーが発生した場合のジャンプ位置を指定します。
        
        
        Gokei = inputBox("合計金額の値を入力してください")
        Ninzu = inputBox("割り勘人数を入力してください")
        
    
        MsgBox "人数での割り勘金額は、" & Gokei / Ninzu & "円です。"     '入力した値の計算
    
    Exit Sub
    
    
err_shori:    'エラーが発生した場合は、この場所に飛びます。
        
        MsgBox "正しく数字を入力してください"


End Sub

EXCEL VBA  Resumeの使い方

Sub ERROR02()
    
    Dim Tate, Yoko   As Integer
    Dim Moji As String
    
        On Error GoTo err_shori   'エラーが発生した場合のジャンプ位置を指定します。
        
Input_shori:
        Tate = InputBox("縦の値を入力してください")
        Yoko = InputBox("横の値を入力してください")
        
    
        MsgBox "縦×横は、面積は、" & Tate * Yoko & "平方メートルです。"     '入力した値の計算
    
    Exit Sub  'Exit　Subでプログラムを終了します。
    
    
err_shori:    'エラーが発生した場合は、この場所に飛びます。
        
        MsgBox "正しく数字を入力してください"
        
        Resume Input_shori  'Resumeで”Input＿Shorini戻ります。
        
End Sub

●処理実行