¿Cómo hacer doble clic en una celda para abrir una hoja de cálculo específica en Excel?
¿Quiere navegar rápidamente a una hoja de cálculo específica en un libro de Excel? Este artículo le ofrece un método VBA para abrir dicha hoja al hacer doble clic en una celda determinada.
Haga doble clic en una celda para abrir una hoja de cálculo especificada con código VBA
Haga doble clic en una celda para abrir una hoja de cálculo especificada con código VBA
Siga estos pasos para abrir una hoja de cálculo específica al hacer doble clic en una celda en Excel.
1. Haga clic con el botón derecho en la pestaña de la hoja que contiene la celda desde la que desea abrir la hoja y, a continuación, haga clic en Ver código en el menú contextual. Vea la captura de pantalla:
2. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, copie el siguiente código VBA en la ventana de código.
Código VBA: doble clic en una celda para abrir una hoja de cálculo especificada en Excel
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20180822
Dim xArray, xAValue As Variant
Dim xFNum As Long
Dim xStr, xStrRg, xStrSheetName As String
xRgArray = Array("A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5")
On Error Resume Next
For xFNum = LBound(xRgArray) To UBound(xRgArray)
xStr = ""
xStr = xRgArray(xFNum)
xAValue = ""
xAValue = Split(xStr, ";")
xStrRg = ""
xStrRg = xAValue(0)
xStrSheetName = ""
xStrSheetName = xAValue(1)
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then
Sheets(xStrSheetName).Activate
End If
Next
End SubNota: En el código VBA, "A1;Hoja2", "A12;Hoja3", "A4;Hoja4« y »A100;Hoja5" indican que, al hacer doble clic en la celda A1, se abrirá Hoja2; al hacerlo en A12, se abrirá Hoja3… Adáptelos a sus necesidades.
3. Pulse simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
A partir de ahora, al hacer doble clic en la celda A1 de la hoja de trabajo actual, se activará inmediatamente la hoja de cálculo especificada.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
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 añadir 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