Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

164:デフォルトの名無しさん
08/06/16 22:06:32
Sheet1の適当なセルにhogehogeと書いて

Sub test()
Dim r
Set r = Sheets("Sheet1").Range("a1:z50").Find(What:="hogehoge", LookAt:=xlWhole, SearchOrder:=xlByRows)
Set r = Sheets("Sheet1").Range("a1:z50").Find(What:="hogehoge", LookIn:=xlValue, LookAt:=xlWhole, SearchOrder:=xlByRows)
End Sub
を実行すると、
WindowsXP SP2, Excell2003 sp3では
１つ目のFindはちゃんと動きますが
２つ目のFindで
　実行時エラー'9' インデックスが有効範囲にありません
と怒られます。LookInを指定すると怒られるようです。

WindowsXP SP3, Excell2000では問題なく意図したとおりに動きます。
Excell2003でもLookIn:=xlValueを指定したいんですが、どうしたらいいですか？

次ページ

続きを表示

1を表示