VBA IsError 関数

はじめに

Excel VBA マクロの IsError 関数を紹介します。

IsError 関数は、指定した値がエラーかどうかを判定します。

関数の戻り値やセルの値がエラーかどうかの判定に使用します。

構文

IsError(値)
値がエラーのときは True を返します。それ以外のときは False を返します。

引数「値」	判定したい値を指定します。
戻り値の型	ブール型 (Boolean)

解説

引数「値」が「CVErr 関数」で作成したエラーなら True を返します。それ以外の値なら False を返します。

引数「値」にセルのエラー #N/A や #VALUE! などを指定したときは True を返します。

関数が正常に行われたかどうかを判定できます。

使用例

Dim b As Boolean
Dim v As Variant

b = IsError(v)
Debug.Print(b) ' False

v = CVErr(1) ' エラーを返す関数など
b = IsError(v)
Debug.Print(b) ' True

Cells(1, 1).Value = CVErr(XlErrValue) ' #VALUE! を設定
v = Cells(1, 1).Value 
b = IsError(v)
Debug.Print(b) ' True

b = IsError("あいう")
Debug.Print(b) ' False

関数の戻り値が正常かエラーか判定する。

Sub 実行()
    Dim v As Variant
    v = Tips(10)

    If IsError(v) = False Then
        Debug.Print(v) ' 正常
    Else
        Debug.Print(v) ' エラー 60000
    End If

    v = Tips(0)

    If IsError(v) = False Then
        Debug.Print(v) ' 正常
    Else
        Debug.Print(v) ' エラー 60000
    End If
End Sub

Function Tips(ByVal i As Integer) As Variant
    If i = 10 Then
        Tips = "正常"
    Else
        Tips = CVErr(60000) ' システムエラー
    End If
End Function