検索結果をセルに表示させるマクロ

質問

こんにちは。
エクセルのマクロ初心者です。
シート１に作ったあるリストから、シート２のあるセルにキーワードを入力すると、隣のセルに検索結果を表示させるマクロと作りたいのですが…。

エクセルの検索機能を使って、キーワードを入力し、次を検索をクリックすると、シート１のリストの中の部分的に合致するセルをカーソルは選択しますよね？

その選択したセル内容をシート２のセルに表示させる方法がわかりません…。
アドバイスいただけないでしょうか。

回答No.4

n-jun

質問内容を取り違えていたらごめんなさい。

検索ダイアログ
http://homepage3.nifty.com/boole/dia/act37.htm
検索ダイアログに検索したい文字列を入力し「次を検索」を押すと、
シート１内でセルが移動する。
その移動に合わせてシート２へ値を転記する。

と言った感じに受け取れたのですが。
これ以上は経験不足のため回答には至りませんでした。

的はずれですかね。

回答No.3

imogasi

#1,#2で満足な回答かもしれません。
しかし質問を読むと、したいことの詳細がはっきりしません。
＞シート１に作ったあるリストからシート２のあるセルにキーワードを入力すると
入力規則のリストをシート１に作って（名前定義など使って）、Sheet2のドロップダウンリストから。１つを選択した結果、
あるセルに値（検索後）がセットされるのかな。
しかし考えてみてください、こんなことをこの質問に書く必要ないでしょう。手入力しようが、リストから選択しようが、VBAでセットしようが、関係ない（セルの値の来歴同質性）。質問を複雑そうに見せるだけ。
＝＞もう一度読み直すと、検索対象がシート１にあるということらしい。紛らわしい。リストというよりシート１のある列の（検索）データと表現すればよい。
＞エクセルの検索機能を使って、キーワードを入力し
これも読み返しましたか。
＞エクセルの検索機能を使って、その結果検索？キーワードをするってどうするの。
「キーワードを入力し、エクセルの検索機能を使って、」の意味では。語句の並びの前後は大事ですよ。
＞シート１のリストの中の部分的に合致するセルをカーソルは選択しますよね
質問者が勝手に言っているだけでは。
全文字一致の検索する方式もあります。それを知らないだけでは。
＞選択したセル内容をシート２のセルに表示させる方法がわかりません
Find.Selectでもやれば、次に
Selection.Valueででも値が取れるのでは
-----
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html
http://oshiete1.goo.ne.jp/qa2358126.html
http://www.k1simplify.com/vba/tipsleaf/leaf51.html
----
例データ　Sheet1
東京都 山田
大阪府 大下
鹿児島県 木村
大阪府 市川
東京都 近藤
鹿児島県 鈴木
福岡県 田中
鹿児島県 川村
コード
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html
を一部改変させてもらった。
Sub Find_01()
Worksheets("Sheet2").Cells.Clear
Dim c As Object
Dim myKey As String, fAddress As String
k = 1
myKey = InputBox("県名＝")
With Worksheets(1).Range("A1:A30")
Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByColumns, MatchByte:=False)
If Not c Is Nothing Then
fAddress = c.Address
Do
c.Interior.ColorIndex = 4 '明るい緑
Worksheets("Sheet2").Cells(k, "A") = c.Value
Worksheets("Sheet2").Cells(k, "B") = c.Offset(0, 1).Value
k = k + 1
Set c = .FindNext(c)
If c.Address = fAddress Then Exit Do
Loop
End If
End With
End Sub
ーー
実行して、「鹿児島県」と応答して
Sheet2は
鹿児島県 木村
鹿児島県 鈴木
鹿児島県 川村
====
こういう風に模擬実例を書けば判りやすいのです。

回答No.2

zap35

シート１のリストに部分一致の値が複数ある場合はどうすればよいのですか？　最初に見つかった値だけを転記すればよいのでしょうか？
またマクロを実行するのは手動ですか？　それとも検索キーワードが入力されたセルが変更されたときですか？

以下のサンプルはシート２のA1セルに入力してある検索キーワードでシート１を検索し、最初に見つかったセルの値をB1に転記するものです。
シート２のA1セルが変更されたらマクロが実行されるようにしますので、マクロはシート２の「シート名タブ右クリック」→「コードの表示」で開く画面に貼り付けてください

Private Sub Worksheet_Change(ByVal Target As Range)
Const adr As String = "A1" '検索キーワードを入力するセル
Dim rng, trg As Range
　　Set rng = Intersect(Target, Range(adr))
　　If Not rng Is Nothing Then
　　　　Set trg = Sheets("Sheet1").Cells.Find(what:=Range(adr).Value, _
　　　　　　LookIn:=xlValues, lookat:=xlPart)
　　　　If trg Is Nothing Then
　　　　　　Range(adr).Offset(0, 1).Value = "該当なし"
　　　　Else
　　　　　　Range(adr).Offset(0, 1).Value = trg.Value
　　　　End If
　　End If
End Sub

複数の値がヒットする可能性があるならFindNextメソッドで「次を検索」してシート２に転記することも可能ですが、そこまでは書きません。ヘルプを見て試してみてください

回答No.1

pbforce

Sub Macro1()
' Macro1 Macro
' マクロ記録日 : 2008/1/12 ユーザー名 : Pbforce
Sheets("Sheet1").Select
Cells.Find(What:=Sheets("Sheet2").Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Selection.Copy
Sheets("Sheet2").Select
Range("B1").Select
ActiveSheet.Paste
End Sub

マクロの記録と言う機能を試してください。

補足

早速ありがとうございます。
つくりたかったものがつくれました！

補足で質問なんですが、回答いただいたマクロでボタンをつくると、複数該当した場合、何度押しても次を検索してくれます。
これを一度だけというふうにするにはどうすればいいでしょうか？