Come estrarre l'URL completo da un elenco di collegamenti ipertestuali presenti nelle celle di Excel
martedė, 13 novembre 2007
Vediamo come estrarre, tramite una funzione, l'URL completo presente nel testo di un collegamento ipertestuale in una cella di Excel.
Dovendo lavorare tramite codice VBA apriamo la relativa finestra.
In Excel XP o 2003:
Menų Strumenti - Macro - Visual Basic Editor
In Excel 2007:
Bottone di Office - Pulsante Opzioni di Excel - Impostazioni generali - Opzione "Mostra scheda Sviluppo sulla barra multifunzione"
A questo punto ritornando nella finestra di Excel verrā visualizzata anche la Scheda Sviluppo nella quale troviamo il pulsante Visual Basic
Nella finestra Visual Basic inserire un nuovo modulo (menų Inserisci - Modulo)
Copiare il codice riportato sotto:
Public Function Estrai_Indirizzi(ByVal Collegamento As Excel.Range)
Estrai_Indirizzi = Replace _
(Collegamento.Hyperlinks(1).Address, "mailto:", "")
End Function
Chiudere la finestra e ritornare in Excel.
La funzione che deve essere inserita per estrarre l'URL completo del collegamento ipertestuale č la seguente:
=Estrai_Indirizzi(Riferimento)
In cui:
Riferimento: La cella che contiene il collegamento ipertestuale del quale si vuole estrarre l'URL completo.
Esempio: =Estrai_Indirizzi(A10)
Tags:
posted by Andrea Perotti @ 15.00 Permalink ,
2 Comments:
-
At 1 marzo 2009 17.35,
Nicola Guerriero said...
-
Sei grande!!!!!
-
At 11 novembre 2009 11.40,
said...
-
Grazie mille, veramente utile!
