※全ての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
このようになります。