[VBA][Excel]例外処理　On Error GoTo

Tweet

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

下記を実行すると

Private Sub CommandButton1_Click()

Dim i As Integer
  
  
'例外発生時には GoTo で指定した行ラベルに移動します
  On Error GoTo er300

    i = 1
    Sheet1.Cells(i, 1) = CDate("14:55:58")
    i = 2
    Sheet1.Cells(i, 1) = CDate("14:55:59")
    i = 3
    Sheet1.Cells(i, 1) = CDate("14:55:60")
    i = 4
    Sheet1.Cells(i, 1) = CDate("14:56:00")


    Exit Sub


er300:
    Sheet1.Cells(i, 1) = CStr(i) + " 行目でエラーがありました"


End Sub

このようになります。