Excel requiere el uso del formulario VBA para consultar y filtrar la tabla original

Cuéntame la idea general y completa tú mismo los detalles específicos.

---------------------------------'Establecer una conexión de datos denominada Cn< / p>

Set?Cn?=?CreateObject("Adodb.Connection")

Cn.Open?"provider=Microsoft.JET.OLEDB.4.0; extended?properties=excel?8.0; datos ?source="?amp;?ThisWorkbook.FullName

'Consultar datos usando declaraciones SQL y colocar los resultados de la consulta en el conjunto de registros de matriz rs

strSql?=?" ¿Columna? ¿una que debe consultarse, la columna dos que debe consultarse, la columna tres que debe consultarse?¿De?[nombre de la hoja de trabajo$]?donde?query field='"?amp;?TextBox1.Text?amp;?" '"

Set?rs?=?CreateObject("ADODB.Recordset")

rs.Open?strSql,?Cn,?1,?1

' ¿Si el resultado de la consulta no está vacío?

If?rs.RecordCount?gt;?0?Then Arr?=?rs.GetRows

El resultado que se mostrará es uno .Text?=? Arr(0,?0)

Resultado 2 a mostrar.Text?=?Arr(1,?0)

Resultado 3.Text?=? Arr( 2,?0)

'Si el resultado de la consulta está vacío, salga de la consulta

Else MsgBox?("No se encontraron registros coincidentes.") Salir?Sub

¿Fin?Si

'¿Cerrar el conjunto de registros, cerrar la conexión?

rs.Close

¿Establecer?rs?=?Nada

Cn.Cerrar

¿Establecer?Cn?=?Nada