ExcelVBAにおいて複数の検索結果をメッセージボックスの選択によっ

質問

ExcelVBAにおいて複数の検索結果をメッセージボックスの選択によって選びたいのですが・・・。
早速の質問で申し訳ありません。

まず、ExcelVBAにおいて、複数の結果を返す、部分検索を行いたいと思っております。
例えば、セルに「田中」と入力してあり、それを別のシートの名簿一覧の順に検索し、「田中」、「小田中」、「田中原」といったように複数の結果を返したいと考えております。

次に、返した結果につきまして、その都度メッセージボックスを表示させ、「はい」ならばそこで検索をやめてその値を、「いいえ」ならば次の結果を、「キャンセル」ならば中止という様にしたいと考えております。
例えば、「田中」で検索した場合、「田中」でよろしいですか？→いいえ→「小田中」でよろしいですか？→いいえ→「田中原」でよろしいですか？→はい、で指定セルには「田中原」と表示させたいのです。

どのように書けばよいか、ご教授お願いできないでしょうか。
どうか、よろしくお願いします。

また、検索につきまして読み検索というのはできるのでしょうか？（例えば「たなか」で検索しても上のようになるような）可不可だけでも構いませんので、参考までに教えていただけると幸いです。

回答No.3

imogasi · ベストアンサー

コンボのアイテムに、「田中」、「小田中」、「田中原」を３行表示し、見た人が「小田中」だと択んで
小田中に決める、と言うのが普通ではないかな。
ーー
とりあえずやってみると
データ
Ｓｈｅｅｔ１
Ａ列
*田中*　＜－－とど入力する。入力してコマンドボタンクリック。
大田　＜－以下データ
小田中
田中
田中原
上田中
上田
木村
元田中
大田原
中原組
シートにコンボボックスとコマンドボタンを１つ貼り付け。（フォームの場合と違う）
検索の操作をしてマクロの記録を採る。
これを大幅？に変更して
標準モジュールに
Sub Macro1()
Range("A1").Activate
Set x = Cells.Find(What:=Range("a1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False)
If x Is Nothing Then
MsgBox "該当なし"
Exit Sub
Else
'MsgBox x
Worksheets("Sheet1").ComboBox1.Clear
Worksheets("Sheet1").ComboBox1.AddItem x
End If
x.Activate
Do
Set y = Cells.FindNext(After:=ActiveCell)
If y = Range("A1") Then
Exit Do
Else
'MsgBox y
Worksheets("Sheet1").ComboBox1.AddItem y
y.Activate
End If
Loop
End Sub
コマンドボタンのイベントに
Private Sub CommandButton1_Click()
Macro1
End Sub
コンボのイベントに
Private Sub ComboBox1_Change()
Range("C1") = ComboBox1.Text
End Sub
ーーー
これでＡ１に「*田中*」と入れてコマンドボタンをクリック。
コンボのアイテムに
小田中
田中
田中原
・・
がセットされているから、その中の１つを択ぶとＣ１セルにセットするという模擬的な例。
「*田中*」の＊は手入力に任せたほうが自由度があると思う。プログラムで名前の前後に添えてもよい。
一応テスト済み。
ーーー
どうも質問表現から、ＶＢＡの経験は少ないと思うが、こんなレベルのことをやろうとするのは早すぎると思う。Ｆｉｎｄ、ＦｉｎｄＮｅｘｔメソッドの使い方は私も苦手。良くわからなければ全行ＩＮＳＴＲ関数で田中と言う文字を含むかチェックするのはどうかな。
またシステムと言うもので、対ユーザーとの絡みのことは奥が深く色んな意見もでて難しいから今後経験して　　十分考えてください。
参考　該当分抜き出しは関数でも作業列を使ったり、むつかしい関数の組み合わせで出来る。
Googleで「imogasi方式」で照会してみてください。

お礼

早速のご返答ありがとうございます。
非常に分かりやすく、ご回答くださりありがとうございます。
また、当方、確かにVBA初心者のためちょっと早すぎたかもしれません・・・。
勉強しつつ、試行錯誤していきたいと思います。

回答No.2

kmetu

折角エクセルに検索があるのですからそれを利用して
あとはツールバーにマクロのアイコン登録して関連つけたマクロに
指定セルがA1なら

Range("A1").Value = Selection.Value

とだけ記述しとけば事足りると思うのですが

お礼

早速のご返答ありがとうございます。
なるほど、確かにそのとおりですね・・・。
ありがとうございます。
参考にさせていただきます。

回答No.1

aloha8761

それって使う人間がイライラすると思うけど・・

ループ処理とMsgBoxの戻り値による条件処理でできるけど
それよりは　ユーザーフォームを使ったほうがいいと思うけど・・

検索結果をLabelを使って５個くらい表示させて　
この中にあればそれを選んで（チェックボックスを使うか　Labelをクリックして
もらうかなど）もらうようにしたほうがいいと思うが・・

また、せっかくワークシートがあるんだからワークシートを
使って　検索結果のみのレコードを表示させ
対象レコードをダブルクリックなどで処理させるなども使いかってはよいと思うけど・・

使用者の事を考えてt作ったほうがいいと思います

お礼

早速のご回答ありがとうございます。
なるほど、確かに検索結果を一括で表示した方が見やすいですね・・・。
良いアイデアをありがとうございました。
上記の方法を調べてみます。