excel-2007 - para - hipervinculo en excel a una celda especifica

¿Cómo convierto una columna de URL de texto en hipervínculos activos en Excel?

Question

Tengo una columna en Excel, donde tengo todos los valores de URL del sitio web. Mi pregunta es que quiero convertir los valores de url en enlaces activos. Hay alrededor de 200 entradas en esa columna con diferentes URL en todas las celdas. ¿Hay alguna manera de crear hipervínculos activos a todas las celdas sin escribir una macro?

Answer 1

Aquí hay una manera que encontré. Estoy en una Mac con Excel 2011. Si la columna B tenía los valores de texto que desea que sean hipervínculos, coloque esta fórmula en la celda C1 (o D1 o lo que sea, siempre que sea una columna libre): =HYPERLINK(B1,B1) Esto insertará un hipervínculo con la ubicación como el texto del enlace y el "nombre descriptivo" como el texto del enlace. Si tiene otra columna que tiene un nombre descriptivo para cada enlace, también puede usarlo. Luego, puede ocultar la columna de texto si no desea verla.

Si tiene una lista de ID de algo, y las URL son todas http://website.com/folder/ID , como:

A1  | B1
101 | http://website.com/folder/101
102 | http://website.com/folder/102
103 | http://website.com/folder/103
104 | http://website.com/folder/104

podría usar algo como =HYPERLINK("http://website.com/folder/"&A1,A1) y no necesitaría la lista de direcciones URL. Esa fue mi situación y funcionó muy bien.

Según esta publicación: http://excelhints.com/2007/06/12/hyperlink-formula-in-excel/ este método también funcionará en Excel 2007.

Answer 2

Bien, aquí hay una solución hokey, pero simplemente no puedo averiguar cómo hacer que Excel evalúe una columna de URL como hipervínculos en masa.

1. Cree una fórmula, ="=hyperlink(""" & A1 & """)"
2. Arrastre hacia abajo
3. Copiar nueva columna de fórmula
4. Pegar valores especiales, solo sobre la columna original
5. Resalte la columna, haga clic en Ctrl - H (para reemplazar), busque y reemplace = con = (de alguna manera obliga a la reevaluación de las celdas).
6. Las celdas ahora se pueden hacer clic como hipervínculos. Si desea el estilo azul / subrayado, simplemente resalte todas las celdas y elija el estilo Hipervínculo.

El estilo del hipervínculo por sí solo no se convertirá en enlaces en los que se puede hacer clic, y el diálogo "Insertar hipervínculo" no parece utilizar el texto como la dirección de un grupo de celdas en masa. Aparte de eso, F2 y Enter a través de todas las celdas lo harían, pero eso es tedioso para muchas celdas.

Answer 3

Coloque las URL en una tabla HTML, cargue la página HTML en un navegador, copie el contenido de esa página y péguela en Excel. En este punto, las URL se conservan como enlaces activos.

La solución se propuso en http://answers.microsoft.com/en-us/mac/forum/macoffice2008-macexcel/how-to-copy-and-paste-to-mac-excel-2008-a-list-of/c5fa2890-acf5-461d-adb5-32480855e11e por (Jim Gordon Mac MVP) [ http://answers.microsoft.com/en-us/profile/75a2b744-a259-49bb-8eb1-7db61dae9e78]

Encontré que funcionó.

Tuve estas URLs:

https://twitter.com/keeseter/status/578350771235872768/photo/1 https://instagram.com/p/ys5ASPCDEV/ https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg https://twitter.com/ranadotson/status/539485028712189952/photo/1 https://instagram.com/p/0OgdvyxMhW/ https://instagram.com/p/1nynTiiLSb/

Los puse en un archivo HTML (links.html) como este:

<table>
<tr><td><a href="https://twitter.com/keeseter/status/578350771235872768/photo/1">https://twitter.com/keeseter/status/578350771235872768/photo/1</a></td></tr>
<tr><td><a href="https://instagram.com/p/ys5ASPCDEV/">https://instagram.com/p/ys5ASPCDEV/</a></td></tr>
<tr><td><a href="https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg">https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg</a></td></tr>
<tr><td><a href="https://twitter.com/ranadotson/status/539485028712189952/photo/1">https://twitter.com/ranadotson/status/539485028712189952/photo/1</a></td></tr>
<tr><td><a href="https://instagram.com/p/0OgdvyxMhW/">https://instagram.com/p/0OgdvyxMhW/</a></td></tr>
</table>

Luego cargué el archivo links.html en mi navegador, lo copié, pegué en Excel y los enlaces estaban activos.

Answer 4

Con Excel 2007 en Windows, encontré estos pasos más simples;

1. Seleccionar celdas con las URL no activas
2. Dupdo
3. Pegar como hipervínculo

Answer 5

Crea la macro como aquí:

En el menú Herramientas en Microsoft Excel, seleccione Macro y luego haga clic en Editor de Visual Basic. En el menú Insertar, haga clic en Módulo. Copie y pegue este código en la ventana de código del módulo. Se nombrará automáticamente a sí mismo HyperAdd.

Sub HyperAdd()

    ''Converts each text hyperlink selected into a working hyperlink

    For Each xCell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    Next xCell

End Sub

Cuando haya terminado de pegar su macro, haga clic en Cerrar y volver a Microsoft Excel en el menú Archivo.

Luego seleccione las celdas requeridas y haga clic en macro y haga clic en ejecutar.

NOTA ¡NO seleccione toda la columna! Seleccione SOLAMENTE las celdas que desea cambiar a enlaces en los que se pueda hacer clic, de lo contrario, terminará en un bucle interminable y tendrá que reiniciar Excel. ¡Hecho!

Answer 6

Descubrí que ninguno de los métodos aquí funcionaba si el hipervínculo no incluía http: // ya que se vinculaban a ubicaciones locales.

También quería hacer el guión a prueba de errores, ya que los usuarios no podrían mantenerlo por sí mismos y yo no estaría disponible.

Solo se ejecutará en celdas de un rango seleccionado si contienen un punto y no espacios. Sólo se ejecutará para hasta 10.000 células.

Sub HyperAdd()
Dim CellsWithSpaces As String
    ''Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
        If xCell.Formula = "" Or InStr(xCell.Formula, ".") = NotPresent Then
        ''Do nothing if the cell is blank or contains no dots
        Else
            If InStr(xCell.Formula, " ") <> 0 Then
                CellsWithSpaces = CellsWithSpaces & ", " & Replace(xCell.Address, "$", "")
                 GoTo Nextxcell
            End If

            If InStr(xCell.Formula, "http") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "http://" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        End If
        i = i + 1
        If i = 10000 Then Exit Sub
Nextxcell:
      Next xCell
    If Not CellsWithSpaces = "" Then
        MsgBox ("Please remove spaces from the following cells:" & CellsWithSpaces)
    End If
Application.ScreenUpdating = True
End Sub

Answer 7

Este método funciona para mí usando la función de hipervínculo:

=HYPERLINK("http://"&B10,B10)

Donde B10 es la celda que contiene la versión de texto de la URL (en este ejemplo).

Answer 8

Gracias Cassiopeia por el código. Cambié su código para trabajar con direcciones locales e hice pequeños cambios a sus condiciones. He eliminado las siguientes condiciones:

1. Cambiar http:/ a file:///
2. Eliminado todo tipo de condiciones de espacios en blanco.
3. Se cambió la condición del rango de 10k celdas a 100k

Sub HyperAddForLocalLinks()
Dim CellsWithSpaces As String
    ''Converts each text hyperlink selected into a working hyperlink
    Application.ScreenUpdating = False
    Dim NotPresent As Integer
    NotPresent = 0

    For Each xCell In Selection
        xCell.Formula = Trim(xCell.Formula)
            If InStr(xCell.Formula, "file:///") <> 0 Then
                Hyperstring = Trim(xCell.Formula)
            Else
                Hyperstring = "file:///" & Trim(xCell.Formula)
            End If

            ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring

        i = i + 1
        If i = 100000 Then Exit Sub
Nextxcell:
      Next xCell
    Application.ScreenUpdating = True
End Sub

Answer 9

Hay una manera muy simple de hacer esto. Cree un hipervínculo y, a continuación, utilice Format Painter para copiar el formato. Se creará un hipervínculo para cada elemento.

Answer 10

La forma más sencilla en Excel 2010: seleccione la columna con el texto de la URL, luego seleccione Estilo de hipervínculo en la pestaña Inicio. Todas las URL en la columna ahora son hipervínculos.

También al hacer doble clic en cada celda al final del texto de la URL y agregar un espacio en blanco o simplemente ingresar, también se generará un hipervínculo. Similar a la forma en que tiene que crear enlaces URL en los correos electrónicos de MS Outlook.

Answer 11

La manera más fácil aquí

• Resalte toda la columna
• haga clic en '''' insertar ''''
• haga clic en '''' Hipervínculo ''''
• haga clic en '''' lugar en este documento ''''
• haga clic en Aceptar
• eso es todo

Answer 12

Manera bastante fácil para listas bastante cortas:

1. Haga doble clic en la casilla donde está la URL.
2. Entrar

Tienes tu enlace;)

Answer 13

Me sorprendió que Excel no hiciera esto automáticamente, así que aquí está mi solución, espero que sea útil para otros.

1. Copia toda la columna al portapapeles.
2. Abre esto en tu Chrome o Firefox

data:text/html,<button onclick="document.write(document.body.querySelector(''textarea'').value.split(''/n'').map(x => ''<a href=/''' + x + ''/'>'' + x + ''</a>'').join(''<br>''))">Linkify</button><br><textarea></textarea>

3. Pega la columna en la página que acabas de abrir en el navegador y presiona "Vincular"
4. Copie el resultado de la pestaña a la columna en Excel

En lugar del paso dos, puede usar la página siguiente, primero, haga clic en "Ejecutar fragmento de código" y luego pegue la columna en ella.

<button onclick="document.write(document.body.querySelector(''textarea'').value.split(''/n'').map(x => ''<a href=/''' + x + ''/'>'' + x + ''</a>'').join(''<br>''))">Linkify</button><br><textarea></textarea>

Answer 14

Para cualquiera que llegue aquí con Excel 2016, simplemente puede resaltar la columna y luego hacer clic en la pestaña Hyperlink ubicada en la cinta de Home en el cuadro Styles .

Edición: Desafortunadamente, esto solo actualiza el estilo de celda, no la función.

Answer 15

Para mí, simplemente copié la columna completa que tiene las URL en formato de texto en otra aplicación (por ejemplo, Evernote), y cuando se pegaron allí, se convirtieron en enlaces, y luego las copié de nuevo en Excel.

Lo único aquí es que necesita asegurarse de que los datos que copia vuelven a alinearse con el resto de las columnas.

Answer 16

Prueba esto:

= HYPERLINK ("mailto:" & A1, A1)

Reemplace A1 con su texto de celda de dirección de correo electrónico.

Answer 17

Puede insertar la fórmula =HYPERLINK(<your_cell>,<your_cell>) en la celda adyacente y arrastrarla hasta el final. Esto le dará una columna con todos los enlaces. Ahora, puede seleccionar su columna original haciendo clic en el encabezado, haga clic con el botón derecho y seleccione Hide .

Answer 18

Si agregar una columna adicional con los hipervínculos no es una opción, si tiene instalado notepad ++, puede:

• Copia la columna de direcciones a Notepad ++
• Manteniendo presionado ALT - MAYÚS , extendió el cursor desde la esquina superior izquierda hasta la esquina inferior derecha y escriba =hyperlink(" . Esto agrega =hyperlink(" al principio de cada entrada).
• Abra el menú "Reemplazar" ( Ctrl - H ), active expresiones regulares ( ALT - G ) y reemplace $ (final de línea) con "/) . Esto agrega una comilla cerrada y un paréntesis cerrado (que debe ser evitado con / cuando las expresiones regulares están activadas) al final de cada línea.
• Vuelve a pegar los datos en Excel. En la práctica, solo copie los datos y seleccione la primera celda de la columna donde desea que terminen los datos.

Answer 19

Si copia el contenido del texto en una nueva columna y utiliza:

=HYPERLINK("http://"&B10,B10) 

en su columna original. Luego usa $ para la columna para que se vea así:

=HYPERLINK("http://"&$B10,$B10)

Esa es la única forma en que funcionó para mí en Excel 2010 en Windows 7. Puede copiar la fórmula.

Answer 20

Si no desea crear una macro y siempre que no le importe una columna adicional, simplemente cree una nueva columna junto a su columna de URL.

En el nuevo tipo de columna en la fórmula =HYPERLINK(A1) (reemplazando A1 con cualquier celda que le interese). Luego copia la fórmula del resto de las 200 entradas.

NOTA: esta solución no funciona si la celda A1 contiene una cadena de más de 255 caracteres. Se traduce en un #VALUE! error

Answer 21

Tenía una lista de números que se insertan en las URL. Quiero un enlace activo. Por ejemplo, tengo la Columna A con números de pregunta (es decir, 2595692, 135171) y quiero convertir estos números de pregunta en enlaces activos y mostrar solo los números de pregunta.

Así que construí un hipervínculo de solo texto que apunta a la Columna A y lo copié para todos mis números de preguntas:

= "= HYPERLINK (" & "" "http" "&" ":" "" & "" & "&" & "" // .com/questions/"&A1&""""&"""&A1& ")"

Luego copio y pegue el valor de esta columna de texto con hipervínculos a otra columna.

Terminas con una columna de texto que se parece a lo siguiente:

= HYPERLINK ("http" & ":" & "// .com/questions/2595692",2595692)

Luego seleccioné estos elementos pegados y ejecuté la macro F2Entry que sigue:

Sub F2Enter()
Dim cell As Range
Application.Calculation = xlCalculationManual
For Each cell In Selection
    cell.Activate
    cell = Trim(cell)
Next cell
Application.Calculation = xlCalculationAutomatic
EndSub

Luego borré la columna de entrada de texto y la columna A.

Terminé con una sola columna de números de preguntas enlazadas en caliente:

2595692

135171

etc.

Aclamaciones