2014年7月20日日曜日

[VBA] If ステートメントでエラーとなる考慮

VBA では、If...Then...Else ステートメントに複数の条件をつなげるとエラーになるケースを考慮する必要がある。

他の言語ならば AND 演算子の条件は False と判定された時点でその後の条件式を処理しないが、VBA の場合は全ての条件式を処理してしまうので、条件式の前のチェックを続けて確認するとエラーとなってしまう。

（例） If 式１ And 式２ And 式３ Then の場合は
  • 他言語： 式１が False ならば、式２以降は判定しない。
  • VBA： 式１の結果に関わらず、式２以降も全て判定する。
これだと、式２を処理する前のチェックを式１で行うとエラーとなってしまうので、注意が必要である。

１．Null チェックと合わせて条件式をつなげる

Collection が Null の場合は、条件式１ (Not IsNull) 結果が False であるにも関わらず、後続の条件式も判定してしまう。
If Not IsNull(Collection) And Collection.Count > 0 Then
    Debug.Print "Count > 0"
End If
エラーメッセージ： 424 オブジェクトが必要です。

２．数値チェックと合わせて条件式をつなげる

Value が Null や Nothing の場合は、IsNumeric 関数が False であるにも関わらず、後続の CInt 関数でエラーとなってしまう。
If IsNumeric(Value) And CInt(Value) > 0 Then
    Debug.Print "Value > 0"
End If
エラーメッセージ： 91 オブジェクト変数または With ブロック変数が設定されていません。
時刻: