EXCELで、『検索』をやりやすく！

質問

行が４００あるファイルなのですが、簡単な検索の仕方を
探してます。
いつも　『ctrl＋F』でウィンドを起動して入力するのですが、
例えば、何処かのセルに検索できる関数とかは無いのでしょうか？

また、マクロの設定などで何処かのセルに入力するとその行まで
ジャンプできるなどの便利な機能は無いのでしょうか？

宜しくお願い致します。

回答No.3

kazuhiko5681 · ベストアンサー

こんばんわ。補足を頂き有難うございます。マクロを作ってみました。次のように操作してみて下さい。

１.新規ブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を開く。
２.画面左上にあるVBEProjectと書いてある下のSheet1をダブルクリックし、開いたコードエディター(右側の白い部分)に下記のコードをコピー・ペーストする。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRow As Long
Dim myRange As Range

myRow = Target.Row
If Target.Address = Range("A" & myRow).Address Then
If Target.Value = "" Then Exit Sub
Set myRange = Range("E1:" & Cells(Rows.Count, 5).End(xlUp).Address).Find(Range("A1").Value, lookat:=xlWhole)
If myRange Is Nothing Then
MsgBox "入力された値は見つかりません。", vbOKOnly + vbCritical, "入　力　エ　ラ　ー"
Target.Select
Else
myRange.EntireRow.Select
End If
End If

End Sub

３.ＡＬＴ＋Ｆ11キーを押し、エクセルの画面に戻る。
４.Ｅ列に適当なデータを入れる。

Ａ１に適当なデータを入れ、Ａ２にフォーカスを移動してみて下さい。あなた様のおやりになりたいことが実現できているはずです。

お礼

ご回答ありがとうございます！
コピペで出来ました！！
とても感謝してます♪
また、何かございましたら、宜しくお願い致します。

回答No.4

moon00

オートフィルタを使うってのはダメなんでしょうか？
該当行だけを表示になってしまうから条件にあてはまりませんか？

オートフィルタを設定してＥ列の下向き三角を押して
「オプション」で検索したい整理番号を入力すれば、
該当行のみの表示となると思いますが。

的外れだったらすいません。

お礼

オートフィルタや検索だと若干ですが手間が
かかってしまうため　もっと簡単な方法を探しておりました。。。（＾＾；

わざわざご回答ありがとうございます。

回答No.2

kazuhiko5681

はじめまして。
あなた様のおやりになりたいことは、マクロを書けば簡単に実行することができます。
もし私でよろしければサンプルマクロを作ってみたいと思いますので、ご希望の節は、あなた様のおやりになりたいことをもう少し具体的に教えて下さい。
お手数をおかけいたします。よろしくお願いいたします。

補足

ご回答ありがとうございます！
早速ですが、お言葉に甘えさせて頂きます　＾＾；

具体的に書きますと、『Ｅ列』に見積書の整理番号が並んでます。
その見積書が全部で３５０個程あります。
Ｅ列を検索したいのですが、例えば　『Ａ1』セルに検索したい数値
を入れて、Enterを押すと自動的にそのセルにジャンプする！

と言ったマクロ作って頂きたく存じます。宜しくお願い致します。

回答No.1

Hageoyadi

１つめ：セルE4に記入した単語を検索し、結果までジャンプします。
Sub Data_Find1()
Cells.Find(What:=Range("e4").Value, _
After:=ActiveCell, LookIn:=xlValues).Activate
End Sub

２つめ（余計な機能つき：検索結果に色がつきますが・・・このマクロではその色を消せません）
Sub 健作()
Dim 対象セル As Range
Dim 最初のセル番地 As String
Dim 検索件数 As Long

Cells.Interior.ColorIndex = xlNone

If Range("e4").Value = "" Then
Exit Sub
End If

Set 対象セル = Cells.Find(what:=Range("e4").Value, _
after:=ActiveCell, LookIn:=xlValues)
最初のセル番地 = 対象セル.Address

Do

対象セル.Interior.ColorIndex = 37
検索件数 = 検索件数 + 1

Set 対象セル = Cells.FindNext(対象セル)
Loop While 対象セル.Address <> 最初のセル番地

MsgBox "検索結果は " & 検索件数 - 1 & "　件ですわ、オホホ"

End Sub

お礼

ご回答ありがとうございます♪
とりあえず、明日そのマクロを入力してみたいと思います。
マクロは全くの未知の世界なので、ちょっとドキドキです　(笑)