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

Как да конвертирате url текст в хипервръзка, върху която може да се щрака, в Excel?

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

Да предположим, че имате множество URL адреси в работния си лист, но те не са свързани, и сега трябва да конвертирате всички несвързани URL адреси в хипервръзки, върху които може да се кликне, както са показани следните екранни снимки. Разбира се, можете да щракнете двукратно върху тях един по един, за да ги направите кликващи, но това ще отнеме много време, ако има много URL адреси. Как бихте могли автоматично да конвертирате множество несвързани URL адреси в хипервръзки, върху които може да се кликне, в Excel?


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

Изглежда, че няма друг ефективен начин за решаване на този проблем в Excel, освен използването на следния VBA код.

1. Изберете диапазона от url текст, който искате да конвертирате в хипервръзки, върху които може да се кликне.

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

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

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
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 Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

4. След това натиснете F5 клавиш за изпълнение на кода, изскачащ диалогов прозорец, за да изберете диапазон, след което щракнете OK, а избраните несвързани URL адреси са преобразувани в хипервръзки, върху които може да се кликне. Вижте екранни снимки:

2

стрелка син десен балон Преобразувайте url текст в хипервръзка с възможност за кликване с Kutools за Excel

Може би кодът на VBA е малко труден за вас, тук мога да ви представя един многофункционален инструмент-Kutools за Excel, Със своята Конвертиране на хипервръзки функция, можете бързо да се справите със следните операции:

  • Извличане на действителни адреси от хипервръзки;
  • Преобразувайте url текст в хипервръзка, върху която може да се кликне
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни

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

1. Изберете диапазона от url текст, който искате да конвертирате в хипервръзки, върху които може да се кликне.

2. Щракнете Kutools > връзка > Конвертиране на хипервръзки, вижте екранна снимка:

3. В Конвертиране на хипервръзки изберете диалоговия прозорец Съдържанието на клетката замества адресите на хипервръзките, и кликнете doc-бутон1 бутон от Диапазон на резултатите за да посочите клетка, в която да поставите резултата.

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

Забележки:

1. Ако искате да поставите действителните адреси в оригиналния диапазон, моля, проверете Преобразуване на изходния диапазон.

2. Ако хипервръзката е свързана с текущия документ, моля, проверете Хипервръзките са място в този документ опция.

Кликнете Конвертиране на хипервръзки за да научите повече за тази функция.

Изтеглете и изпробвайте безплатно Kutools за Excel сега!


стрелка син десен балон   Демонстрация: Преобразувайте url текст в хипервръзка с възможност за кликване с Kutools за Excel

Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!

Свързана статия:

Как да извлека действителни адреси от хипервръзки в 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 (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Дай бог здоровья, вам, вашим матерям и детям, первенца в честь автора назову
This comment was minimized by the moderator on the site
Muito bom, só uma dúvida, existe a possibilidade de deixar um intervalo fixo já na macro (sem precisar aparecer aquele pop-up pra selecionar o intervalo), tipo clico pra excutar a macro e ele pega o intervalo que já está configurado na macro e ativa os links, pulando a etapa de ter que clicar em ok e tals. Se puderem me ajudar com esse dúvida serei grato.
This comment was minimized by the moderator on the site
Hello, Tosetti

To solve your problem, please apply the below code: (First, you should select the hyperlink texts)

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
Oh crap.... it broke my Excel. By mistake I selected entire column and it forze for... ages!!
This comment was minimized by the moderator on the site
hi
when i click on the hyperlink .. it wont take to me to email page ( as an Outlook or Gmail) Please support
This comment was minimized by the moderator on the site
Hello, Babu,
May be the below article can help you for solving your problem, please view it:
https://www.extendoffice.com/documents/excel/3304-excel-convert-email-to-hyperlink.html

Hope it can help you!
This comment was minimized by the moderator on the site
I had to switch nearly 55,000 cells from plain text to hyperlinks. This helped me cut the time down from "the rest of my natural life" to five minutes. Thank you!
This comment was minimized by the moderator on the site
This is very helpful...Thanks
This comment was minimized by the moderator on the site
This is Great! Worked like a charm
This comment was minimized by the moderator on the site
Man! This is so awesome, I've spent so long trying to find an easy way and this took seconds! Works great!!!
This comment was minimized by the moderator on the site
Thanks a lot my friend! it worked! :lol:
This comment was minimized by the moderator on the site
The code almost works, but author has left a small copy-paste error. You need to remove "" from the first line, and "" from the last line, and then it will work. Cheers.
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