¿Cómo ocultar o mostrar filas o columnas específicas al hacer doble clic en una celda de Excel?
Normalmente, puedes ocultar o mostrar filas y columnas haciendo clic con el botón derecho y seleccionando la opción correspondiente en el menú contextual. En este artículo te mostramos cómo ocultar o mostrar rápidamente filas o columnas específicas con solo un doble clic en una celda de Excel.
Ocultar o mostrar filas o columnas especificadas al hacer doble clic en una celda con código VBA
Ocultar o mostrar filas o columnas especificadas al hacer doble clic en una celda con código VBA
Los siguientes códigos VBA le permiten ocultar o mostrar rápidamente filas o columnas específicas en una hoja de cálculo al hacer doble clic en una celda determinada. Siga estos pasos.
1. Abra la hoja de cálculo en la que desea ocultar filas o columnas. Haga clic con el botón derecho en la pestaña de la hoja y, a continuación, haga clic en Ver código en el menú contextual.
2. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copie en la ventana de código uno de los siguientes códigos VBA que necesite.
VBA: Ocultar/mostrar filas especificadas al hacer doble clic en celdas de la hoja de cálculo:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("10:13")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
End SubVBA: Ocultar/mostrar columnas especificadas al hacer doble clic en celdas de la hoja de cálculo:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("D:E")
xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
End If
End SubNota: En el código, A1:A4, 10:13 y D:E indican que, al hacer doble clic en cualquier celda del rango A1:A4, se ocultarán automáticamente las filas 10:13 o las columnas D:E.
3. Pulse las teclas Alt+F11 para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
A partir de ahora, al hacer doble clic en cualquier celda del rango A1:A4, se ocultarán automáticamente las filas 10 a 13 o las columnas D a E. Al hacer doble clic nuevamente en la misma celda, todas las filas o columnas ocultas se mostrarán de inmediato.
Artículos relacionados:
- ¿Cómo hacer clic o doble clic en una celda para abrir un formulario de usuario específico en Excel?
- ¿Cómo insertar una marca de verificación en una celda al hacer doble clic en Excel?
- ¿Cómo insertar automáticamente la fecha y hora actuales en una celda al hacer doble clic en Excel?
- ¿Cómo hacer doble clic en una celda para sumarle 1 a su valor en Excel?
- ¿Cómo mostrar un calendario al hacer clic en una celda específica de Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos