¿Cómo crear una lista desplegable con hipervínculos a cada hoja en Excel?
Tal vez haya creado una lista desplegable antes, pero ¿alguna vez ha creado una lista desplegable con los hipervínculos a cada hoja en Excel como se muestra a continuación?
Cree una lista desplegable con hipervínculos de hojas
Crea una lista de hojas con hipervínculos
Cree una lista desplegable con hipervínculo de hoja
Solo hay un código VBA que puede manejar el trabajo en Excel.
1. Hacer clic en Developer > recuadro > Cuadro combinado (controles ActiveX).
Nota: Si la pestaña de desarrollador no se muestra en la cinta, haga clic en Archive > Opciones > Personalizar cinta de opciones, y luego revisa el Developer opción en el cuadro de la derecha. Ver captura de pantalla:
2. Luego dibuja un cuadro combinado en cualquier lugar que desees.
3. Haga clic con el botón derecho en la hoja en la que dibujó el cuadro combinado y haga clic en Ver código desde el menú contextual.
4. Copie y pegue el código siguiente en la secuencia de comandos en blanco y luego guárdelo para volver a la hoja.
VBA: cree una lista desplegable con enlaces de hojas
Private Sub ComboBox1_Change()
'UpdatebyExtendoffice20180404
Sheets(Me.ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_GotFocus()
Dim I As Long
Me.ComboBox1.Style = fmStyleDropDownList
If Me.ComboBox1.ListCount <> Sheets.Count Then
Me.ComboBox1.Clear
For I = 1 To ActiveWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
End If
Me.ComboBox1.DropDown
End Sub
5. Hacer clic en Developer > Modo de diseño para salir del modo de diseño.
Ahora todas las hojas se han incluido en la lista desplegable y irá a la hoja mientras hace clic en el nombre de la hoja.
Crea una lista de hojas con hipervínculos
Si solo desea crear una lista de nombres de hojas en las que se puede hacer clic como se muestra a continuación, puede aplicar Kutools for Excel, Create List of Sheet Names Característica que puede crear una lista de hipervínculos sobre nombres de hojas o una lista de botones de macro sobre nombres de hojas.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después de instalar Kutools para Excel, haga lo siguiente:(¡Descarga gratis Kutools para Excel ahora!)
1. Hacer clic en Kutools Más > Hoja de trabajo > Create List of Sheet Names.
2. En el Create List of Sheet Names diálogo, haga lo siguiente:
(1). Controlar Contains a list of hyperlinks< para crear una lista de nombres de hojas en las que se puede hacer clic, o marque Contains buttons and macros para crear botones que enlacen a cada hoja.
(2). Dale a la nueva hoja en la que colocarás los hipervínculos en un nombre.
(3). Especifique la ubicación de la nueva hoja.
(4). Especifique los enlaces de la hoja que se muestran en cuántas columnas.
3. haga clic en Aceptar, ahora los nombres de las hojas en las que se puede hacer clic se muestran en una hoja nueva.
De demostración
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!