VBAでIsErrorを使ったエラー判定│数式のエラー有無を判定する

この記事では、VBAのIsError関数を使ってセルの数式や結果にエラーが発生していないかどうかを判定する方法を、実際のVBAコードも含めて紹介します。

IsError関数はExcelでもお馴染みの関数ですが、ある程度、Excelの関数を使いこなせているユーザー向けの関数かと思います。

VBAにおいても、IsErrorを使うのは脱初心者かつ実用的な活用をし始めた頃でしょう。

では早速、IsError関数を使ったエラー判定のVBAコードを見ていきましょう。

VBA│IsError関数で数式のエラー判定をする

この章では、セルA1とセルA2に入力されている数式のエラーに対して、エラーかどうかを判定するVBAコードを紹介します。なお、セルA1とセルB2の両方のエラーを準備しているのは、異なるエラー種別においても適正に判定することができることを確かめるためです。

基本構文

IsError(Expression)

• IsError = エラーを判定する関数
• (Expression) = エラー判定をする対象のセル
  この例では、A1とA2です

Expressionは、Range等を用いて指定するセルの範囲です。

IsError関数はエラー判定の結果を、True か False で返します。

Rangeプロパティ

Sub Sample()

Dim s1 As String , s2 As String
s1 = IsError(Range(“A1”).Value)
s2 = IsError(Range(“A2”).Value)

MsgBox s1 & vbCrLf & s2

End Sub

応用編│列に含まれるエラーの数をカウントする

この章では、A列に入力されている数式についてセルA1からセルA11まで、順番にエラーが発生していないかどうかを判定するVBAコードを紹介します。判定結果であるエラーのセル数は、最後にメッセージボックスで表示させます。

列に含まれるエラー数をカウントするVBAコード

Sub Sample()

・・・①
Dim i As Long, c As Long, s As String

c = 0

・・・②
For i = 1 To 10
s = IsError(Range(“A” & i).Value)

・・・③
If s = True Then
c = c + 1
Else

End If
Next

・・・④
MsgBox c

End Sub

この例のような処理を自動化する場合には、通常、Excelの最終行を求めて、最終行分、判定を繰り返すようにプログラミングするのですが、今回は省略して、予めForで行数を設定しています。