EXCEL VBAコミュのシート内から文字列を検索する方法

Dim c As Range

Search = (検索する文字列)
Worksheets("Sheet1").Select 'Sheet1から検索

Set c = Worksheets("Sheet1").Find(What:="Search", MatchCase:=False, MatchByte:=False)

ある文字列を現在選択しているシートから検索して、セルの行数を返したいのですが、
Findを使用するあたりで"メソッドがサポートされていない"というエラーが出ます。

シート内から文字列を検索して行数をしるためにはどうすればよいか教えていただけないでしょうか？

コメント(11)

最初
全て
最新の40件

[1] mixiユーザー 03月02日 14:25

Worksheets("Sheet1").Find

じゃなくて
Worksheets("Sheet1").Range("A1:C65536").Find
とセル範囲を指定したらウマく動くと思います。

[2] mixiユーザー 03月02日 14:36

>いとーT

御解答ありがとうございます。

試してみたところ動きました！感動です☆
ただ、検索結果がNothingとなってしまいます。

でもとりあえず１歩前進しました。ありがとうございます！！

[3] mixiユーザー 03月02日 16:01

今気が付きましたが、
What:="Search"
だと、Searchという文字列を探してしまうので、
What:=Search
として、変数Searchを指定してください。

[4] mixiユーザー 03月03日 23:08

ありがとうございます。
おかげさまで検索結果が戻ってくるようになりました♪

"Search"のところは自分だけではいつまでも気付けなかったと思います。2日も悩んでたのが嘘みたいです。

この検索使う箇所がたくさんあるので本当に助かりましたm(__)m

[5] mixiユーザー 03月18日 19:25

似たような質問なんですが、文字列の検索結果をUserFormのリストボックスに表示して、リストから選択した文字列にリンクできるようにするにはどうしたらよいのでしょうか？

例えば、名簿から「田中」という文字列を検索すると、リストボックスに「田中美保」「田中麗奈」「田中正造」と表示され、「田中正造」を選ぶと「田中正造」のセルをアクティブにする。

といった感じです。

[6] mixiユーザー 03月19日 08:25

検索結果変数.valueと検索結果変数.addressを繋いで、
ListboxにADD。
Listbox CHANGEの時にaddressを切り出してrange.selectでいけると思います。

[7] mixiユーザー 03月19日 11:49

涼風さん、こんにちわ。

autumnさんのお話からサンプルを起こしてみました。
よかったら試してください。

http://briefcase.yahoo.co.jp/bc/cms_1998/vwp2?.tok=bccEIraBd4SIpQku&.dir=/f229&.dnm=Book1test.xls&.src=bc

[8] mixiユーザー 03月19日 20:46

>autumn様
ありがとうございます！
>よこやま様
ありがとうございます。サンプル拝見しました。参考にさせていただきます！

[9] mixiユーザー 01月27日 13:11

新しくトピックを立ち上げようかと思いましたら、関連するページがありましたので、ここに書きたいと思います。

findメソッドで値が検索結果がNothingとなってしまいます（サンプルＡ）

しかし、（サンプルＢ）はちゃんと値を検索してくれます。

（サンプルＡ）
Dim myrange As Range
Dim sagasu As String
sagasu = ooxx
Set myrange = Worksheets("未処理").Range("AE:AE").Find(what:=sagasu)

（サンプルＢ）
Dim list_name As String
Dim myrange As Range
list_name = ListBox1.List(intIndex)
Set myrange = Worksheets("登録").Range("b:b").Find(what:=list_name)

この２つを比べると、 Range("AE:AE")　のところが大文字になっているだけの違いのようです。それで、小文字に変えましたら、ちゃんと動いてくれました。

しかし、一回閉じて（保存して）また立ち上げて操作をすると、エラーになってしまいました。原因がよくわかりません。

どなたか分かる方いましたら、よろしくお願いします。

[11] mixiユーザー 01月28日 01:38

すいません、反応がありませんでしたので、こちらに新たにトピックを立ち上げました。
http://mixi.jp/view_bbs.pl?id=50013479&comment_count=4&comm_id=24524

ログインすると、みんなのコメントがもっと見れるよ