Considere una situación en la que necesita ocultar y mostrar varias hojas a la vez. Si alguien se esconde y muestra manualmente, esto llevará mucho tiempo.
En este artículo, aprenderá a ocultar o mostrar de forma dinámica varias pestañas mediante el código VBA.
P): Quiero una macro que oculte o muestre varias pestañas en un momento determinado.
A continuación se muestra una instantánea de sheet1 en la que habrá dos listas dinámicas, es decir, Ocultar pestañas y Mostrar pestañas
- La idea es que cuando hacemos clic en el botón Ocultar o Mostrar, las hojas enumeradas deberían ocultarse o mostrarse.
Necesitamos seguir los pasos a continuación:
- Para obtener el resultado, debemos iniciar el editor VB
- Haga clic en la pestaña Desarrollador
- Desde el grupo de código, seleccione Visual Basic
- Haga clic en Insertar y luego en Módulo
Esto creará un nuevo módulo.
Ingrese el siguiente código en el Módulo
Sub HideTabs () Dim TabNo como DoubleDim LastTab como dobleLastTab = Rango ("Hide_TabsDNR"). Recuento
En caso de error, reanudar siguiente
Para TabNo = 2 hasta LastTab
Hojas (Rango ("Hide_TabsDNR") (TabNo)). Visible = False
Siguiente pestaña No
En caso de error, vaya a 0
Hojas (1) .Seleccionar
End Sub
Sub UnHideTabs ()
Dim TabNo como doble
Atenuar LastTab como doble
LastTab = Rango ("Hide_TabsDNR"). Recuento
En caso de error, reanudar siguiente
Para TabNo = 2 hasta LastTab
Hojas (rango ("UnHide_TabsDNR") (TabNo)). Visible = True
Siguiente pestaña No
En caso de error, vaya a 0
Hojas (1) .Seleccionar
End Sub
- Todos estamos listos para ejecutar la macro, si hacemos clic en el botón Ocultar, todas las hojas enumeradas se ocultarán, consulte la siguiente instantánea.
- De la misma manera, si hacemos clic en el botón Mostrar, todas las hojas ocultas que se mencionan en la columna D se mostrarán.
De esta manera podemos ocultar o mostrar de forma dinámica varias pestañas a la vez.