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?i?As?LongDim?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