Excel VBA質問箱 IV

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

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


66908 / 76738 ←次へ | 前へ→

【14389】Re:テキストボックスを使って検索
発言  つん E-MAIL  - 04/5/27(木) 23:01 -

引用なし
パスワード
   LUCY さん、こんばんは

>エクセルの【編集→検索】と同じことを、テキストボックスを最初からシートに
>表示して、コマンドボックスで検索させたいのです。
>ただ、【編集→検索】から、対象を値に変えたり、完全一致などの条件を毎回
>設定したくないだけなのですが・・・
>こんな質問で本当に申し訳ないのですが、よろしくお願いします。
>
>とりあえず、検索だけは過去の質問から見つけたのですが、たとえば、
>検索値を"もも"とします。
>検索範囲には"もも"と"もも色"があった時に、まず、"もも"のセルを
>アクティブにして、次に【編集→検索】の【次を検索】のように"もも色"を
>検索し、全部検索し終わったら、"検索終了"とMsgBOXに表示するには
>どうしたらよいのでしょうか??

『次を検索』には、「FindNext メソッド」を使います。
ヘルプの使用例が結構わかりやすいと思います。

With Worksheets(1).Range("a1:a500")
  Set c = .Find(2, lookin:=xlValues)
  If Not c Is Nothing Then
    firstAddress = c.Address
    Do
      c.Value = 5
      Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
End With

これね。
これを参考に一度考えて見られてはどうでしょう?
0 hits

【14388】テキストボックスを使って検索 LUCY 04/5/27(木) 22:43 質問
【14389】Re:テキストボックスを使って検索 つん 04/5/27(木) 23:01 発言
【14393】Re:テキストボックスを使って検索 LUCY 04/5/28(金) 0:34 質問
【14394】Re:テキストボックスを使って検索 つん 04/5/28(金) 6:50 回答
【14396】Re:テキストボックスを使って検索 LUCY 04/5/28(金) 8:54 発言
【14398】Re:テキストボックスを使って検索 つん 04/5/28(金) 9:08 発言
【14411】Re:テキストボックスを使って検索 LUCY 04/5/28(金) 12:56 お礼

66908 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free