Note: The other languages of the website are Google-translated. Back to English

¿Cómo usar la casilla de verificación para ocultar o mostrar la hoja de trabajo en Excel?

La casilla de verificación es una función útil en Excel. Aquí le mostraré cómo usar una casilla de verificación para ocultar o mostrar una hoja de trabajo específica en Excel.

Use la casilla de verificación para ocultar o mostrar la hoja de trabajo en Excel


Use la casilla de verificación para ocultar o mostrar la hoja de trabajo en Excel

Supongamos que tiene una casilla de verificación llamada checkbox1 en su libro de trabajo. Al desmarcar esta casilla de verificación, desea que una determinada hoja de trabajo se oculte automáticamente en este libro de trabajo y muestre esta hoja de trabajo mientras marca la casilla de verificación. Consígalo de la siguiente manera.

1. Abra la hoja de trabajo que contiene la casilla de verificación 1, haga clic con el botón derecho en la pestaña de la hoja y luego haga clic en Ver código desde el menú contextual.

Nota:: La casilla de verificación debe ser una casilla de verificación ActiveX al insertar.

2. En el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código VBA en la ventana Código. Ver captura de pantalla:

Código de VBA: use la casilla de verificación para ocultar o mostrar la hoja de trabajo especificada

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

Nota:: En el código, Sheet5 es el nombre de la hoja de trabajo que ocultará o mostrará con checkbox1. Reemplace el nombre de la hoja de trabajo que necesite.

3. Prensa otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana.

A partir de ahora, al desmarcar la casilla de verificación 1, la hoja de trabajo especificada “Hoja5” se ocultará automáticamente. Y puede mostrarlo marcando la casilla de verificación. Ver captura de pantalla:


Artículos relacionados:


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (11)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿Cómo se hacen múltiples en la misma página? ¿Cómo oculto la hoja 3 o 4 con una casilla de verificación?
Este comentario fue minimizado por el moderador en el sitio
Private Sub CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Este comentario fue minimizado por el moderador en el sitio
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? ¡Muchas gracias!
Este comentario fue minimizado por el moderador en el sitio
Basta con copiar la linea tantas veces como se quiera nombrar la hoja que debe ser ocultada.

Private Sub CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo ocultar o mostrar una hoja con varias casillas de verificación? Por ejemplo, la hoja "Menú principal" debe ocultarse a menos que checkbox_1, checkbox_2 y checkbox_3 estén marcados.
Este comentario fue minimizado por el moderador en el sitio
Hola. Soy muy nuevo en los controles ActiveX. Estoy tratando de tener varias casillas de verificación en una hoja que ocultarán hojas específicas y no todas o la misma cada vez. Estos dos escenarios han sido mi experiencia. Lo que necesito lograr es:
CheckBox1 oculta Sheet2
CheckBox2 oculta Sheet3
CheckBox3 oculta Sheet4
CheckBox4 oculta Sheet5
CheckBox5 oculta Sheet6
CheckBox6 oculta Sheet7
CheckBox7 oculta Sheet8
CheckBox8 oculta Sheet9
Este comentario fue minimizado por el moderador en el sitio
Hola jack
Simplemente repita el código y cambie los números de las casillas de verificación y los nombres de las hojas. Pruebe el siguiente código.

Private Sub CheckBox1_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja2").Visible = Casilla1.Valor

End Sub

Private Sub CheckBox2_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja3").Visible = Casilla2.Valor

End Sub

Private Sub CheckBox3_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja4").Visible = Casilla3.Valor

End Sub

Private Sub CheckBox4_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja5").Visible = Casilla4.Valor

End Sub

Private Sub CheckBox5_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja6").Visible = Casilla5.Valor

End Sub

Private Sub CheckBox6_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja7").Visible = Casilla6.Valor

End Sub

Private Sub CheckBox7_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja8").Visible = Casilla7.Valor

End Sub

Private Sub CheckBox8_Click ()

On Error Resume Next

EsteLibro.Hojas("Hoja9").Visible = Casilla8.Valor

End Sub
Este comentario fue minimizado por el moderador en el sitio
Cristal,
Muchas gracias... funciono perfectamente!
Este comentario fue minimizado por el moderador en el sitio
Hola Crystal,
¿Hay alguna función que revierta esto? es decir. ¿La hoja está oculta a menos que la casilla de verificación esté marcada?
Este comentario fue minimizado por el moderador en el sitio
Hola,
Je cherche à afficher des pages avec des cases à cocher. Les Chekbox sont toutes sur la même feuille de calcul.
J'ai copié le premier code et l'ai dupliquer.

Private Sub CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Eplucher, laver, desinfecter").Visible = CheckBox1.Value
End Sub

Private Sub CheckBox2_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Tailler fruit and legumbres").Visible = CheckBox1.Value
End Sub

Malheureusement, si je ne coche pas la première case ma seconde case ne fonctionne pas. Pourriez-vous m'aider svp
Este comentario fue minimizado por el moderador en el sitio
Hola Sky53,
parece que no cambiaste Casilla1.Valor al nombre de la casilla de verificación correspondiente en el segundo código de VBA.
Cambie la siguiente línea en el segundo código:
ThisWorkbook.Sheets("Tailler fruit and legumbres").Visible = CheckBox1.Value
a
ThisWorkbook.Sheets("Tailler fruit and legumbres").Visible = CheckBox2.Value
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL