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

Tabla de contenido

Los hipervínculos son URL adjuntas a un valor que se ve cuando pasamos el mouse sobre él y cuando hacemos clic en él, se abre la URL, en VBA tenemos una propiedad incorporada para crear hipervínculos en VBA y para usar esta propiedad usamos el método Add junto con la declaración de hipervínculo para insertar un hipervínculo en una celda.

Hipervínculos en Excel VBA

A pesar de que tenemos las teclas de acceso directo Page Up & Page Down en Excel para movernos de una hoja a otra, se vuelve complejo cuando tenemos que movernos entre 10 y más hojas de trabajo. Aquí es donde entra en escena la belleza de los "Hipervínculos en Excel". El hipervínculo es una URL predeterminada que lo lleva a la celda u hoja de trabajo respectiva asignada.

Todos sabemos cómo crear hipervínculos en la hoja de trabajo para pasar de una hoja a otra rápidamente, y también puede ir a cualquier otra hoja. Pero en el artículo de hoy, le mostraremos cómo crear hipervínculos utilizando la codificación VBA.

La fórmula de los hipervínculos VBA

Veamos la fórmula de los hipervínculos en Excel VBA.

  • Anchor: en qué celda le gustaría crear un hipervínculo.
  • Dirección: ¿Cuál es la URL del hipervínculo para navegar?
  • (Subdirección): ¿Cuál es la ubicación de la página?
  • (Sugerencia en pantalla): ¿Cuál es el valor que se muestra cuando coloca el puntero del mouse en el nombre o la celda del hipervínculo?
  • (Texto para mostrar): ¿Cuál es la prueba que se mostrará en la celda? Por ejemplo, Nombre de la hoja de trabajo.

¿Cómo crear hipervínculos en Excel VBA?

Suponga que desea crear un hipervínculo VBA a la hoja denominada "Hoja principal" de la otra hoja "Ejemplo 1".

En la hoja de trabajo “Ejemplo 1” y en la celda A1, crearé el hipervínculo usando Código en VBA.

Paso 1: Primero, seleccione la celda A1 del Ejemplo 1 de la hoja de trabajo.

Código:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleccione Range ("A1"). Seleccione End Sub

Paso 2: Ahora, utilizando los hipervínculos abiertos del objeto Active Cell. Agregar método.

Código:

Sub Hyperlink_Example1 () Worksheets ("Ejemplo 1"). Seleccione Rango ("A1"). Seleccione ActiveCell.Hyperlinks.Add (End Sub

Paso 3: El primer argumento es "Ancla", es decir, en qué celda enlazaríamos para crear el hipervínculo VBA. En este caso, la celda A1 y como ya hemos seleccionado la celda A1 para mencionarla como "Selección".

Código:

Sub Hyperlink_Example1 () Worksheets ("Ejemplo 1"). Seleccione Rango ("A1"). Seleccione ActiveCell.Hyperlinks.Add (Selection, End Sub

Paso 4: No estamos creando ninguna dirección aquí, así que ignora la dirección a partir de ahora.

Código:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Seleccione Range ("A1"). Seleccione ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", End Sub

Paso 5: Lo siguiente es la subdirección. Aquí debemos mencionar a qué hoja nos referimos y la primera celda de esa hoja.

Código:

Sub Hyperlink_Example1 () Worksheets ("Ejemplo 1"). Seleccione Rango ("A1"). Seleccione ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", End Sub

He mencionado el nombre de la hoja como "Hoja principal", y en esa hoja la dirección de celda es "A1".

Paso 6: Ignore también la sugerencia en pantalla. Para que se muestre el texto, mencione el nombre de la hoja.

Código:

Sub Hyperlink_Example1 () Worksheets ("Ejemplo 1"). Seleccione Range ("A1"). Seleccione ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", TextToDisplay : = "Hoja principal" End Sub

Ok, done run this code using the F5 key or manually. Then, it will create a hyperlink in the cell A1 in the sheet “Example 1”.

When you click on Hyperlink “Main Sheet,” it redirects to the main sheet.

Hyperlinks of Multiple Sheets with Loops

We have seen creating a VBA hyperlink for one sheet. When we have many sheets, it isn’t easy to create a VBA hyperlink for each sheet with the same line of code for each sheet.

Assume you have 11 worksheets, as shown in the below image.

You want to create a hyperlink for each sheet in the Index sheet using VBA Code.

Step 1: Define the variable as a worksheet.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet End Sub

Step 2: The first thing is to select the worksheet Index and select the cell A1.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select End Sub

Step 3: Now open For Each Loop in VBA.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets Next Ws End Sub

Step 4: Since we have already selected the cell A1 it is now an active cell. So start the hyperlink with the active cell.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add( Next Ws End Sub

Step 5: Anchor is a hyperlink cell. So it is the active cell.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Next Ws End Sub

Step 6: Address is nothing mention it as “.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="", Next Ws End Sub

Step 7: Subaddress is when we loop through the sheet, it should be the sheet name. To refer to the sheet name, we need a single quote, “’” with sheet name and “! Cell Address,” and close the sheet name with a single quote “’.”

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="",SubAddress:=""& Ws.Name&"!A1"&"", Next Ws End Sub

Step 8: Ignore Screen tip, and for Text to display, you can enter the worksheet name.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=Ws.Name Next Ws End Sub

Paso 9: Para almacenar el hipervínculo de cada hoja en una celda diferente, cada vez que se crea un hipervínculo para una hoja, necesitamos bajar una celda de la celda activa.

Código:

Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Seleccione Range ("A1"). Seleccione para cada Ws en ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Dirección: = "", Subdirección: = "" & Ws.Name & "! A1" & "", ScreenTip: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0) .Seleccione Next Ws End Sub

Esto creará un hipervínculo de todas las hojas en la hoja de índice. Este código es dinámico siempre que haya alguna adición o eliminación de hojas. Necesitamos ejecutar este código para tener un hipervínculo actualizado.

Articulos interesantes...