Veranderende Delen van Vele Hyperlinks

Kerstine heeft een werkblad met vele, vele verschillende hyperlinks erin. Ze vraagt ​​zich af of er een manier kan ze slechts een deel van elke link vervangen. Zo zou ze graag een exemplaar van http://www.mysite.com/ veranderen in c: / documenten / mycopy /. Als er iets extra in de links, dan is dat deel moet blijven. Dus, bijvoorbeeld, indien de oorspronkelijke verbinding is http://www.mysite.com/thispage.html, zou worden gewijzigd c: /documents/mycopy/thispage.html.

Dit kan eenvoudig met een macro. De reden hiervoor is omdat de hyperlinks kan worden onderzocht en veranderd met behulp van reguliere string functies. De volgende macro biedt een eenvoudige manier om het probleem aan te pakken.

Sub EditHyperlinks ()
Dim lnkH als hyperlink
Dim verkocht als Koord
Dim Snew als Koord

Verkocht = "http://www.mysite.com"
Snew = "c: / documenten / mycopy /"

Voor eack lnkH In ActiveSheet.Hyperlinks
lnkH.Address = Vervang (lnkH.Address, verkocht, Snew)
lnkH.TextToDisplay = Vervang (lnkH.TextToDisplay, verkocht, Snew)
Volgende
End Sub

Deze routine stappen door alle hyperlinks in het huidige werkblad en maakt aanpassingen eventueel aan ieder. Zowel de hyperlink en de weergegeven tekst worden veranderd, indien nodig. Het enige wat u hoeft te doen is veranderingen aan de verkochte en Snew snaren te maken om aan te geven wat je zoekt en wat je wilt om het te vervangen door.

U dient er rekening mee dat deze macro gebruikt de functie Replace, die is ingebouwd in de latere versies van VBA. Als u gebruik maakt van een oudere versie die de functie Replace niet bevat (je weet, omdat je een foutmelding krijgt wanneer u probeert om de macro te zetten) dan zul je nodig hebt om je eigen Vervang functie die een deel van een vervangt creëren string met een ander. Zulke functies zijn bedekt met andere kwesties van ExcelTips.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (3358) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van Excel (Excel 2007 en later) vindt u hier: Veranderende Delen van Vele Hyperlinks.