Colección de citas famosas - Slogan de motivación - Ingrese algunos datos en Excel (usando VBA) y los datos en las filas correspondientes en la tabla de resumen se podrán llamar automáticamente.

Ingrese algunos datos en Excel (usando VBA) y los datos en las filas correspondientes en la tabla de resumen se podrán llamar automáticamente.

Pruebe el siguiente código:

Private Subsheet_Change(ByVal target as range)

Aplicar. EnableEvents = False

Dim str1 es una cadena, I es un número entero, d es un rango, primera dirección es una cadena

Si es objetivo. dirección = "$D$3" o destino. Dirección = "$E$3 "

Número de líneas (" 5:65536 "). claro

si[D3]<>""y [E3]<>""entonces

str1 = Recortar([d3]). valor)

Usar hoja de cálculo ("saliente")

Colección d =. Rango(" b4 ", [b65536]. Fin(xlUp)). Buscar(str1, buscando:= valores XL)

Si no es d, entonces nada

Primera dirección = d.dirección

i = 5

Hacer

Si [e3]. Valor = "todos "entonces

Rango(" b " & ampi& amp":M " & ampi) = d.Resize(1, 12). Valor

i = i + 1

Otro

Si Mes(d(1,2)) = [e3]. Eso vale la pena

Range(" b " & ampi& amp":M " & ampi) = d.Resize(1, 12). Valor

i = i + 1

Terminará si...

Establecer d =. Rango("b4",[b65536].End(xlUp)). FindNext(d)

Bucle, y Not d es Nada y d Dirección & lt& gtPrimera dirección

Terminará si...

Termina con. ..

Terminará si...

Aplicación. EnableEvents = True

Conector final

Ejemplo:

上篇: Cómo escribir un ensayo sobre tu alma mater 20 años después 下篇: 3 resúmenes de trabajo de profesores de matemáticas de secundaria en 2022