¿Consultar código VBA por condición?
```
Consulta de subdatos ()
La fecha de inicio tenue es la fecha, la fecha de finalización es fecha, empresa Como cadena
Dim rowIdx tiene la misma longitud, lastRowIdx tiene la misma longitud, resultRowIdx tiene la misma longitud
Dim ws1 se usa como hoja de trabajo, ws2 se usa como una hoja de trabajo
Dim eData se utiliza como cuerpo de variable, fData como variante, gData como variante, hData como variante, iData como variante
Establezca ws1 = este libro de trabajo. hojas(\"hoja 1\")‘La hoja de trabajo donde se encuentran los resultados de la consulta.
Establezca ws2 = este libro de trabajo. hojas("hoja 2")" La hoja de trabajo donde se encuentra la fuente de datos.
lastrowidx = ws2 . cell(ws2 . filas . count, 1). end(xlup). "Fila" La última fila de la fuente de datos Número de serie
Fecha de inicio = ws1. Rango("a5").
Fecha de finalización = ws1 "Valor" "Consulta la fecha de finalización.
Empresa = ws1.Range("a7")."Value" Consulta el nombre de la empresa.
RedimeData(1 a Rastro IDX, 1 a 1) Almacena un conjunto de resultados de la consulta.
p>ReDim fData (1 a lastRowIdx, 1 a 1)
ReDim gData (1 a lastRowIdx, 1 a 1)
ReDim hData (1 a lastRowIdx, 1 a 1)
ReDim iData (1 a lastRowIdx, 1 a 1)
ResultRowIdx = 1'El punto inicial del resultado de la consulta que se escribirá en ws1 Número de fila inicial.
Recorre cada fila de la fuente de datos
For rowIdx = 2 to lastRowIdx
Filtrar los datos según las condiciones de la consulta
if (ws2 .cell(rowIdx,2).value>=startdate y ws2.cell(rowIdx,2).value<=enddate) o (ws2.cell(rowIdx,3).value =Company) y luego
Almacene el datos filtrados en la matriz de resultados
eData(resultRowIdx, 1) = ws2(rowIdx, 5) >
fData(resultRowIdx,1) = ws2.cell(rowIdx,4).value<. /p>
g datos(resultRowIdx,1) = ws2.value
p>hData(resultRowIdx, 1) = ws2.value(rowIdx, 9). iData(resultRowIdx, 1) = ws2. value
p>resultRowIdx = resultRowIdx+1
Terminará si...
El siguiente rowIdx
p>Escriba los datos en la matriz de resultados en ws1 Especifique fila y columna
ws1.Range(\"E 10:E\"u 0026(resultRowIdx-1+10)). valor = eData
ws1. rango(\"F 10:F\"u 0026(resultRowIdx-1+10)). valor = fData
ws1. rango(\"G 10:G \"u 0026(resultRowIdx-1+10)). Valor = gData
ws1.
rango(\"H 10:H \"u 0026(resultRowIdx-1+10)). Valor = hData
ws1. rango(\"I 10:I \"u 0026(resultRowIdx-1+10)). Valor = iData
Conector final
```
Copie el código anterior en la ventana de VBA y guárdelo. Agregue un botón o una tecla de acceso directo a la Hoja1 y active este código para consultar datos.