Extraer URL del texto de anclaje en Excel

Question

Busqué en este hilo algo que se ajustara a mi consulta, pero la mayoría de los temas se acercaban pero no eran específicos del mío.

Estoy intentando extraer la URL de un texto ancla en Excel.

Hay una formula para esto? Cuando lo intento =GETURL, =HYPERLINKtodavía aparece el texto de anclaje con la URL vinculada.

¿Algunas ideas? Las soluciones macro son bastante inútiles, por lo que una fórmula sería buena. De lo contrario, déjame las macros a mí.

Answer 1

Si tiene una celda que contiene un hipervínculo y desea ver la URL en lugar del "nombre descriptivo", considere la siguiente función definida por el usuario (UDF):

Public Function hyp(r As Range) As String
    hyp = ""
    If r.Hyperlinks.Count > 0 Then
        hyp = r.Hyperlinks(1).Address
        Exit Function
    End If
    If r.HasFormula Then
        rf = r.Formula
        dq = Chr(34)
        If InStr(rf, dq) = 0 Then
        Else
            hyp = Split(r.Formula, dq)(1)
        End If
    End If
End Function

Esta UDF funciona tanto con hipervínculos insertados como con funciones =HIPERVÍNCULO().

Las funciones definidas por el usuario (UDF) son muy fáciles de instalar y utilizar:

1. ALT-F11 abre la ventana VBE
2. ALT-I ALT-M abre un módulo nuevo
3. pegue las cosas y cierre la ventana de VBE

Si guarda el libro de trabajo, la UDF se guardará con él. Si está utilizando una versión de Excel posterior a 2003, debe guardar el archivo como .xlsm en lugar de .xlsx.

Para eliminar la UDF:

1. abrir la ventana VBE como arriba
2. borrar el código
3. cerrar la ventana VBE

Para utilizar la UDF desde Excel:

= hip(A1)

Para obtener más información sobre las macros en general, consulte:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

y

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

y

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

para obtener detalles sobre las UDF

¡Las macros deben estar habilitadas para que esto funcione!