Colección de citas famosas - Slogan de motivación - 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.

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

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