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

¿Cómo usar la casilla de verificación para ocultar / mostrar filas o columnas en Excel?

Supongamos que necesita usar una casilla de verificación para ocultar o mostrar ciertas filas o columnas. Por ejemplo, cuando la casilla de verificación Active X Control está marcada, se muestran determinadas filas o columnas; de lo contrario, se ocultarán. Este artículo le muestra el método de cómo usar la casilla de verificación para ocultar / mostrar filas o columnas en Excel con detalles.

Use la casilla de verificación para ocultar / mostrar filas o columnas con código VBA


Use la casilla de verificación para ocultar / mostrar filas o columnas con código VBA

El siguiente código de VBA puede ayudarlo a ocultar / mostrar ciertas filas o columnas con la casilla de verificación.

1. Después de insertar una casilla de verificación Active X Control en la hoja de trabajo, haga clic derecho en la casilla de verificación y luego seleccione Ver código desde el menú contextual. Ver captura de pantalla:

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

Código de VBA: use la casilla de verificación para ocultar / mostrar filas o columnas

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Notas:

1. En el código VBA, [DISCOS COMPACTOS]. Toda la columna significa que las columnas C y D se ocultarán o mostrarán marcando o desmarcando la casilla correspondiente.

2. Para ocultar o mostrar ciertas filas, como la fila 6: 9, cambie el [DISCOS COMPACTOS]. Toda la columna a [6: 9]. Fila completa en el código VBA.

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

4. Ahora, apague el Modo de diseño bajo el Developer pestaña como se muestra a continuación:

A partir de ahora, cuando se marca la casilla de verificación, se muestran las filas o columnas especificadas. Cuando no está marcada, las filas o columnas especificadas están ocultas.


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 (26)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de usar la casilla de verificación "Usar para ocultar/mostrar filas o columnas con código VBA" en una hoja de trabajo protegida?
Este comentario fue minimizado por el moderador en el sitio
@Wayne:

Private Sub CheckBox1_Click ()
ActiveSheet.Desproteger Contraseña:="xxxxx"
Rows("284:351").EntireRow.Hidden = No CheckBox1
ActiveSheet.Protect Contraseña:="xxxx"
End Sub
Este comentario fue minimizado por el moderador en el sitio
Parece que este código solo irá en una dirección, es decir, solo los ocultará y no los mostrará cuando se haga clic. ¿Hay alguna manera de corregir esto?
Este comentario fue minimizado por el moderador en el sitio
Tenemos el mismo problema, pero descubrí que estamos usando controles de formulario y no controles ActiveX. El código funciona perfectamente en el botón de casilla de verificación de control ActiveX. Simplemente apague el modo de diseño para que pueda hacer clic en la casilla de verificación.
Este comentario fue minimizado por el moderador en el sitio
Tenemos el mismo problema, pero encontramos una manera de hacerlo funcionar. Utilice la casilla de verificación Controles ActiveX y no la casilla Control de formulario. El código funciona perfectamente con la casilla de verificación ActiveX.


Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = No CheckBox1
End Sub
Este comentario fue minimizado por el moderador en el sitio
Hola,

Estoy tratando de usar este código para ocultar/mostrar en una hoja separada de la casilla de verificación. ¿Qué tengo que agregar para que esto funcione? Gracias por adelantado.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = No CheckBox1
End Sub
Este comentario fue minimizado por el moderador en el sitio
Buenos días,
Como se muestra en el siguiente código, reemplace "Sheet4" con el nombre de su hoja por separado.

Private Sub CheckBox1_Click ()
[Hoja4!C:D].EntireColumn.Hidden = No CheckBox1
End Sub
Este comentario fue minimizado por el moderador en el sitio
Hola,

Hola, hice el código, funciona bien, pero cuando trato de hacer lo mismo en más de una casilla de verificación en la misma hoja, funcionan 'juntas', solo ocultan o muestran las filas si las tres casillas de verificación están seleccionadas.
Estoy tratando de hacer que estas tres casillas de verificación funcionen de forma independiente una de otra. Y deje que los usuarios marquen solo una casilla por vez.
Este comentario fue minimizado por el moderador en el sitio
Hola Lou
Asegúrese de que las casillas de verificación que creó sean casillas de verificación de controles ActiveX. Estas casillas de verificación funcionan de forma independiente en su hoja de trabajo.
Gracias por tu comentario.
Este comentario fue minimizado por el moderador en el sitio
Hola,

¿Hay alguna manera de ocultar solo una fila? Si pongo 6:9 se ocultan todas las filas, pero si pongo solo 6 sale como error. Agradecería su ayuda, gracias!
Este comentario fue minimizado por el moderador en el sitio
Hola,
Cambie la segunda línea del código a:
[6:6].EntireRow.Hidden = No CheckBox1.
Gracias por tu comentario.
Este comentario fue minimizado por el moderador en el sitio
Intenté mostrar los tres primeros roles pero no funcionó. ¿Cómo puedo hacerlo? Sé que la persona que me envió ese archivo quiere saber mi habilidad. Puedo resolverlo o no.
Este comentario fue minimizado por el moderador en el sitio
Hola mayo,
Lo siento, no entendí tu punto.
Este comentario fue minimizado por el moderador en el sitio
Funcionó, pero luego, cuando guardé el archivo y lo volví a abrir, no funciona. Intenté guardarlo como una hoja de Excel de Macro y como un libro de trabajo normal. ¿Qué he hecho mal? Quiero dárselo a otra persona para que lo use y no quiero que se confunda.
Este comentario fue minimizado por el moderador en el sitio
Hola angela, después de agregar el código en el libro de trabajo, haga clic en Archivo > Guardar como, elija dónde guardar el archivo, en el cuadro de diálogo Guardar como, elija Libro de trabajo habilitado para macros de Excel (*.xlsm) en el menú desplegable Guardar como tipo y finalmente haga clic en Guardar. Luego envíe este libro de Excel habilitado para macros a otras personas.
Este comentario fue minimizado por el moderador en el sitio
Muy útil, pero ¿cómo puedo usarlo para ocultar solo una parte de la hoja de cálculo? Quiero decir, por ejemplo, las celdas B2: B11, ¿cómo combinar esas dos funciones? Gracias.
Este comentario fue minimizado por el moderador en el sitio
¿Qué sucede si quisiera usar 3 casillas de verificación diferentes y quisiera que cada una alternara para ocultar diferentes grupos de filas? He probado y mirado por todas partes. Cuando trato de modificar este código, las casillas de verificación parecen interferir entre sí.
Este comentario fue minimizado por el moderador en el sitio
¿Qué sucede si quisiera usar 3 casillas de verificación diferentes y quisiera que cada una alternara para ocultar diferentes grupos de filas? He probado y mirado por todas partes. Cuando trato de modificar este código, las casillas de verificación parecen interferir entre sí.
Este comentario fue minimizado por el moderador en el sitio
Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém pode complementar por favor? Preciso de um código para ocultar y reexibir las colunas indicadas.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = No CheckBox1
End Sub

Gracias
Este comentario fue minimizado por el moderador en el sitio
Hola Welington Mesquita,
Este código VBA puede lograr:
Cuando se marca la casilla de verificación 1, se muestran las columnas C:D;
Cuando no está marcada, las columnas C:D están ocultas.
El código funciona bien en mi caso. ¿Qué versión de Excel estás usando?
Este comentario fue minimizado por el moderador en el sitio
¡Buenos días!
Espero que todos estejam bem!

Tenho uma situação onde precisa ocultar / reexibir a coluna utilizando o Control ActiveX quando solecionado o item.

Ejemplo: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), no en tanto, que poder seleccionar individuales como columnas intercalando se necessário. Seleccione algo a coluna Realizado e Variação, mesmo não estando na sequencia.

Le doy las gracias,
Welington
Este comentario fue minimizado por el moderador en el sitio
Hola,
Lo siento, no entiendo lo que quieres decir. ¿Le importaría proporcionar una captura de pantalla de sus datos?
Es posible que deba adjuntar una captura de pantalla o un archivo de muestra para describir el problema que encontró con mayor claridad.
Este comentario fue minimizado por el moderador en el sitio
E para ocultar columnas não sequências?
Ejemplo: A y C

Esta situação seria aplicada de que forma para A e C ?

"Sub CheckBox1_Click privado ()
[C:D].EntireColumn.Hidden = No CheckBox1
End Sub "
Este comentario fue minimizado por el moderador en el sitio
Hola,
El siguiente código de VBA puede hacerte un favor. Por favor inténtalo.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Este comentario fue minimizado por el moderador en el sitio
Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Ayudar ....
Este comentario fue minimizado por el moderador en el sitio
Hola Rose,
El siguiente código de VBA puede ayudar.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

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