« «
» »

エラー処理

・無視して次を実行し最後にエラーの有無を確認

Sub エラー時中断()
    
    'エラー時中断
    On Error GoTo myErrorLabel
    
    '【ここにマクロ処理】
    
    'エラーがなければエラー処理をせずにマクロ終了
    Exit Sub
    
'エラー時処理
myErrorLabel:
    MsgBox "エラー番号:" & Err.Number & vbCrLf & _
                "エラーの種類:" & Err.Description, vbExclamation

End Sub

・エラー発生時に中断してエラー処理

Sub エラーでも継続()
'エラーがあっても無視して進んでマクロ終了後にエラーがあったら報告
    
    'エラー時無視してマクロ処理続行
    On Error Resume Next
    
    '【ここにマクロ処理】
    
    '最後にエラー有無チェック
    If Err.Number <> 0 Then
        MsgBox "エラーが発生しました" & vbCrLf & _
               Err.Description, vbExclamation
    End If

End Sub

＊

officetanaka.net
 
Office TANAKA - Excel VBA Tips[エラーに負けない]
http://officetanaka.net/excel/vba/tips/tips104.htm

 

This entry was posted on 土曜日, 11月 21st, 2020 at 10:04 AM and is filed under VBA. You can follow any responses to this entry through the RSS 2.0 feed. Responses are currently closed, but you can trackback from your own site.