Konvertere en Range av URLer til hyperkoblinger

John har en arbeidsbok som har godt over tusen URLer i det, alt i kolonne A. Dette er ikke hyperlenker; de er rett tekst av individuelle nettadresser. John ønsker å konvertere URLer til aktive hyperkoblinger, men gjør konverteringen individuelt er ekstremt kjedelig, spesielt for at mange nettadresser.

Som tilfellet er med de fleste tedium i Excel, er løsningen å bruke en makro til å gjøre konverteringen. For å være effektive, ville makroen trenger å gå gjennom hver celle i et valgt område, og hvis cellen ikke er tom, konvertere innholdet til en hyperkobling. Følgende vil gjøre triks:

Sub URL_List ()
For Hver celle i utvalg
Hvis cell.Value <> "" Then
Hvis Venstre (cell.Value, 7) = "http: //" Da
URL = cell.Value
Else
URL = "http: //" + cell.Value
End If
ActiveSheet.Hyperlinks.Add Anchor: = celle, _
Adresse: = URL, TextToDisplay: = cell.Value
End If
Neste celle
End Sub

Makroen er ikke idiotsikker; det forutsetter at hvis en celle inneholder noe i det hele tatt det er en gyldig URL. Hva den gjør er å sjekke innholdet i cellen, og hvis innholdet ikke er innledet av "http: //" tekst, så det er lagt til. Hyperkoblingen blir deretter opprettet basert på celleinnholdet.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3110) gjelder for Microsoft Excel 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Konvertering en Range av webadresser til hyperkoblinger.