Перейти до основного матеріалу

Як змінити кілька шляхів гіперпосилання одночасно в Excel?

З певною метою ви можете створити декілька гіперпосилань для своїх даних на аркуші, і всі гіперпосилання пов’язані з одним і тим же шляхом до файлу або адресою, але зараз вам потрібно замінити цей шлях гіперпосилання іншою адресою одночасно. Щоб змінити шлях гіперпосилань окремо, можна витратити багато часу, чи є швидкий спосіб вирішити цю проблему?

Змінюйте кілька шляхів гіперпосилання одночасно на аркуші з кодом VBA

Змінюйте кілька шляхів гіперпосилання одночасно на аркуші / книзі / декількох аркушах / виділеннях з дивовижною функцією


Змінюйте кілька шляхів гіперпосилання одночасно на аркуші з кодом VBA

Припустимо, у вас є список даних із тими самими гіперпосиланнями, що показані на наведеному нижче знімку екрана, а за допомогою коду VBA ви можете швидко замінити старий шлях до файлу або адресу на аркуші новим.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Натисніть Insert > Модуліта вставте наступний макрос у Вікно модуля.

Код 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. Клацання Кутулс > навігація, див. скріншот:

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 Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички 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