Hatena::ブログ(Diary)

はけの徒然日記 このページをアンテナに追加 RSSフィード

2005 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2006 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 04 | 05 | 08 | 09 | 10 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 10 | 11 |
2011 | 01 | 02 | 03 | 04 | 11 | 12 |
2012 | 02 | 03 | 05 |
2014 | 02 | 03 | 04 | 05 | 12 |
2015 | 05 | 07 | 08 | 09 | 10 | 11 | 12 |
2016 | 01 | 02 | 04 |

2016-02-07(Sun)

EXCEL VBAメモ - エラー処理

Option Explicit

Sub test()
    On Error GoTo ErrHandler 'エラー発生時のジャンプ先
    Dim a As Long
    
    a = 1 / 0  ' エラー発生
    MsgBox "エラー発生行の次へジャンプしました。"
    Exit Sub

Label1:
    MsgBox "Label1へジャンプしました。"
    Exit Sub
    

' エラー処理を行う。
ErrHandler:
    ' Errオブジェクトからエラー情報が得られる。
    MsgBox Err.Number & vbCrLf & Err.Description '=> 11(改行)0で除算しました。
    
'   Resume        ' エラー発生行へ戻る(このサンプルでは無限ループになる)
'   Resume Label1 ' Label1へジャンプ
    Resume Next   ' エラー発生行の次行へジャンプ

End Sub

投稿したコメントは管理者が承認するまで公開されません。

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

トラックバック - http://d.hatena.ne.jp/hake/20160207/p1