Как превратить сотни текстовых URL-адресов в Excel в интерактивные гиперссылки?

Как превратить столбец URL-адресов в гиперссылки, чтобы пользователи могли щелкнуть URL-адрес в ячейке и открыть его в браузере?

Я вставил 100 URL-адресов и каждый пошел в свою камеру. Когда я дважды щелкаю ячейку и выхожу из нее, Excel окрашивает текст в синий цвет и делает из него ссылку. Я не хочу дважды щелкать по сотне раз, но все же хочу форматировать все ячейки в ссылки.

Функция в Excel для создания гиперссылки — = Hyperlink ("http://www.techonthenet.com", "Tech в сети") , где "http://www.techonthenet.com" — адрес в Интернете и «Техника в сети» — это заголовок, который отображается в ячейке Excel.

Таким образом, когда вы записываете URL-адреса в файл Excel, просто оберните эту функцию вокруг каждого URL-адреса. Если вы не хотите придумывать динамическое имя, вы всегда можете указать URL-адрес в качестве имени.

Если вы не вставляете значения программно, этот сайт упоминает, используя рабочий лист HYPERLINK функция. Хотя еще лучшая ссылка — это то, что поможет вам добавить макрос в Excel, и они предоставляют код для макроса. Таким образом, после добавления этого макроса вы можете выбрать столбец URL-адресов и запустить макрос, и он преобразует весь столбец в гиперссылки

  Открытая подпрограмма Convert_To_Hyperlinks () Dim Cell  Как диапазон для каждой ячейки в пересечении (выделение, ActiveSheet.UsedRange), если ячейка  "", то ячейка ActiveSheet.Hyperlinks.Add, ячейка.Значение, конец, если следующий конец подпункта  

Отсюда: преобразование URL-адресов в интерактивные ссылки в Excel

  Public Sub Convert_To_Hyperlinks (  ) Тусклая ячейка как диапазон для каждой ячейки в пересечении (выделение, ActiveSheet.UsedRange) Если ячейка  "" Тогда ActiveSheet.Hyperlinks.Add Cell, Cell.Value End If NextEnd Sub  

Создание макроса

• Откройте документ Excel.
• Откройте редактор макросов, нажав ALT + F11.
• В меню «Инструменты» щелкните левой кнопкой мыши «Просмотр» и выберите «Обозреватель проекта».
• Найдите папку с названием «Модули», щелкните ее правой кнопкой мыши, выберите «Вставить», затем выберите » Module ‘.
• Вставьте код в модуль проекта, который вы выбрали.
• Нажмите ALT + F11, чтобы вернуться в книгу Excel (или щелкните его значок в Панель задач Windows).

Запустить макрос

• Чтобы выполнить макрос, выберите неактивные текстовые ссылки, которые вы хотите преобразовать в интерактивные гиперссылки.
• Нажмите ALT + F8, чтобы открыть окно выбора макроса, и щелкнуть только что созданный макрос.
• Теперь все ваши ссылки доступны для нажатия! Экономия времени и усталости от ввода данных 🙂

Трудно поверить, что нет необязательной настройки, чтобы Excel обрабатывал URL-адреса как живые ссылки. В конце концов, Outlook автоматически делает это. Но опять же — это продукт Microsoft, вздохнул.

У меня есть столбец ссылок в Excel. Я выбрал столбец и вставил его в электронное письмо самому себе. Получив письмо (столбец Excel все еще выбран), я вставил живые ссылки обратно в столбец. Готово!

Кроме того, вы можете сохранить электронное письмо как черновик и снова открыть сохраненный черновик. На самом деле нет необходимости отправлять и получать электронное письмо.

Самый простой способ сделать это — просто сохранить файл Excel как HTML-страницу. Затем снова откройте HTML-страницу в Excel, и ссылки станут кликабельными.

ОБНОВЛЕНИЕ
Иногда это не работает. Но это, кажется, всегда работает. Щелкните правой кнопкой мыши URL-адреса выбранных столбцов. Затем нажмите «Гиперссылка», затем нажмите «Поместить в этот документ». Кажется, это всегда работает

Следующее будет создавать интерактивные ссылки в одной формуле

  = CONCAT ("")  

Если вы хотите перезаписать формулу и очистить , то:
Скопируйте и вставьте формулу со значением.
используйте Ctrl + H для замены и > по отдельности ни с чем.

Поделиться

Улучшить этот ответ

отредактировано 20 марта ’20 в 21:54

zx485

2,10 166 золотых знаков1414 серебряных знаков2020 бронзовых знаков

20 марта ’20 в 20:48

Следующее будет создавать интерактивные ссылки в одной формуле

  = CONCAT (" ")  

Если вы хотите перезаписать формулу и очистить , тогда:
Скопируйте и вставьте формулу со значением.
используйте Ctrl + H для замены и > по отдельности ни с чем.

  Sub addHypers () для каждой ячейки в пересечении (Selection, ActiveSheet.UsedRange) Если ячейка   "" Затем ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value End If Next cellEnd SubSub removeHypers () Intersect (Selection, ActiveSheet.UsedRange) .Hyperlinks.DeleteEnd Sub  

Ответ Киры указывает вам здесь, что существенно дает вам это, и было хорошим направлением. Позволяет вам делать большой выбор по вашему запросу и конвертировать их все.

  Sub addHypers () Для каждой ячейки в пересечении (Selection, ActiveSheet.UsedRange) Если ячейка  "", то ActiveSheet.Hyperlinks.Add cell, "http://"  + cell.Value End If Next cellEnd SubSub removeHypers () Intersect (Selection, ActiveSheet.UsedRange) .Hyperlinks.DeleteEnd Sub