Colección de citas famosas - Frases elegantes - ¿Consultar código VBA por condición?

¿Consultar código VBA por condición?

El siguiente es el código VBA para cumplir con los requisitos anteriores:

```

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.