Excel VBA質問箱 IV

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

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


66909 / 76738 ←次へ | 前へ→

【14388】テキストボックスを使って検索
質問  LUCY  - 04/5/27(木) 22:43 -

引用なし
パスワード
   本当に初心者で、悩んでみても、なかなか先に進まないので
どなたかおしえてください(T_T)

エクセルの【編集→検索】と同じことを、テキストボックスを最初からシートに
表示して、コマンドボックスで検索させたいのです。
ただ、【編集→検索】から、対象を値に変えたり、完全一致などの条件を毎回
設定したくないだけなのですが・・・
こんな質問で本当に申し訳ないのですが、よろしくお願いします。

とりあえず、検索だけは過去の質問から見つけたのですが、たとえば、
検索値を"もも"とします。
検索範囲には"もも"と"もも色"があった時に、まず、"もも"のセルを
アクティブにして、次に【編集→検索】の【次を検索】のように"もも色"を
検索し、全部検索し終わったら、"検索終了"とMsgBOXに表示するには
どうしたらよいのでしょうか??

これから、ちゃんと勉強しようと思ってますが、たどりつくまで、しばらく
かかりそうなので、すみませんが教えてください。

Private Sub CommandButton1_Click()

Set FindData = _
Worksheets("sheet1").Range("A:A").Find(TextBox1.Value, LookAt:=xlPart)
 FindData.Activate
  If FindData Is Nothing Then
   MsgBox "ありません"
   Exit Sub
  End If

End Sub

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 お礼

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