vba テキストボックスとリフトボックスについて

お世話になります。
セル上にある情報(今回は名前(姓名)、年齢、性別の3つ)をユーザーフォーム上のテキストボックスに苗字だけを打ち込み、テキストボックスに打ち込んだ苗字にヒットした該当者を表示させたいのですが中々上手くいきませんのでどなたか教えていただけないでしょうか。(例、佐藤太郎や佐藤二郎など…セル状にあった場合、「佐藤」とだけ打ち込んだら佐藤と含まれている名前や年齢、性別を表示させたい)

Dim LastRow As Long, i As Long
Dim name As Integer
Dim name2 As Integer
Dim form As Worksheet
Dim shimei As String
Dim age As String
Dim wm As String



name = Trim(searchbox2.Text)
name2 = form.Cells(i, 3).Value
Set form = ThisWorkbook.Worksheets("Sheet1")

List_lst2.Clear 'リストボックスクリア
With Sheet1
LastRow = form.Cells(Rows.Count, 3).End(xlUp).Row
For i = 1 To LastRow
If searchbox2 = "" Then '空白の場合
Exit Sub '処理から抜ける
Else
If form.Cells(i, 3) Like "*name2" & searchbox2 & "*name" Then 'セルの型式とsearchbox2の文字を比較
List_lst2.AddItem .Cells(i, 3) 'リストボックスに登録
End If
Next i
End With


'===一覧リストへの追加===
With List_lst2
Call List_lst2.AddItem("") 'この場合リストボックスに一行追加
.List(.ListCount - 1, 0) = shimei '氏名の追加(1行目の1列目)
.List(.ListCount - 1, 1) = age '年齢の追加(1行目の2列目)
.List(.ListCount - 1, 2) = wm '年齢の追加(1行目の2列目)
End With

End Sub

No.1 回答者： tatsumaru77 回答日時： 2025/04/28 14:57

Sheet1のレイアウトがわかるものを画像で提示していただけませんでしょうか。

添付図はサンプルです。