¿Cómo mostrar filas en Excel usando código VBA?

Tome el área B5:G99 donde se completan los datos como ejemplo.

1. Presione Alt+F11 para abrir el editor de código.

2. Haga doble clic en la hoja de trabajo y agregue el código en la columna de la izquierda.

3. Introduce o pega el código de la derecha.

4. Como se muestra en la figura, solo es necesario modificar dos parámetros y no es necesario mover otros códigos.

5. Cierra el editor de código después de la modificación.

Un evento que se activa cuando cambia el valor de la hoja de trabajo privada _cambio(objetivo byval como rango)'.

'****************************************** *********************

Atenuar s como rango, CAD, r&

Establecer s = Rango ("B5 :G99 ")'Modifique este parámetro y complete el área de datos todos los días.

r=100? Modifique este parámetro para aumentar el número de línea de los resultados de salida.

C = "B/C/D/G " 'Letras de números de columna no aditivas. Si hay varias letras, utilice /

'********************************* *** ****************************

Procesamiento explícito e implícito

Dim g como rango, infrarrojos y.

Establecer g = s.Find("* ",,,,xlPrevious)

Si g no es nada, entonces

ir = s(1) . fila

otro

ir = función de hoja de trabajo. min(segundos(segundoscount).Row, g.Row + 1)

Terminará si

Fila(s(1)). Rema y rema. ":" & ampir). oculto=falso? Por otra parte, configure Todo en Mostrar.

Si cuenta con ir & lts. Luego márquelo

Fila (IR+1 & ":" & S(s count). Fila). Oculto = Verdadero 'Todas las partes inferiores están ocultas.

' End If '¿Puedes modificar este parámetro? ¿En qué línea se debe escribir el resultado total?

Mecanismo de salida

Establezca g = Intersect(target, s)

Si g está vacío, salga de sub 'Si el objetivo no está en el área S, salir directamente Sub.

Volumen total

Fusiones y adquisiciones sombrías. , n & amperio

M = s(1). Fila 'Obtiene el número de fila inicial del área S.

N = s(s cuenta). Row-m+1 'Obtiene el número total de filas en el área S.

Aplicar. Activación del evento de cierre "EnableEvents = False".

Dim i%, h$

c = "/" & c & "/" completo con barras diagonales completas en ambos extremos de c.

Para I = g (1). Columna a g (g.count). 'Columna' recorre en iteración las columnas involucradas en g.

H = reemplazar(celda(1,I)). Dirección (0, 0), " 1 ", "")' Calcula las letras del número de columna actual.

Si InStr(c, "/" & h & "/" = 0 entonces 'Si H no está contenido en c.

Celdas (r, i) = función de hoja de cálculo. sum(cell(m,I)).resize(n))'Salida total.

Terminará si...

Entonces

Aplicar. "EnableEvents = True" activa la activación de eventos.

Conector final