Прескочи на основното съдържание

Как да променя няколко пътя на хипервръзка наведнъж в Excel?

Автор: Xiaoyang Последна промяна: 2020-09-04

За някаква цел можете да създадете множество хипервръзки за вашите данни в работния лист и всички хипервръзки да са свързани към един и същ файлов път или адрес, но сега трябва да замените този път на хипервръзка с друг адрес наведнъж. Промяната на пътя на хипервръзките поотделно може да загуби много време, има ли бърз начин за решаване на този проблем?

Променете множество пътища на хипервръзки наведнъж в работен лист с VBA код

Променете множество пътища на хипервръзки наведнъж в работен лист / работна книга / множество листа / селекция с невероятна функция


Променете множество пътища на хипервръзки наведнъж в работен лист с VBA код

Да предположим, че имате списък с данни със същите хипервръзки като следната екранна снимка и с VBA код, можете бързо да замените стария файлов път или адрес в работен лист с нов.

1. Задръжте надолу ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.

2. Кликнете Поставете > Модулии поставете следния макрос в Прозорец на модула.

VBA код: променете множество пътища на хипервръзки наведнъж

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. След това натиснете F5 ключ за изпълнение на този код и поле за подкана, което ви позволява да въведете стария си адрес на хипервръзка в Стар текст кутия. Вижте екранна снимка:

4. Щракнете OKи друго поле за подкана се появява, за да ви напомни да въведете новия адрес на хипервръзка, който искате да използвате.

5, И после щракнете върху OK, всички същите стари адреси на хипервръзки са заменени от новия наведнъж. Вижте екранни снимки:


Променете множество пътища на хипервръзки наведнъж в работен лист / работна книга / множество листа / селекция с невероятна функция

Ако искате да замените пътищата на хипервръзките от селекция, множество листа, текуща работна книга или множество работни книги, как бихте могли да го направите? с Търсене и заместване функция на Kutools за Excel, можете бързо да се справите с тази задача.

Забележка:За да приложите това Търсене и заместване помощна програма, първо трябва да изтеглите Kutools за Excelи след това приложете функцията бързо и лесно.

След инсталиране Kutools за Excel, моля, направете следното:

1. Щракнете Kutools > навигация, вижте екранна снимка:

2. В отвореното навигация панел, щракнете върху Намерете и заменете в раздела Търсене и заместване панел, щракнете върху Сменете и след това направете следните операции:

  • Въведете текста на старата хипервръзка, който искате да намерите в Намерете това, текстово поле и след това въведете новия текст на хипервръзката, с който искате да замените, в Заменете със текстово поле;
  • Посочете обхвата, където искате да намерите и замените пътя на хипервръзката от В падащ списък;
  • След това изберете Хипервръзки от падащото меню Търсене;
  • Най-накрая щракнете Намери всички бутон, всички съответстващи клетки, които съдържат конкретния текст на хипервръзка, са изброени в долното списъчно поле.

3, След това кликнете върху Замести всички старите пътища на хипервръзка са променени на новите наведнъж, вижте екранната снимка:

Кликнете, за да изтеглите Kutools за Excel за безплатен пробен период!


Още относителни статии:

  • Извличане на действителни адреси от хипервръзки
  • Да предположим, че имате диапазон от клетки, които съдържат хипервръзки, и сега трябва да видите истинската дестинация на хипервръзките и да ги извлечете от хипервръзките, както е показано на следната екранна снимка. Има ли лесни начини за бързо решаване на този проблем?
  • Преобразувайте URL адреси на изображения в действителни изображения в Excel
  • Ако имате списък с URL адреси на изображения в колона A и сега искате да изтеглите съответните картини от URL адресите и да ги покажете в съседната колона B, както е показано на лявата екранна снимка. В Excel, как можете да извлечете действителните снимки от URL адресите на изображения бързо и лесно?
  • Преобразувайте Url текст в хипервръзка с възможност за кликване в Excel
  • Да предположим, че имате множество URL адреси в работния си лист, но те не са свързани, и сега трябва да конвертирате всички несвързани URL адреси в хипервръзки, върху които може да се кликне, както са показани следните екранни снимки. Разбира се, можете да щракнете двукратно върху тях един по един, за да ги направите кликващи, но това ще отнеме много време, ако има много URL адреси. Как бихте могли автоматично да конвертирате множество несвързани URL адреси в хипервръзки, върху които може да се кликне, в Excel?
  • Отворете конкретна страница от PDF документ от хипервръзка на Excel
  • Когато свържете клетка към PDF файл, обикновено ще отидете на първата страница на PDF файла, когато щракнете, за да отворите хипервръзката. Ако трябва директно да преминете към определена страница от PDF файла, като щракнете върху хипервръзката, тази статия може да ви направи услуга.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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