¿Cómo utiliza EXCEL VBA para consultar datos con múltiples condiciones?

1. Tome como ejemplo las estadísticas de ventas de electrodomésticos en el primer trimestre de 2015 para consultar las ventas de productos, marcas y meses.

2. Supongamos que desea consultar el estado de ventas de "1 mes" de "Konka", primero cree un libro de trabajo con las columnas correspondientes. Como se muestra en la figura, ingrese la condición 1: nombre del producto terminado, condición 2: nombre de la marca, condición 3: mes.

3. Ahora es el momento de configurar las macros: haga clic en Desarrollador-Insertar-Control de formulario en la barra de menú y arrastre un botón en la flecha en forma de cruz que aparece, como se muestra en la figura.

4. Seleccione "Grabar" en el cuadro de diálogo de búsqueda rojo emergente. En el cuadro de diálogo emergente Grabar nueva macro, cambie el nombre de la macro a "Buscar" y haga clic en Aceptar.

5. Haga clic en "Herramientas de desarrollo": vea el código y abra el editor VBA, como se muestra en la figura.

6. Haga clic en [Insertar]-[Módulo] en el editor VBA, como se muestra en la figura.

7. Ahora ingresa el código:

Subsearch()

Dim i es un número entero, j es un número entero

Arr1 = hoja de trabajo ("datos"). rango(" a2:d " & hoja de trabajo("datos").cell(row.count,"one").end(xlup).row)

Arr2 = hoja de trabajo(" buscar"). range(" a2:d " & hoja de trabajo("search").cell(row.count,"one").end(xlup).row)

Para i = 1 a UBound (arr2)

Para j = 1 a UBound(arr1)

Si arr2(i, 1) = arr1(j, 1) y arr2(i, 2) = arr1( j, 2) y arr2(i, 3) = arr1(j, 3), entonces

arr2(i, 4) = arr1(j, 4)

Ir a 100

Terminará si...

Entonces

arr2(i, 4) = " "

100:

Luego

Hoja("Buscar"). range("a2:d" & hoja de trabajo("search").cell(row.count,"one").end(xlup).Row) = arr2.

Finalizar conector

8. Ahora regrese a la tabla EXCEL, haga clic derecho en el botón, seleccione Editar texto y cambie el nombre del botón a Estadísticas.

9. Eso es todo.