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

Как да конвертирате куп текстови URL адреси в активни хипервръзки в Excel?

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

Ако имате списък с URL адреси, които са обикновен текст, как можете да активирате тези текстови URL адреси към хипервръзките, върху които може да се кликне, както е показано на следната екранна снимка?

doc активиране на хипервръзки 1

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

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

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


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

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

Въведете тази формула: =ХИПЕРВРЪЗКА(A2, A2) в празна клетка, където искате да изведете резултата, и след това плъзнете манипулатора за попълване надолу, за да приложите тази формула към клетките, които искате, и всички текстови URL адреси са преобразувани в активни хипервръзки, вижте екранната снимка:

doc активиране на хипервръзки 2


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

Следният VBA код също може да ви помогне да решите тази задача, моля, направете следното:

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

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

VBA код: Преобразувайте куп текстови URL адреси в активни хипервръзки:

Sub activateHyperlinks()
'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

3. След това натиснете F5 ключ, за да изпълните този код, и се появява поле за подкана, за да ви напомни, че изберете клетките, които искате да конвертирате в хипервръзки с възможност за кликване, вижте екранната снимка:

doc активиране на хипервръзки 3

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

doc активиране на хипервръзки 4


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

Ето един удобен инструмент -Kutools за Excel, Със своята Конвертиране на хипервръзки функция, можете бързо и двете конвертирайте куп текстови URL адреси в хипервръзки, върху които може да се кликне намлява извличане на реални адреси на хипервръзка от текстов низ на хипервръзка.

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

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

1. Изберете клетките, съдържащи текстовите URL адреси, които искате да активирате.

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

3. В Конвертиране на хипервръзки изберете диалоговия прозорец Съдържанието на клетката замества адресите на хипервръзките вариант по Тип конвертиране и след това проверете Преобразуване на източника диапазон, ако искате да поставите действителните адреси в оригиналния диапазон, вижте екранната снимка:

doc активиране на хипервръзки 6

4, След това кликнете Ok и текстовите URL адреси са активирани веднага, вижте екранната снимка:

doc активиране на хипервръзки 4

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

doc активиране на хипервръзки 7

Щракнете, за да изтеглите Kutools за 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 (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
LA OPCION 2:
Convierta un montón de URL de texto en hipervínculos activos con código VBA

ANDA PERFECTO!
GRACIAS!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Tak for input, men jeg kunne ikke få konverteringen til at virke.

Den skrev bare en lang liste text:

= HYPERLINK (A2, A2)

Problemet var, at du havde skrevet formlen med komma og ikke med semikolon.

Den rette formel er =hyperlink(A2;A2)
This comment was minimized by the moderator on the site
Thank you much!!!!
This comment was minimized by the moderator on the site
Спасибо большое за ваш труд
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations