¿Cómo utiliza EXCEL VBA para consultar datos con múltiples condiciones?
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.