Filter関数を用いた結果、何も検索されなかった場合

Filter関数を用いた結果、何も検索されなかった場合

以下のプログラムを実行したところ、セルはまっさらのまま。
　　Sub Macro3()
　　　　Dim a As Variant
　　　　a = Array(1, 2, 3, 4, 5)
　　　　ActiveCell.Value = Filter(a, 8)
　　End Sub

そこで
　　If Filter(A,8) = "" Then ・・・(1)
　　　　ActiveCell.Offset(1, 0).value = False
　　Else表示
　　　　ActiveCell.Offset(1, 0).value = True
　　endif
を書き加えてみましたところ、
　　実行時エラー'13'：
　　型が一致しません
とのエラーが出ます。

(1)を
　　If ActiveCell.value = "" Then
と書く分には問題ないのですが、だからと言って、Filter(A,8)の値は""で表せないのですね。

とりあえずこの五行はエラーが出ているので削除しました。

次に
　　ActiveCell.Offset(1, 0).Value = IsEmpty(Filter(A, 8))
を書き加えると、アクティブセルの一つ下は「False」となります。Filter(A,8)では何も抽出されないのですから、空か否かを問われたら「True」のはずなのですが・・・やはり何か戻り値があるのですね・・・

ではエラー値が戻っているのかと
　　ActiveCell.Offset(2, 0).Value = IsError(Filter(A, 8))
を書き加えると、「False」ですからエラー値ではありません。

　　If Filter(A,8) = Null Then ・・・(2)
　　　　ActiveCell.Offset(3, 0).value = False
　　Else表示
　　　　ActiveCell.Offset(3, 0).value = True
　　endif
を書き加えたところ、またも
　　実行時エラー'13'：
　　型が一致しません
とのエラーが出ます。

(2)を
　　If Filter(A,8) = Error Then
と書き換えてみても同じです。

試しに(2)を
　　If Cvar(Filter(A,8)) = Null Then
としてみたり
　　If Filter(A,8) = Cvar(Null) Then
としてみたり
　　If Cvar(Filter(A,8)) = Cvar(Null) Then
としてみたりしましたが、同じエラーが出ます。

Ubound(Filter(A,8)の値は-1です。これをもってこの場合の戻り値とするしかないのでしょうか。filter関数の戻り値が分からないからUbound関数を使っていることがモロばれで、嫌なんです。

　　If Filter(A,8) = なんとか Then
のなんとかに入る戻り値をどなたか教えてください。

No.1 ベストアンサー 回答者： jcctaira 回答日時： 2010/09/26 09:43

Filterの結果がどうなるのか理解できていないと思います。

Filterの結果は複数件数の可能性がありますので配列（Array）で結果が返ります。
よって該当データがなくてもエラーになりません。

該当データがあったのか、無かったのかの判断は配列が何件あるかを調べれば良いです。
該当件数を調べるのは「UBound」を使用してください。
makojiさんのデータを例にすると
　　UBound(Filter(a, 8))　…　-1
　　UBound(Filter(a, 3))　…　0
になります。

プログラム的には
　If UBound(Filter(a, 8)) = -1 Then
　　　ActiveCell.Offset(1, 0).Value = False
　Else
　　　ActiveCell.Offset(1, 0).Value = True
　End If

この回答へのお礼

ありがとうございます。

私は何か勘違いをしていたようで、検索結果が１個の場合、
　　If Filter(a,3)=23 then
のようなコード、つまりaという配列から3を含む要素を抽出したところ１個だけで、しかもその値が23である場合には、Filter関数の戻り値が配列であることを忘れて、普通の変数のように扱って良いと思っておりました。

ところが今上記のコードを試してみると、
　　コンパイルエラー
　　型が一致しません。
とのエラーが出ます。

これと同じく、検索結果が０個の場合も、要素数０個の配列を返すだけで、何かのエラーメッセージを返したりはしないということですね。

ありがとうございました。

お礼日時：2010/09/26 19:28