即効テクニック |
● 概要 ● CVErr関数を利用すると、ユーザー定義関数をワークシートから呼び出した際に、関数の引数に適切な値が設定されなかった場合にエラーを表示させることができます。 構文 CVErr(Expression) 設定項目 内容 Expression エラー番号を指定。XlCVError列挙型を指定することも可能 エラー番号とXlCVError列挙型、そしてセルに表示されるエラーは次のようになりま す。 XlCVError列挙型のメンバ 値 セルに表示されるエラー xlErrNull 2000 #NULL! xlErrDiv0 2007 #DIV/0 xlErrValue 2015 #VALUE! xlErrRef 2023 #REF! xlErrName 2029 #NAME? xlErrNum 2036 #NUM! xlErrNA 2042 #N/A 次のサンプルは、第1引数の値を第2引数の値で除算するユーザー定義関数です。第2引数に「0」が指定された場合、CVErr関数を利用して、0除算によるエラー(#DIV/0)をセルに表示します。 ● サンプル ● Function Sample(BaseNumber As Long, DivNumber As Long) As Variant If DivNumber <> 0 Then Sample = BaseNumber / DivNumber Else Sample = CVErr(xlErrDiv0) End If End Function