Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3910 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59594】検索でヒットしたセル番号の取得 bakupubl 08/12/24(水) 13:00 質問[未読]
【59595】Re:検索でヒットしたセル番号の取得 ひげくま 08/12/24(水) 13:42 発言[未読]
【59596】Re:検索でヒットしたセル番号の取得 にぃ 08/12/24(水) 13:49 発言[未読]
【59601】Re:検索でヒットしたセル番号の取得 bakupubl 08/12/24(水) 14:58 発言[未読]
【59605】Re:検索でヒットしたセル番号の取得 bakupubl 08/12/24(水) 19:36 お礼[未読]
【59594】検索でヒットしたセル番号の取得
質問  bakupubl  - 08/12/24(水) 13:00 -
引用なし
パスワード
   はじめまして、bakupublともうします、よろしくお願いします。

さっそく質問なんですが、Findで文字列を検索して、ヒットしたセルのセル番号を知りたいんですがどうすればいいんでしょうか？
今はこんな感じでテストしていて検索が成功している事は分かるんですが、セル番号をどうやって取得したらいいのか分からずに困っています。
知っている方がいましたら教えて頂けたら大変ありがたいです。
よろしくお願いします。

'検索ボタン
Private Sub ChengSubNumber_Click()

Dim SearchWord As Variant　　　　'検索する文字列
SearchWord = InputBox("検索する文字列を入力してください", "検索")
Set SearchWord = Worksheets("sheet2").Cells.Find(SearchWord)
If SearchWord Is Nothing Then
　　MsgBox "検索失敗"
　　Else
　　MsgBox "成功"
End If


End Sub
【59595】Re:検索でヒットしたセル番号の取得
発言  ひげくま  - 08/12/24(水) 13:42 -
引用なし
パスワード
   > Set SearchWord = Worksheets("sheet2").Cells.Find(SearchWord)

SearchWord は、検索した文字列ではなく、検索したセルになります。

一般的にセルのセル番号(アドレス？)を取得するにはどうすれば良いのかが解れば、解決しますね。
【59596】Re:検索でヒットしたセル番号の取得
発言  にぃ  - 08/12/24(水) 13:49 -
引用なし
パスワード
   ▼bakupubl さん：
こんにちは！

ひげくまさんからヒントがありましたので、私もヒントのようなものを
お出ししますね。

>Dim SearchWord As Variant　　　　
↓
Dim SearchWord As Range

にすると見えてきますよ^^
【59601】Re:検索でヒットしたセル番号の取得
発言  bakupubl  - 08/12/24(水) 14:58 -
引用なし
パスワード
   ひげくまさん
にぃさん

始めまして、よろしくお願いします。
アドバイスありがとうございます、試してみます。
【59605】Re:検索でヒットしたセル番号の取得
お礼  bakupubl  - 08/12/24(水) 19:36 -
引用なし
パスワード
   ヒントから色々調べていたら出来ました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3910 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free