Cómo desactivar todas las demás líneas con una macro
¿Le gustaría hacer invisible cada segundo o cada enésimo fila de una tabla? Puede hacer esto con el comando "Ocultar". Pero si desea hacer esto para una gran cantidad de líneas, se vuelve tedioso.
Una macro hace el trabajo por ti. Aquí está el código:
Sub segunda línea ocultar ()
Dim Row tan largo
Fila = 1
Mientras que la línea <1000
Celdas (línea, 1) .EntireRow.Hidden = True
Línea = línea + 2
Encaminarse a
End Sub
La macro oculta cada dos filas en su hoja de trabajo activa desde la fila 1 a la fila 1000. Si desea un alcance diferente, ajuste el límite inferior 1 en el comando Fila = 1 y cambie el límite superior 1000 en el comando Mientras que la línea <1000. Simplemente reemplace el 1 y el 1000 con los números de su elección.
Si no desea ocultar cada segunda línea, también puede agregar un valor diferente para 2 al comando Línea = línea + 2 ingresar. Un valor de 4 solo oculta cada cuarta línea, un número de 10 cada décima línea, y así sucesivamente.
Para volver a mostrar las líneas ocultas, reemplace el comando Cierto en la macro Falso y vuelva a iniciar la macro.