VBAのVariant型変数が初期値か否かの判定方法について

Question

お世話になります。
VBAのVariant型変数が初期値か否かの判定方法について、ご教示お願いいたします。

dim 変数VAR

と、定義した変数があります。
この変数は、条件分岐によりExcelシートの表データが代入されている場合と、
空っぽの場合（初期値のEmptyのまま）の２つのパターンがあります。

Emptyの場合にプログラムを抜けたいので、

If 変数VAR = Empty Then

という判定式を記述しました。

しかし、この式ですと、emptyの場合は狙い通りの動きになりますが、変数の中に値が存在している場合に**「型が違う」**と怒られてしまいました。

この判定式の記述のしかたについてご教示頂きたく質問させていただきます。
何卒、よろしくお願いいたします。

Answer 1

値がEmptyかどうかの判定にはIsEmpty関数を使用します。

If IsEmpty(変数VAR) Then

---

補足

比較などでEmptyを使用した場合、Emptyは0又は空文字列（""）として扱われます（値がEmpty以外の場合とも一致する）。

また、VBAでは配列は比較演算子で比較できないため、If 配列 = ○○ Thenとすると型が一致しません。のエラーが発生します。

Comments

[jojio]

エラーの内容についてまでご親切に教えていただき、非常にわかりやすいご回答ありがとうございました。ベストアンサーとさせていただきたかったのですが、操作を誤り、できなくなってしまいました。本当にすみません。ありがとうございました。

[TanakaHiroaki]

別解を示したのですが、私の尊敬する　imihitoさんを差し置いてベストアンサーという形となり申し訳なく思います。

[imihito]

ベストアンサーはどこでも。
結果として役に立ったのであれば何よりです。

Answer 2

VarTypeを用いると、バリアント型変数のその時点の内部処理形式がわかります。

If VarType(変数VAR) = vbEmpty Then

＜追記＞
imihitoさんより VarTypeを使う場合、vbEmpty と比較するとのご指摘を受け、
回答を修正しました。
（正）vbEmpty
（誤）Empty

Comments

[imihito]

重箱の隅をつつくようで恐縮ですが、`Empty`ではなく`vbEmpty`ではないでしょうか？
`vbEmpty`の値は0なので結果として問題は無いですが

[TanakaHiroaki]

ご指摘ありがとうございます。
その通りなので回答を修正します。

[jojio]

TanakaHiroaki様、
他の方とは別のアプローチからの解を頂きましてありがとうございました。
今回はIsEmpty関数による方法を採用させていただきましたが、VarType関数もVariant型変数の判定に、とても役に立ちそうですね。一応仕様の確認してみました。
頭の片隅に置いておきます。ありがとうございました！

Answer 3

IsEmpty 関数はどうでしょうか

Answer 4

IsEmpty関数をつかいましょう

Answer 5

皆様、早速のご回答ありがとうございます。
IsEmpty関数によって、エラーが発生することなく、配列の判定をすることができました。

今回は、エラーの原因まで併せてご教示くださった imihito様 のレスをベストアンサーとさせていただきます。ありがとうございました。

---

＜追記＞
・・・・と、したはずが、別の方をベストアンサーにしてしまいました。。。
まだ、こちらのサイトの扱い方に慣れておらず、操作ミスすみません。。。。。。。。。。。。。