ユーザーフォームでの任意の文字を含む検索について
初心者の質問で申し訳ございません。
ユーザーフォームを利用して検索ボタンを作りました。
ユーザーフォームでテキストボックスを2個と
コマンドボタン1個を作成し、
テキストボックス1に検索したい氏名を入力して
コマンドボタンを押すと、
ワークシートに作成されたデータのD列から
一致するものを検索し、
一致したデータのA列にある「番号」をテキストボックス2、
表示する。
このサイトで教えていただき、以下のようなプログラムで
検索することができました。
しかし、テキストボックス1の文字が完全に一致すれば結果は出るのですが、
文字を含むものを検索するように改良したいのですがどのようにすればいいのか
分からず困っています。
よろしくお願いいたします。
**************************
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
お礼
ご回答有り難うございました。今日迄4日間、家を空けてたものですからお礼が遅くなりまして申し訳有りませんでした。
補足
アプリが発表されたのは15年位前なのですが、最近までこのカレンダーを使っていまして、そこに書き込んだメモの内容をを検索したくて質問しました。 そしてフリーソフトで「ToDoTree」という『やることチェックリスト』でも同じように文字検索がしたいのですが