visualizzare l'url completo per un elenco di link

Question

ciao a tutti,

ho una tabella excel dove è salvato un elenco di nomi con il collegamento al proprio sito web

del tipo (nomi ed indirizzi inventati)

colonna A

Società xyz

Società aay

GrandiProgetti

etc

ognuno dei nomi è in realtà un link ad un sito web

esiste una funzione o un modo per mostrare nella cella accanto (col. b) i relativi link presenti in A?

colonna A - col B

Società xyz - http:\www.societaxyz.net

Società aay - http:\www.societaaay.org

GrandiProgetti - http:\www.grandiprogprova.it

Answer 1

Ciao Nikita,

Riflettendo, preferisco;

'========>>

Option Explicit

'-------->>

Public Function URL(rCella As Range) As Variant

If rCella.Hyperlinks.Count > 0 Then 

    URL = rCella.Hyperlinks(1).Address 

Else 

    URL = CVErr(xlErrNA) 

End If 

End Function

'<<========

===

Regards,

Norman

Answer 2

Ciao Nikita,

non so cosa sarebbe questo forum senza di te!!!!

grazie infinite

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

non so cosa sarebbe questo forum senza di te!!!!

grazie infinite

Answer 4

Ciao Nikita,

ho una tabella excel dove è salvato un elenco di nomi con il collegamento al proprio sito web

del tipo (nomi ed indirizzi inventati)

colonna A

Società xyz

Società aay

GrandiProgetti

etc

ognuno dei nomi è in realtà un link ad un sito web

esiste una funzione o un modo per mostrare nella cella accanto (col. b) i relativi link presenti in A?

colonna A - col B

Società xyz - http:\www.societaxyz.net

Società aay - http:\www.societaaay.org

GrandiProgetti - http:\www.grandiprogprova.it

Non esiste una funzione per restituire l'URL di un collegamento ipertestuale ma puoi utilizzare una UDF (funzione utente) che opera come qualsiasi funzione nativa:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Public Function URL(rCella As Range) As Variant

Dim HL As Hyperlink 

On Error Resume Next 

Set HL = rCella.Hyperlinks(1) 

On Error GoTo 0 

If Not HL Is Nothing Then 

    URL = HL.Address 

Else 

    URL = CVErr(xlErrNA) 

End If 

End Function

'<<======== 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm

Se il collegamento ipertestuale si trova nella cella A1, per restituire l'URL, nella cella di interesse immetti la formula:

 [![Immagine](https://learn-attachment.microsoft.com/api/attachments/1af1b24d-271d-4799-b36c-35e4d837e20f?platform=QnA"https://learn-attachment.microsoft.com/api/attachments/d5484314-60f5-48a7-91a0-1fe369d5211a?platform=QnA" rel="ugc nofollow">