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

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

Автор: Сяоян Остання зміна: 2024-03-19

Якщо у вас є багато гіперпосилань в електронній таблиці, зазвичай вам доведеться відкривати їх по одному, що може бути втомливим. На щастя, є кілька простих способів відкрити всі вибрані гіперпосилання одночасно. Дотримуючись методів, описаних нижче, ви легко впораєтеся з цим завданням.


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

Щоб одразу відкрити вибрані гіперпосилання для діапазону, вам може допомогти такий код VBA, зробіть так:

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

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

Код VBA: Відкрийте кілька гіперпосилань одночасно

Sub OpenHyperLinks()
'Updateby Extendoffice
	Dim xHyperlink As Hyperlink
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
	For Each xHyperlink In WorkRng.Hyperlinks
		xHyperlink.Follow
	Next
End Sub

3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам вибрати діапазон, включаючи гіперпосилання, які ви хочете відкрити відразу, див. знімок екрана:

doc-open-multiple-hyperlinks-1

4. А потім клацніть OK, всі гіперпосилання відкриваються одночасно, не натискаючи їх.


Відкрийте кілька гіперпосилань одночасно за допомогою Kutools AI Aide

Розкрийте силу ефективності за допомогою Kutools AI Aide! Попрощайтеся з клопотом відкривати гіперпосилання одне за одним або складний код. с Kutools AI Aide, ви можете без зусиль відкривати кілька гіперпосилань одночасно одним клацанням. Оптимізуйте свій робочий процес і заощадьте дорогоцінний час, використовуючи цей інноваційний інструмент. Відчуйте безперебійний перегляд і підвищте свою продуктивність Kutools AI Aide сьогодні!

примітки: Щоб використовувати це Kutools AI Aide of Kutools для Excel, будь ласка завантажте та встановіть Kutools для Excel перший.

Після встановлення Kutools для Excel натисніть Kutools AI > А. І. помічник відкрити Kutools AI Aide панель:

  1. Виберіть список даних, потім введіть свою вимогу у вікно чату та натисніть Відправити кнопку або натисніть Що натомість? Створіть віртуальну версію себе у ключ для відправки питання;
    «Відкрити всі гіперпосилання одночасно у виділенні:»
  2. Після аналізу натисніть Виконати кнопку для запуску. Kutools AI Aide обробить ваш запит за допомогою штучного інтелекту та відкриє всі вибрані гіперпосилання безпосередньо в Excel.

doc-open-multiple-hyperlinks-1


Статті по темі:

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

Найкращі інструменти продуктивності офісу

🤖 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 (20)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code.
Could make it work for a "https link instead a hyperlink?
This comment was minimized by the moderator on the site
Got a compile error on Microsoft Visual Basic for Applications 7.1 on Mac High Sierra
This comment was minimized by the moderator on the site
This works fine, except for a problem, how can I make it that it only opens filtered cells?

Thank you
This comment was minimized by the moderator on the site
Can i select which browser the links need to open
This comment was minimized by the moderator on the site
Hi, it worked perfectly, thanks! Is there a way to copy the text from the pages of these links in the cell next to each of them?
That would save me hundreds of hours of work!
This comment was minimized by the moderator on the site
Its works awesome.
This comment was minimized by the moderator on the site
When I use this on a column of hyperlinks generated by the =HYPERLINK() formula, it doesn't seem to work. When I copy/paste the values into a new column and run it there, it doesn't work. When I go to each individual cell, go to the end of text, and hit enter (causing it to become a hyperlink) it DOES work.


This didn't work for my needs, unfortunately. I have thousands of rows and clicking enter at the end of each line of text is pretty much what I'm having to do anyway.
This comment was minimized by the moderator on the site
Found a solution?
This comment was minimized by the moderator on the site
@James @Johan - Select the text you wish to convert into hyperlink, then use this code to convert the text into hyperlink directly. Then run the code above, works like a charm.


Sub HyperAdd()

'Converts each text hyperlink selected into a working hyperlink

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub
This comment was minimized by the moderator on the site
Hello! What I did was to copy/paste the values from the =HYPERLINK code into a different column, and then I used @SimpleDude's code to convert the pasted text into the hyperlinks that worked with the original hyperlink-opening code. Thank you for the help!
This comment was minimized by the moderator on the site
Thanks!
Works exactly as expected. Must be sure that the links are already valid URLs.
I opened 15 at one time.
This comment was minimized by the moderator on the site
Freezes excel - links never open
This comment was minimized by the moderator on the site
Please let me know hpw does it work in Mac
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