ユーザーフォームでの任意の文字を含む検索について
初心者の質問で申し訳ございません。
ユーザーフォームを利用して検索ボタンを作りました。
ユーザーフォームでテキストボックスを２個と
コマンドボタン１個を作成し、
テキストボックス１に検索したい氏名を入力して
コマンドボタンを押すと、
ワークシートに作成されたデータのD列から
一致するものを検索し、
一致したデータのA列にある「番号」をテキストボックス２、
表示する。
このサイトで教えていただき、以下のようなプログラムで
検索することができました。
しかし、テキストボックス１の文字が完全に一致すれば結果は出るのですが、
文字を含むものを検索するように改良したいのですがどのようにすればいいのか
分からず困っています。
よろしくお願いいたします。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub CommandButton1_Click()
Dim res
If TextBox1.Text <> "" Then
res = Application.Match(TextBox1.Text, Sheets("データ").Columns(4), 0)
If IsNumeric(res) Then
TextBox2.Text = Sheets("データ").Cells(res, "A").Value
Else
TextBox2.Text = "Not Found"
End If
Else
TextBox2.Text = ""
End If
End Sub
お礼
そ れ で す ！ 有り難う御座いました助かりました(;_;)