¿Cómo seguir el hipervínculo a la hoja oculta en Excel?
Por ejemplo, tengo un libro de trabajo que contiene varias hojas de trabajo, la primera hoja maestra tiene hipervínculos a otras hojas y ahora, oculto todas las hojas excepto la primera. En este caso, los hipervínculos que enlazan con hojas ocultas no están disponibles. Pero, ¿cómo puede hacer que estos hipervínculos funcionen correctamente? Cuando hace clic en un hipervínculo, la hoja oculta vinculada se abrirá a la vez como se muestra en la siguiente captura de pantalla:
Siga el hipervínculo para abrir la hoja oculta con código VBA
Siga el hipervínculo para abrir la hoja oculta y luego ocúltela nuevamente con el código VBA
Siga el hipervínculo para abrir la hoja oculta con código VBA
El siguiente código VBA puede ayudarlo a abrir la hoja de trabajo oculta al hacer clic en su hipervínculo relativo, haga lo siguiente:
1. Haga clic con el botón derecho en la pestaña de la hoja que desea seguir el hipervínculo a la hoja oculta, y luego elija Ver código en el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el módulo en blanco:
Código de VBA: siga el hipervínculo para abrir la hoja oculta:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub
Note: En el código anterior, el número 1 en este Si Target.Column = 1 Then El script indica el número de columna que contiene los hipervínculos, cámbielo según sus necesidades.
2. Luego guarde y cierre esta ventana de código, ahora, cuando haga clic en el hipervínculo que enlaza a la hoja oculta específica, la hoja oculta se abrirá de inmediato.
Siga el hipervínculo para abrir la hoja oculta y luego ocúltela nuevamente con el código VBA
A veces, debe seguir el hipervínculo para abrir la hoja oculta y, cuando regrese a la hoja maestra, desea que la hoja abierta se vuelva a ocultar. El siguiente código VBA puede hacerte un favor:
1. Haga clic con el botón derecho en la pestaña de la hoja que desea seguir el hipervínculo a la hoja oculta, y luego elija Ver código en el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el módulo en blanco:
Código de VBA: siga el hipervínculo para abrir la hoja oculta cuando vuelva a ocultarla de nuevo:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
2. Luego guarde el anuncio y cierre la ventana del código, cuando haga clic en el hipervínculo, la hoja oculta vinculada se abrirá inmediatamente, pero, si vuelve a la hoja maestra que contiene los hipervínculos, la hoja abierta se ocultará automáticamente nuevamente.
Note: Estos códigos solo se aplican a los nombres de las hojas que coinciden con el texto de su hipervínculo.
Demostración: siga el hipervínculo para abrir la hoja oculta con código VBA
Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!