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 / werkboek / meerdere bladen / selectie met een geweldige functie.

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: