配列にすると変数が入らない

質問

お世話になっています

MS Excel2003のVBAで質問です

find関数の結果を
オブジェクト型変数だと入るのに、オブジェクト型配列だと入らない、
そういう仕様なんでしょうか？

成功
Dim result As Object
Set result = wb2.Worksheets(1).Range(Cells(2, num), Cells(500, num)).Find(key)

実行時エラー1004　アプリケーション定義またはオブジェクト定義のエラーです
Dim result(10) As Object '検索結果
Set result(0) = wb.Worksheets(1).Range(Cells(i, num), Cells(500, num)).Find(key)

回答No.3

mu2011 · ベストアンサー

よくあるオブジェクト省略の罠です。
Rangeプロパティの引数にCellsプロパティを使う場合，Rangeオブジェクトの
親オブジェクトがCellsオブジェクトの親オブジェクトになると錯覚しますが，
個別に記述しなければ駄目なんです。
エラーにならなかったケースは、たまたまCellsのオブジェクトがRangeと合致
したからだと思います。

一例です。
With wb.Worksheets(1)
　Set result(0) = .Range(.Cells(i, num), .Cells(500, num)).Find(key)
End With

お礼

普段使わないのでよくわかっていませんでした。どうもありがとうございました！！

回答No.4

imogasi

>Range(Cells(i, num), Cells(500, num)).Find(key)
のCells()２つの前にWorksheets("Sheet1")。のようなシートを特定するコードを入れてみたら解決するかも。
よく経験するので。
　　オブジェクトを配列に入れて後どうするのか。
Findはセルの値で検索するが、普通はその行の他列の情報を見たくて、その行番号などが知りたい場合が多い。
配列になぜ貯める？

お礼

別にためた配列を別ファイルに吐き出すからです！ありがとうございます。シート特定してみました。

回答No.2

utun01

そういうのは大体Variantで返ってきます。
配列であればCollectionに入れてみてはどうでしょうか？

ちなみに、VBAは固定配列が非常に使いづらいので、
Collectionを使用してWrapperクラスを作って運用するとやりやすいですよ。
（個人的には、ですがｗ）

回答No.1

o_chi_chi

Object配列がエラーではなく

wb.Worksheets(1).Range(Cells(i, num), Cells(500, num)).Find(key)

のエラーでは。

たとえば"i"に値が入ってないとか。