エクセルのマクロでIserrorを使用したいのですが

質問

マクロで、シートの中のセルのどこかにエラーがあれば、処理を中断するようにしたいと考えています。
Iserrorをどのように使えばよいのでしょうか？

回答No.1

hana-hana3 · ベストアンサー

Dim c As Range

For Each c In Range("A1:C10")
If IsError(c) Then
MsgBox "Error !"
Exit Sub
End If
Next

回答No.3

KenKen_SP

こんな手もありますね^^

Sub Sample()

　　Dim r As Range
　　On Error Resume Next
　　Set r = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
　　On Error GoTo 0
　　If r Is Nothing Then
　　　　MsgBox "Err値なし"
　　Else
　　　　r.Select
　　　　MsgBox "Err値あり"
　　End If

End Sub

回答No.2

zap35

On Error Goto文を使う方法も考えられますね

Sub Macro1()
On Error Goto Err0
' 処理
Exit Sub
Err0:
　MsgBox "Error " & Error
End Sub