質問

【エクセルで一発検索機能をつくる】

質問者：PlsHelpMe
投稿日時：2008/04/10 20:16

【エクセルで一発検索機能】エクセルにテキストボックスとボタンを設置し、テキストボックスに単語を入力、ボタンを押すと、ファイル内でその単語を探し、単語が見つかった場合はそこのセルに飛ぶ・・というしくみはつくれるでしょうか？

作り方をおわかりの方、教えてください。よろしくお願いします。

通報する

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者：end-u
回答日時：2008/04/10 22:13

こんにちは。

Sub try()
　　Dim ws As Worksheet
　　Dim s　As String
　　Dim r　As Range
　　
　　s = ActiveSheet.TextBoxes(1).Text
　　For Each ws In Worksheets
　　　　Set r = ws.Cells.Find(What:=s, LookIn:=xlValues, _
　　　　　　　　　　　　　　　LookAt:=xlWhole, SearchDirection:=xlNext, _
　　　　　　　　　　　　　　　MatchCase:=True, MatchByte:=True)
　　　　If Not r Is Nothing Then Exit For
　　Next
　　If r Is Nothing Then
　　　　MsgBox "no data"
　　Else
　　　　Application.Goto r
　　　　Set r = Nothing
　　End If
End Sub

...こんな感じで可能ですが、
[Ctrl]キー+[f]キーの標準の[検索]機能ではダメな理由があるのでしょうか。
Excel2002以降では[検索場所]を[ブック]全体に設定できますし、
2000の場合でも単独セル選択後、ワークシートタブ右クリック[すべてのシートを選択]して検索すれば
ほぼ同じ結果が得られます。

この回答へのお礼

早速のお返事をありがとうございます。試してみます。

あの後、考えれば、単にボタンを設置し、それを押下で、Ctrl+Fウインドウが開く・・というのでもよいのかとも思いました。
または「検索はCtrl+Fをご利用ください」と記載するだけでも。

ユーザの多数がエクセルのパワーユーザではない人なので、なるべく解りやすい形にしようと、考えすぎていたのかもしれません。
とにかくありがとうございます。

通報する