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

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

Автор: Xiaoyang Последна промяна: 2024-03-19

Ако имате много хипервръзки в електронна таблица, обикновено трябва да ги отваряте една по една, което може да бъде досадно. За щастие има няколко прости начина да отворите всички избрани хипервръзки наведнъж. Като следвате методите, описани по-долу, можете лесно да изпълните тази задача.


Отворете няколко хипервръзки наведнъж с VBA код

За да отворите избраните от вас хипервръзки на диапазон наведнъж, следният VBA код може да ви помогне, моля, направете следното:

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

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

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 помощник! Кажете сбогом на неудобството да отваряте хипервръзки една по една или сложен код. с Kutools AI помощник, можете без усилие да отваряте множество хипервръзки едновременно само с едно кликване. Рационализирайте работния си процес и спестете ценно време, като използвате този иновативен инструмент. Изпитайте безпроблемно сърфиране и подобрете продуктивността си с Kutools AI помощник днес!

Забележка: За да използвате това Kutools AI помощник of Kutools за Excel, Моля те изтеглете и инсталирайте Kutools за Excel на първо място.

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

  1. Изберете списъка с данни, след това въведете вашето изискване в полето за чат и щракнете Изпрати бутон или натиснете Въведете ключ за изпращане на въпроса;
    „Отваряне на всички хипервръзки наведнъж в селекцията:“
  2. След като анализирате, щракнете Изпълнение бутон за бягане. Kutools AI Aide ще обработи вашата заявка с помощта на AI и ще отвори всички хипервръзки на селекцията директно в Excel.

doc-open-multiple-hyperlinks-1


Още по темата:

  • Променете множество пътища на хипервръзки наведнъж в Excel
  • За някаква цел можете да създадете множество хипервръзки за вашите данни в работния лист и всички хипервръзки да са свързани към един и същ файлов път или адрес, но сега трябва да замените този път на хипервръзка с друг адрес наведнъж. Промяната на пътя на хипервръзките поотделно може да загуби много време, има ли бърз начин за решаване на този проблем?
  • Преобразувайте множество имейл адреси в хипервръзки в Excel
  • Ако имате списък с имейл адреси с обикновен текст в работен лист и сега искате да конвертирате тези имейл адреси в хипервръзки, които можете да изпращате имейли, докато щраквате върху адресите. Разбира се, можете да ги конвертирате в имейл адреси с хипервръзки, но този метод ще бъде скучен, ако има няколко адреса, които трябва да бъдат конвертирани. В тази статия ще говоря за някои добри трикове за справяне с тази задача.
  • Следвайте хипервръзка към скрит лист в Excel
  • Например, имам работна книга, която съдържа множество работни листове, първият главен лист има хипервръзки към други листове и сега скривам всички листове с изключение на първия. В този случай хипервръзките, които водят към скрити листове, не са налични. Но как бихте могли да накарате тези хипервръзки да работят успешно? Когато щракнете върху една хипервръзка, свързаният скрит лист ще се отвори веднага.

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

🤖 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 (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