El contenido de entrada en el cuadro de texto del formulario Excel VBA realiza una búsqueda difusa en el contenido del cuadro de lista. Los resultados se muestran en el cuadro de lista y puede hacer clic para extraer el código Guiqiu.
'¿Código de consulta difusa?
Dim?i?As?Long
Dim?j?As?Long
Yo. name Query.MultiSelect?=?fmMultiSelectMulti
Para?i?=?0?To?Me Nombre del producto query.ListCount?-?1
Me. (i) ?=?False
For?j?=?0?To?Me consulta de nombre de producto.ColumnCount?-?1
If?Me. ¿Columna(j,? i)?Me gusta?"*"?amp;?Me.TextBox1.Text?amp;?"*"?Entonces
Consulta de nombre de producto.Selected(i)?= ?Verdadero
¿Salir?Para
Fin?Si
Siguiente
Siguiente
'¿El código extraído? El contenido extraído estará en una nueva hoja de trabajo Dim?i?As?Long
Dim?j?As?Long
Dim?k?As?Long
Dim?sht?As?Worksheet
For?i?=?0?To?Me.Consulta de nombre de producto.ListCount?-?1
If?Me.Consulta de nombre de producto .Seleccionado(i) ?Entonces?j?=?j? ?1
Siguiente
Si?j?=?0?Entonces?MsgBox?"No hay fila seleccionada":? ¿Salir?Sub p>
Establecer?sht?=?ThisWorkbook.Worksheets.Add
k?=?1
Para?i?=?0?A? Yo. Consulta de nombre de producto.ListCount?-?1
Para?j?=?0?A?Me.Consulta de nombre de producto.ColumnCount?-?1
Si?Yo. Consulta de nombre de producto.Selected(i) ?Then?sht.Cells(k,?j? ?1)?=?Consulta de nombre de producto.Columna(j,?i)
Siguiente
k?=?k ?1
Siguiente