Elimina URL da un intervallo di celle

 

Il mio range di celle contiene un collegamento ipertestuale (hyperlink) che desidero visualizzare in una cella come testo.

In pratica desidero tenere il solo indirizzo senza il testo descrittivo.

Ho scritto una funzione ad-hoc per questa operazione. 

HL è l’argomento della funzione (l’indirizzo della cella contenente il collegamento ipertestuale da cui estrarre l’URL)

L’output della funzione è la variabile Link che contiene l’URL estratto.

Public Function Gianmario_ExtractURL(HL As Range)
' Estrae l'indirizzo URL da un collegamento ipertestuale
Dim Link As String
Application.Volatile
Link = ""

If HL.Hyperlinks.Count Then
    Link = HL.Hyperlinks(1).Address
End If

' Ritorno l'URL come testo 
Gianmario_ExtractURL = Link
End Function

Lascia un commento

Il tuo indirizzo email non sarà pubblicato.