Note: The other languages of the website are Google-translated. Back to English

Hvordan ændres flere hyperlinkstier på én gang i Excel?

Til et eller andet formål kan du oprette flere hyperlinks til dine data i regnearket, og alle hyperlinks er knyttet til den samme filsti eller -adresse, men nu skal du erstatte denne hyperlinksti med en anden adresse ad gangen. At ændre stien til hyperlinks individuelt kan spilde meget tid. Er der en hurtig måde at løse dette problem på?

Skift flere hyperlinkstier på én gang i et regneark med VBA-kode

Skift flere hyperlinkstier på én gang i et regneark / projektmappe / flere ark / valg med en fantastisk funktion


Skift flere hyperlinkstier på én gang i et regneark med VBA-kode

Antag, at du har en liste over data med de samme hyperlinks som det viste skærmbillede, og med en VBA-kode kan du hurtigt erstatte den gamle filsti eller adresse i et regneark med en ny.

1. Hold nede i ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende makro i Modulvindue.

VBA-kode: skift flere hyperlinkstier på én gang

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. Tryk derefter på F5 nøgle til at køre denne kode, og et felt til at lade dig indtaste din gamle hyperlinkadresse i Gammel tekst boks. Se skærmbillede:

4. Klik OK, og der vises en anden meddelelsesboks for at minde dig om at indtaste den nye hyperlinkadresse, du vil bruge.

5. Og klik derefter på OK, alle de samme gamle hyperlinkadresser er blevet erstattet af den nye på én gang. Se skærmbilleder:


Skift flere hyperlinkstier på én gang i et regneark / projektmappe / flere ark / valg med en fantastisk funktion

Hvis du vil erstatte hyperlinkstier fra et valg, flere ark, nuværende arbejdskrog eller flere projektmapper, hvordan kunne du gøre det? Med Søg og erstat træk ved Kutools til Excel, kan du hurtigt håndtere denne opgave.

Bemærk:At anvende dette Søg og erstat værktøj, for det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools > Navigation, se skærmbillede:

2. I åbnet Navigation rude, klik Find og erstat fanebladet i Søg og erstat rude, klik udskifte fanen, og udfør derefter følgende handlinger:

  • Indtast den gamle hyperlinktekst, som du vil finde, i Find hvad tekstfelt, og skriv derefter den nye hyperlinktekst, som du vil erstatte med, i Erstat med tekstboks;
  • Angiv omfanget, hvor du vil finde, og erstat hyperlinkstien fra Inden for rulleliste
  • Vælg derefter Hyperlinks fra rullelisten Look in;
  • Endelig skal du klikke på Find alle knappen, er alle tilsvarende celler, der indeholder den specifikke hyperlinktekst, blevet vist i den nederste listeboks.

3. Klik derefter på Erstat alle knap, de gamle hyperlinkstier er blevet ændret til de nye på én gang, se skærmbillede:

Klik for at downloade Kutools til Excel til gratis prøveversion!


Flere relative artikler:

  • Uddrag faktiske adresser fra hyperlinks
  • Antag, at du har en række celler, der indeholder hyperlinks, og nu skal du se hyperlinksens virkelige destination og udtrække dem fra hyperlinks som vist nedenstående skærmbillede. Er der nogen nemme måder at løse dette problem hurtigt?
  • Konverter billed-URL'er til faktiske billeder i Excel
  • Hvis du har en liste over billed-URL-adresser i kolonne A, og nu, vil du downloade de tilsvarende billeder fra URL'erne og vise dem i den tilstødende kolonne B som det venstre skærmbillede vist. Hvordan kunne du i Excel hurtigt og nemt udtrække de faktiske billeder fra billed-URL'erne?
  • Konverter urletekst til klikbart hyperlink i Excel
  • Antag at du har flere webadresser i dit regneark, men de er ikke sammenkædede, og nu skal du konvertere alle de ikke-linkede webadresser til klikbare hyperlinks, som følgende skærmbilleder vises. Selvfølgelig kan du dobbeltklikke på dem en efter en for at gøre dem klikbare, men det vil være tidskrævende, hvis der er mange webadresser. Hvordan kunne du konvertere flere ikke-linkede webadresser til klikbare hyperlinks automatisk i Excel?
  • Åbn en bestemt side med PDF-dokument fra Excel-hyperlink
  • Når du linker en celle til en PDF-fil, går du normalt til den første side i PDF-filen, når du klikker for at åbne hyperlinket. Hvis du skal springe direkte til en bestemt side i PDF-filen ved at klikke på hyperlinket, kan denne artikel muligvis gøre dig en tjeneste.

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (45)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Forbløffende det sparede mine mange kræfter.
Denne kommentar blev minimeret af moderatoren på webstedet
elsker det, du sparer mig for et væld af arbejde.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, kan du give mig VB-koden, hvis jeg skal ændre links i Powerpoint i stedet for excel? Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, dette ser ud til at fungere godt, men nogle tegn (for eksempel "\" og "%"). I mit tilfælde har jeg hyperlinkadresser som [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] og Jeg skal have starten [../../../../../../Application%20Data/Microsoft/] væk fra adressen fra hundredvis af links. Begyndelsen af ​​linkene er den samme, men enderne er forskellige. Har du nogle gode råd?
Denne kommentar blev minimeret af moderatoren på webstedet
tak!!!! :lol: det hjalp meget.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan ændrer jeg dette for at opdatere hyperlinks, der linker til referencer i en projektmappe i stedet for eksterne webadresser?
Denne kommentar blev minimeret af moderatoren på webstedet
Bare brug for det samme, prøv disse ændringer: Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox("Gammel tekst:", xTitleId, "", Type:=2) xNew = Application.InputBox("Ny tekst:", xTitleId, "", Type:=2) For hver Ws I Wb.Worksheets 'Application.ScreenUpdating = Falsk for hvert xHyperlink I Ws.Hyperlinks Debug.Print ("voy " & xHyperlink.SubAddress) xHyperlink.SubAddress = Erstat(xHyperlink.SubAddress, xOld, xNew) Next Next Application.ScreenUpdating = TrueUpdating Slut Sub
Denne kommentar blev minimeret af moderatoren på webstedet
mauricio- du er fantastisk! Tak! Til en anden rapport har jeg brug for den til bare at opdatere linkene på kun specificerede faner, er det muligt?
Denne kommentar blev minimeret af moderatoren på webstedet
tak tak tak!!!!!!! du reddede mig for 2 dages arbejde her
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at ændre flere hyperlink "tekst til at vise" på samme tid?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for et genialt stykke program. Fungerer SOM EN CHARME..."WLC"
Denne kommentar blev minimeret af moderatoren på webstedet
Strålende! Mange tak!!!!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej gutter, hvad mangler jeg, jeg får 'Kompileringsfejl - Variabel ikke defineret' for XTitleId i Excel 2013 :cry:
Denne kommentar blev minimeret af moderatoren på webstedet
Ingen bekymringer, jeg fandt ud af det og satte som en streng
Denne kommentar blev minimeret af moderatoren på webstedet
det hjalp meget mange tak
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er den mest nyttige Excel-artikel, jeg nogensinde er stødt på. Jeg har haft mange problemer, hvor hyperlinks i en fil bliver beskadiget, eller jeg vil flytte placeringen af ​​nogle hyperlinkede filer, og opdatering har altid været et stort problem. Min Excel-programmør havde ikke en simpel løsning. Dette fungerer fejlfrit. Jeg er meget taknemmelig - tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Wow! Dette sparede mig SÅ MEGET TID. Du er fantastisk. Tak fordi du delte!
Denne kommentar blev minimeret af moderatoren på webstedet
Det her er genialt. Du sparede mig SÅ MEGET TID. i dag. Tak fordi du delte!
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak for at udvikle dette! Jeg havde en bruger, der oprettede en masse hyperlinks på flere faner (mindst flere hundrede), og på en eller anden måde havde de en filsti til hans AppData\Roaming-mappe på hans c-drev i stedet for til netværksmappen. Jeg var i stand til at bruge dit VBA-script til at fjerne den del af linkkoden, og nu virker det hele. Sparede os sandsynligvis en uges opdatering, og det tog mig mindre end 2 minutter at implementere!
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastiske. Fungerede som en charme på excel 2013, ingen tweaking påkrævet, i modsætning til lignende rettelser, jeg har set til dette problem. TAK så meget. Sparede en massiv hovedpine og timers tid.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede at køre det på hyperlinks, der indeholder referencer til andre mapper, men det virkede ikke. Hvordan vil jeg ændre dette for at opdatere hyperlinks, der linker til mapper på en harddisk i stedet for eksterne webadresser?
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL