Hoe kan je meerdere hyperlinkpaden tegelijk wijzigen in Excel?
Voor een bepaald doel maak je mogelijk meerdere hyperlinks aan voor je gegevens in het werkblad, en alle hyperlinks verwijzen naar hetzelfde bestandspad of adres. Maar nu moet je dit hyperlinkpad in één keer vervangen door een ander adres. Het individueel wijzigen van de paden van de hyperlinks kan veel tijd kosten. Is er een snelle manier om dit probleem op te lossen?
Wijzig meerdere hyperlinkpaden tegelijk in een werkblad met VBA-code.
Wijzig meerdere hyperlinkpaden tegelijk in een werkblad met VBA-code.
Stel dat je een lijst met gegevens hebt met dezelfde hyperlinks zoals in de volgende schermafbeelding wordt getoond, en met een VBA-code kun je snel het oude bestandspad of adres in een werkblad vervangen door een nieuwe.
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende macro in het Module-venster.
VBA-code: wijzig meerdere hyperlinkpaden tegelijk.
Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een promptvenster waarin je je oude hyperlinkadres in het tekstvak Oud invoert. Zie schermafbeelding:
4. Klik op OK, en er verschijnt nog een promptvenster dat je eraan herinnert het nieuwe hyperlinkadres in te voeren dat je wilt gebruiken.
5. Klik vervolgens op OK, en alle dezelfde oude hyperlinkadressen zijn in één keer vervangen door de nieuwe. Zie schermafbeeldingen:
|  |  |
Wijzig meerdere hyperlinkpaden tegelijk in een werkblad / werkboek / meerdere bladen / selectie met een geweldige functie.
Als je de hyperlinkpaden wilt vervangen vanuit een selectie, meerdere bladen, het huidige werkboek of meerdere werkboeken, hoe doe je dat dan? Met de functie Zoeken en vervangen van Kutools for Excel kun je deze taak snel afhandelen.
Nadat je Kutools for Excel hebt geïnstalleerd, doe dan het volgende:
1. Klik op Kutools > Navigatie, zie schermafbeelding:
2. In het geopende Navigatievenster klik je op het tabblad Zoeken en vervangen, in het deelvenster Zoeken en vervangen klik je op het tabblad Vervangen, en voer vervolgens de volgende handelingen uit:
- Voer de oude hyperlinktekst die je wilt zoeken in het Zoeken naar tekstvak in, en typ vervolgens de nieuwe hyperlinktekst die je wilt gebruiken in het Vervangen door tekstvak;
- Specificeer het bereik waarin je de hyperlink wilt zoeken en vervangen in de vervolgkeuzelijst Binnen;
- Selecteer vervolgens Hyperlinks in de vervolgkeuzelijst Zoeken in;
- Klik tot slot op de knop Alles zoeken, alle overeenkomstige cellen die de specifieke hyperlinktekst bevatten, worden weergegeven in de lijstbox onderaan.
3. Klik vervolgens op de knop Alles vervangen, de oude hyperlinkpaden zijn in één keer veranderd in de nieuwe, zie schermafbeelding:
Klik om Kutools for Excel gratis te downloaden voor een proefversie!
Meer gerelateerde artikelen:
- Werkelijke adressen extraheren uit hyperlinks.
- Stel dat je een reeks cellen hebt die hyperlinks bevatten, en nu moet je de echte bestemming van de hyperlinks zien en ze uit de hyperlinks extraheren zoals in de volgende schermafbeelding wordt getoond. Zijn er eenvoudige manieren om dit probleem snel op te lossen?
- Converteer afbeeldings-URL's naar echte afbeeldingen in Excel.
- Als je een lijst met afbeeldings-URL-adressen hebt in kolom A, en je wilt de bijbehorende afbeeldingen downloaden van de URL's en weergeven in de aangrenzende kolom B zoals in de linker schermafbeelding wordt getoond. Hoe kun je in Excel de echte afbeeldingen uit de afbeeldings-URL's snel en gemakkelijk extraheren?
- Converteer URL-tekst naar klikbare hyperlink in Excel.
- Stel dat je meerdere URL's hebt in je werkblad, maar ze zijn niet gekoppeld, en nu moet je alle niet-gekoppelde URL's omzetten in klikbare hyperlinks, zoals in de volgende schermafbeeldingen wordt getoond. Natuurlijk kun je ze één voor één dubbelklikken om ze klikbaar te maken, maar dit zal tijdrovend zijn als er veel URL's zijn. Hoe kun je meerdere niet-gekoppelde URL's automatisch omzetten in klikbare hyperlinks in Excel?
- Open een specifieke pagina van een PDF-document vanuit een Excel-hyperlink.
- Wanneer je een cel koppelt aan een PDF-bestand, ga je normaal gesproken naar de eerste pagina van het PDF-bestand wanneer je klikt om de hyperlink te openen. Als je direct naar een specifieke pagina van het PDF-bestand wilt springen door op de hyperlink te klikken, kan dit artikel je helpen.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen