Definición de hipervínculo VBA

El hipervínculo se usa comúnmente con sitios web para navegar de una página a otra o de un sitio web a otro en Internet. De manera similar, también podemos controlar los movimientos dentro de la hoja de cálculo de Excel. Las diferentes operaciones que se pueden realizar en Excel son:

  • Moverse a una ubicación específica dentro del libro actual.
  • Abrir diferentes documentos y seleccionar un área mencionada dentro del documento.
  • Navegando a páginas web desde la hoja de trabajo.
  • Envío de correo electrónico a una dirección definida.

El hipervínculo es fácil de reconocer debido a su cambio de color, principalmente en azul. Existen diferentes métodos para crear un hipervínculo en Excel y dejar de usar VBA.

¿Cómo crear un hipervínculo en Excel usando el código VBA?

Puede agregar un hipervínculo a un texto o una hoja a otra hoja de trabajo dentro de Excel usando la propiedad de agregar hipervínculo. El formato debe seguirse especificando dónde se debe crear el hipervínculo y la URL de navegación, etc.

Formato para VBA Hyperlink Add

El formato muestra los parámetros que se deben proporcionar para agregar un hipervínculo a una hoja de trabajo.

  • Ancla: define la celda en la que desea crear el hipervínculo.
  • Dirección: la URL a la que debe moverse la navegación.
  • (SubAddress): subdirección de la URL.
  • (Información en pantalla): el valor del puntero del mouse que se mostrará al colocar un puntero del mouse.
  • (Texto a mostrar): el texto debe mostrarse en la celda.

Use la propiedad de celda Activa para agregar un hipervínculo.

Seleccione el método de agregar de la lista

Ejemplos para crear hipervínculos en Excel VBA

A continuación se muestran los diferentes ejemplos para crear hipervínculos en Excel utilizando el código VBA.

Puede descargar esta plantilla de VBA Hyperlink Excel aquí - Plantilla de VBA Hyperlink Excel

Ejemplo # 1 - Crear un hipervínculo desde la Hoja de trabajo a un sitio web

Queremos crear un hipervínculo desde la hoja de trabajo llamada sub a un sitio web usando el código VBA en Excel.

A continuación se detallan los pasos para crear un hipervínculo en Excel VBA:

Paso 1: Cree una función llamada hiper para agregar el hipervínculo.

Código:

 Private Sub hyper () End Sub

Paso 2: utilice el objeto de celda activa para abrir el método de agregar hipervínculo.

Código:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (End Sub

Paso 3: Proporcione los valores de los parámetros al método de agregar hipervínculo.

Código:

 Private Sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "es un hipervínculo", TextToDisplay: = "Excel Training" End Sub
  • Ancla: nombre de la hoja de trabajo
  • Dirección: hipervínculo a donde se debe navegar el control, dada la dirección del sitio web
  • Información en pantalla: el texto del puntero del mouse
  • TextToDisplay: a qué texto se asignará el hipervínculo

Paso 4: presione F5 o el botón Ejecutar debajo de VBE para ejecutar este código y ver el resultado.

El rango de celdas A1 se selecciona y el texto se asigna con un hipervínculo, una vez que haga clic en el texto "Excel Training", lo redireccionará al sitio web https://www.educba.com/ Cuando mueva el puntero del mouse al lado del texto, mostrará el texto del puntero del mouse.

Ejemplo # 2 - Hipervínculo para conectar dos hojas de trabajo

Tenemos dos hojas de trabajo llamadas Home y sub . Intentemos crear un hipervínculo de sub a casa usando el código VBA.

Siga los pasos a continuación para crear un hipervínculo de una hoja de trabajo a otra dentro del mismo libro de trabajo utilizando el código VBA.

Paso 1: Cree una función, donde escribiremos todos los códigos para realizar la acción. Escriba el código para seleccionar la hoja de trabajo 'sub' usando el método de selección de la hoja de trabajo.

Código:

 Private Sub hyper1 () Worksheets ("sub"). Seleccione End Sub

Dado que el control se mueve dentro de la hoja, es necesario seleccionar la hoja de trabajo en la que está creando el hipervínculo.

Paso 2: Seleccione el rango de celdas dentro de la hoja donde desea crear el hipervínculo.

Código:

 Private Sub hyper1 () Worksheets ("sub"). Seleccione Range ("A1"). Seleccione End Sub

Paso 3: Ahora agreguemos el hipervínculo usando la propiedad de celda activa.

Código:

 Private Sub hyper1 () Worksheets ("sub"). Seleccione Range ("A1"). Seleccione ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Haga clic para mover la hoja de inicio" Fin Sub

Como la hoja de trabajo ya está seleccionada, Anchor se da como 'Selección'. El hipervínculo se especifica como hoja 'Inicio' y rango A1.

Paso 4: Ejecute el código y la hoja secundaria mostrará el hipervínculo como se muestra a continuación.

Paso 5: Una vez que se hace clic en el texto, el control se moverá a la hoja ' Inicio '. Y se seleccionará la celda A1.

Ejemplo # 3 - Hipervínculo con múltiples hojas de trabajo

Si desea crear un hipervínculo en varias hojas de trabajo, también es posible. En este ejemplo, tenemos varias hojas dentro del mismo libro de trabajo. Existen diferentes tipos de funciones de Excel, por lo tanto, desde la hoja de trabajo principal 'Funciones'. Intentemos crear un hipervínculo a la hoja de trabajo diferente nombrada con diferentes funciones usando el código VBA:

Las múltiples hojas de trabajo se nombran a continuación con diferentes nombres de funciones de Excel

Como queremos crear un hipervínculo a cada hoja de trabajo, es difícil repetir el código. Siga los pasos a continuación para crear un hipervínculo utilizando el código VBA en Excel:

Paso 1: Cree una variable para manejar la hoja de trabajo fácilmente.

Código:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Paso 2: Ahora queremos seleccionar la página principal que actúa como una página de índice y seleccionar el rango de celdas A1.

Código:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Funciones"). Seleccione Range ("A1"). Seleccione End Sub

Paso 3: para moverse a través de múltiples hojas de trabajo e hipervínculos, estamos creando un para cada ciclo. A1 ya está seleccionado como celda activa, por lo que se crea un hipervínculo a partir de esto.

Código:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Seleccione Range ("A1"). Seleccione para cada ws en ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

Paso 4: proporcione los valores de los parámetros para crear un hipervínculo para cada hoja de trabajo. Dado que el hipervínculo comienza desde el anclaje de celda activa = celda activa, la dirección se proporciona como "" .

Código:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Seleccione Range ("A1"). Seleccione para cada ws en ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub

Paso 5: el hipervínculo se enlaza a través de la hoja de trabajo, por lo que deberíamos dar subdirección como nombres de hoja. Para obtener los nombres de las hojas, podemos usar la variable ws y el rango de celdas como A1. El nombre de la hoja se habrá referido con una sola cita. El nombre y el rango de la hoja se especificarán y también se cerrarán con una sola cita.

Código:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Seleccione Range ("A1"). Seleccione para cada ws en ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Siguiente ws End Sub

Paso 6: para obtener el hipervínculo con el nombre de la hoja, aparece TextToDisplay como ws.Name

Código:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Seleccione Range ("A1"). Seleccione para cada ws en ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws End Sub

Este código almacenará un hipervínculo para cada hoja de trabajo en la misma celda A1.

Paso 7: Para cambiar esto, cada hoja a una celda diferente hacia abajo una celda de la celda activa.

Código:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Seleccione Range ("A1"). Seleccione para cada ws en ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Seleccione Next ws End Sub

Paso 8: Ejecute el programa y cada nombre de hoja se mostrará en la hoja 'Funciones' y al hacer clic en él, el control se moverá a la hoja correspondiente.

Cosas para recordar

  • Propiedad de hipervínculo de la celda activa utilizada para crear hipervínculos en VBA.
  • Ayuda de hipervínculo para moverse fácilmente dentro del libro de trabajo.

Artículos recomendados

Esta es una guía de hipervínculos VBA. Aquí aprendemos cómo crear hipervínculos en la hoja de trabajo usando el código VBA para pasar rápidamente de una hoja a otra junto con algunos ejemplos prácticos y una plantilla de Excel descargable. También puede consultar nuestros otros artículos sugeridos:

  1. Introducción a los bucles VBA
  2. Eliminar hipervínculos en Excel
  3. VBA Break for Loop
  4. Encuentra enlaces externos en Excel

Categoría:

VBA