¿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 volumen de ventas de "Konka" en "1 mes", primero cree un libro que contenga 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 la macro: haga clic en "Desarrollador-Insertar-Control de formulario" en la barra de menú, arrastre y dibuje 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 que aparece. 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()

Jassingh Dimyasental

arr 1 = hoja de trabajo("datos"). range("a2:d"& hoja de trabajo("datos").cell(rows.count,"one").end(xlup).row)

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

fori = 1 bidireccional(arr2 )

forj = 1 bidireccional(arr1)

si arr 2(I, 1) = arr 1(j, 1) y R2(I, 2) = arr 1(j , 2) y R2 (I, 3) = arreglo 1 (j, 3) entonces

arr 2 (I, 4) = arreglo 1 (j, 4)

GoTo100

EndIf

Entonces

arr 2(I, 4) = ""

100:

Entonces

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

end_join

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.