- Excel VBA 質問スレ Part34
671 ：デフォルトの名無しさん[sage]：2014/09/28(日) 16:28:14.43 ID:g4uidbB6 - On Error GoTo err_prc:
i = 1
Do
i = i + 1
If Cells(i, 6) <> Cells(i, 8) Then
MsgBox "値不一致 & Cells(i, 1) & " 行：" & i
cverr(1000) '←
GoTo err_prc
End If
kensu = kensu + 1
Loop Until Cells(i, 1) = ""
If Err.Number = 0 Then
MsgBox "完了 件数 ：" & kensu & "件"
End If
Exit Sub
err_prc:
'Err処理
MsgBox "登録異常 " & Cells(i, 1) & " 行:" & i & vbCrLf & _
" 内容：" & Err.Description, vbCritical
End Sub
On Error の中でチェックをしつつ処理をするようにしています。
ここで質問ですけど、自分でエラーコードを設定することは出来ないんでしょうか？
cverr(1000) '←
のようにすると文法エラーになってしまうんですが。
| - Excel VBA 質問スレ Part34
673 ：デフォルトの名無しさん[sage]：2014/09/28(日) 19:01:56.11 ID:g4uidbB6 - >>672
If Cells(i, 6) <> Cells(i, 8) Then
Err.Raise 1000
GoTo err_prc
End If
err_prc:
If Err.Number = 1000 Then
MsgBox "値不一致 :" & Cells(i, 1) & " 行：" & i
Else
'それ以外のエラー
MsgBox "異常 " & Cells(i, 1) & " 行:" & i & vbCrLf & _
" 内容：" & Err.Description, vbCritical
End If
で出来ました。後はエラーコードがExcelが使ってるものと被らないように
エラーコードを調べておけば良いのかな。
ありがとうございます
| - Excel VBA 質問スレ Part34
675 ：デフォルトの名無しさん[sage]：2014/09/28(日) 19:49:48.37 ID:g4uidbB6 - >>674
まぁこの場合は
Err.Raise 1000
の後単純に
Exit Do
で良いのですが^^;
|
|