Przejdź do głównej zawartości

Jak zmienić wiele ścieżek hiperłączy jednocześnie w programie Excel?

W jakimś celu możesz utworzyć wiele hiperłączy dla swoich danych w arkuszu, a wszystkie hiperłącza są połączone z tą samą ścieżką pliku lub adresem, ale teraz musisz zastąpić tę ścieżkę hiperłącza innym adresem na raz. Zmiana ścieżki poszczególnych hiperłączy może spowodować stratę czasu, czy istnieje szybki sposób rozwiązania tego problemu?

Zmień wiele ścieżek hiperłączy jednocześnie w arkuszu z kodem VBA

Zmień wiele ścieżek hiperłączy jednocześnie w arkuszu / skoroszycie / wielu arkuszach / zaznaczeniu z niesamowitą funkcją


Zmień wiele ścieżek hiperłączy jednocześnie w arkuszu z kodem VBA

Przypuśćmy, że masz listę danych z tymi samymi hiperłączami, jak pokazano na poniższym zrzucie ekranu, a za pomocą kodu VBA możesz szybko zastąpić starą ścieżkę pliku lub adres w arkuszu roboczym nowym.

1. Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujące makro w Okno modułu.

Kod VBA: zmień wiele ścieżek hiperłączy jednocześnie

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. Następnie naciśnij F5 klawisz, aby uruchomić ten kod, oraz pole zachęty umożliwiające wprowadzenie starego adresu hiperłącza do pliku Stary tekst pudełko. Zobacz zrzut ekranu:

4. Kliknij OKi pojawi się kolejne okno zachęty przypominające o wprowadzeniu nowego adresu hiperłącza, którego chcesz użyć.

5. A następnie kliknij OK, wszystkie te same stare adresy hiperłączy zostały od razu zastąpione nowymi. Zobacz zrzuty ekranu:


Zmień wiele ścieżek hiperłączy jednocześnie w arkuszu / skoroszycie / wielu arkuszach / zaznaczeniu z niesamowitą funkcją

Jeśli chcesz zamienić ścieżki hiperłączy z zaznaczenia, wielu arkuszy, bieżącego workkook lub wielu skoroszytów, jak możesz to zrobić? Z Znajdowanie i zamienianie cechą Kutools dla programu Excel, możesz szybko uporać się z tym zadaniem.

Uwaga:Aby to zastosować Znajdowanie i zamienianie narzędzie, po pierwsze, należy pobrać plik Kutools dla programu Excel, a następnie szybko i łatwo zastosuj tę funkcję.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1. Kliknij Kutools > Nawigacjazobacz zrzut ekranu:

2. W otwartym Nawigacja okienko, kliknij Znajdź i zamień zakładka, w Znajdowanie i zamienianie okienko, kliknij zastąpić a następnie wykonaj następujące czynności:

  • Wprowadź stary tekst hiperlinku, który chcesz znaleźć, do pliku Znajdź co pole tekstowe, a następnie wpisz nowy tekst hiperlinku, który chcesz zamienić, w Zastąp pole tekstowe;
  • Określ zakres, w którym chcesz znaleźć i zamienić ścieżkę hiperłącza z pliku W ciągu Lista rozwijana;
  • Następnie wybierz Hiperłącza z listy rozwijanej Szukaj w;
  • Nareszcie kliknij Znajdź wszystko przycisk, wszystkie odpowiadające im komórki zawierające określony tekst hiperłącza zostały wymienione w dolnym polu listy.

3. Następnie kliknij Zamień wszystko przycisk, stare ścieżki hiperłączy zostały od razu zmienione na nowe, patrz zrzut ekranu:

Kliknij, aby pobrać Kutools dla programu Excel do bezpłatnej wersji próbnej!


Więcej artykułów względnych:

  • Uzyskaj rzeczywiste adresy z hiperłączy
  • Przypuśćmy, że masz szereg komórek zawierających hiperłącza, a teraz musisz zobaczyć rzeczywiste miejsce docelowe hiperłączy i wyodrębnić je z hiperłączy, jak pokazano na zrzucie ekranu. Czy istnieją łatwe sposoby szybkiego rozwiązania tego problemu?
  • Konwertuj adresy URL obrazów na rzeczywiste obrazy w programie Excel
  • Jeśli masz listę adresów URL obrazów w kolumnie A, a teraz chcesz pobrać odpowiednie obrazy z adresów URL i wyświetlić je w sąsiedniej kolumnie B, jak pokazano na lewym ekranie. W programie Excel, jak można szybko i łatwo wyodrębnić rzeczywiste obrazy z adresów URL obrazów?
  • Konwertuj tekst adresu URL na klikalne hiperłącze w programie Excel
  • Przypuśćmy, że masz wiele adresów URL w arkuszu, ale nie są one połączone, a teraz musisz przekonwertować wszystkie niepołączone adresy URL na klikalne hiperłącza, jak pokazano na poniższych zrzutach ekranu. Oczywiście możesz je kliknąć dwukrotnie, aby były klikalne, ale będzie to czasochłonne, jeśli istnieje wiele adresów URL. Jak można automatycznie przekonwertować wiele niepołączonych adresów URL na klikalne hiperłącza w programie Excel?
  • Otwórz określoną stronę dokumentu PDF z hiperłącza programu Excel
  • Gdy łączysz komórkę z plikiem PDF, zwykle następuje przejście do pierwszej strony pliku PDF po kliknięciu, aby otworzyć hiperłącze. Jeśli chcesz przejść bezpośrednio do określonej strony pliku PDF, klikając hiperłącze, ten artykuł może Ci wyświadczyć przysługę.

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
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
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations