Home » エクセルマクロ・Excel VBAの使い方 » 条件分岐 » VBAで#N/Aエラーを判定する－CVErr関数・WorksheetFunction.IsNAメソッド

VBAで#N/Aエラーを判定する－CVErr関数・WorksheetFunction.IsNAメソッド

動作検証バージョン：Windows版Excel（バージョン1903 ビルド11425.20202）

「VBA #N/A なら」
「VBA N/A の場合」
「エクセル VBA N/Aのしょり」
といった検索キーワードでのアクセスに気が付きました。

Excel VBAで#N/Aエラーが発生しているときの判定を、どう行えばいいのかを探していた方による検索です。

詳細は不明ですが、

If ActiveCell.Value = "#N/A" Then

といった形で判定を行おうとしていらしたのではないかと想像しています。

［スポンサードリンク］

CVErr関数を使って#N/Aエラーを判定するサンプルマクロ

以下のSubプロシージャが参考になるでしょう。

Sub NAエラーを判定する_CVErr()
　If IsError(ActiveCell.Value) Then

　　MsgBox "何らかのエラーが発生しています。"
　　If ActiveCell.Value = CVErr(xlErrNA) Then
　　　MsgBox "#N/Aエラーです。"
　　Else
　　　MsgBox "#N/Aエラーとは別のエラーです。"
　　End If

　Else
　　MsgBox "エラーは発生していません。"

　End If
End Sub

アクティブセルに#N/Aエラーが発生しているときに、
「何らかのエラーが発生しています。"」
「#N/Aエラーです。」
と2回メッセージボックスが表示されます。

セル内にエラーが発生しているかどうかだけならば、VBAのIsError関数で判定できます。

#N/Aエラーかどうかまで判定するには、上記コードのようにVBAのCVErr関数の引数に、

XlCVError列挙型に定義されている定数xlErrNAを指定し

返される値と比較する必要があります。

#N/AエラーをVBAでセルに入力する

WorksheetFunction.IsNAで#N/Aエラーを判定するサンプルマクロ

VBAで、セル内で発生するエラーの判定を細かく行おうとすると面倒だということを知った上で、単純に#N/Aエラーを判定するだけならば、ISNA関数を

VBAから利用するのが簡単です。

Sub NAエラーを判定する_WorksheetFunction()
　If WorksheetFunction.IsNA(ActiveCell.Value) Then
　　MsgBox "#N/Aエラーです。"
　Else
　　MsgBox "#N/Aエラーは発生していません。"
　End If
End Sub

最終更新日時：2022-12-20 11:12

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » 条件分岐 » VBAで#N/Aエラーを判定する－CVErr関数・WorksheetFunction.IsNAメソッド

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「条件分岐」の記事一覧