John ha una cartella di lavoro che contiene oltre un migliaio di URL, tutti nella colonna A. Questi non sono collegamenti ipertestuali; sono testo semplice di singoli URL. John vuole convertire gli URL in collegamenti ipertestuali attivi, ma eseguire la conversione individualmente è estremamente noioso, soprattutto per tanti URL.

Un modo per eseguire la conversione è utilizzare la funzione HYPERLINK. Metti questa formula nella cella B1 e copia il numero di celle necessario:

=IF(A1="","",HYPERLINK(IF(LEFT(A1,7)="http://","","http://")&A1))

Il risultato è che la colonna B conterrà collegamenti ipertestuali per tutto ciò che è contenuto nella colonna A. La formula non è particolarmente solida, poiché si occupa solo della presenza o della mancanza del testo “http: //” e potrebbe essere necessario anche per trattare con indirizzi “https”. È possibile modificare la formula (ovvero renderla più complessa), ma potresti anche prendere in considerazione l’utilizzo di una macro per eseguire le conversioni.

Per essere efficace, la macro dovrebbe scorrere ogni cella in un intervallo selezionato e, se la cella non è vuota, convertire il contenuto in un collegamento ipertestuale. Il seguente farà il trucco:

Sub URL_List()

Dim sTemp As String     Dim sURL As String     Dim cell As Range

For Each cell In Selection         If cell.Value <> "" Then             sTemp = Left(cell.Value, 7)

If sTemp = "http://" Or sTemp = "https:/" Then                 sURL = cell.Value             Else                 sURL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=sURL, TextToDisplay:=cell.Value         End If     Next cell End Sub

La macro non è infallibile; presuppone che se una cella contiene qualcosa è un URL valido. Quello che fa è controllare il contenuto della cella e, se i contenuti non sono preceduti dal testo “http: //” o “https: /”, viene aggiunto un prefisso “http: //”. Il collegamento ipertestuale viene quindi creato in base al contenuto della cella.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (5825) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia del menu precedente di Excel qui: