excel vba 窗體文本框輸入內容對列表框內容進行模糊查找，結果在列表框中顯示,並可以點擊提取 跪求代碼。

Dim?i?As?Long

Dim?j?As?Long

Me.品名查詢.MultiSelect?=?fmMultiSelectMulti

For?i?=?0?To?Me.品名查詢.ListCount?-?1

Me.品名查詢.Selected(i)?=?False

For?j?=?0?To?Me.品名查詢.ColumnCount?-?1

If?Me.品名查詢.Column(j,?i)?Like?"*"?&?Me.TextBox1.Text?&?"*"?Then

Me.品名查詢.Selected(i)?=?True

Exit?For

End?If

Next

Next

'提取的代碼?提取出的內容會放在壹個新工作表中

Dim?j?As?Long

Dim?k?As?Long

Dim?sht?As?Worksheet

For?i?=?0?To?Me.品名查詢.ListCount?-?1

If?Me.品名查詢.Selected(i)?Then?j?=?j?+?1

Next

If?j?=?0?Then?MsgBox?"沒有選中行":?Exit?Sub

Set?sht?=?ThisWorkbook.Worksheets.Add

k?=?1

For?i?=?0?To?Me.品名查詢.ListCount?-?1

For?j?=?0?To?Me.品名查詢.ColumnCount?-?1

If?Me.品名查詢.Selected(i)?Then?sht.Cells(k,?j?+?1)?=?Me.品名查詢.Column(j,?i)

Next

k?=?k?+?1

Next