Активный URL в ячейке Excel

Работая в Excel с большим массивом ссылок иногда требуется, чтобы URL ссылки на страницу был в виде активном гиперссылки, по котрой можно кликнуть мышкой и перейти на саму страницу сайта. Самый простой способ активировать гиперссылку в ячейке Excel - это нажать клавишу F2 и затем Enter.

Когда у вас всего несколько строк в таблице, то проделать эту процедуру не составит никакого труда, но если у вас несколько сотен строк или даже несколько тысяч, то такие монотонные действия займут уйму времени. Чтобы ускорить этот процесс его нужно автоматизировать с помощью VBA (Visual Basic) макроса Excel!

Пишем макрос VBA Excel

Сам код макроса очень короткий и не сложный, ниже представлен макрос, который делает активными все гиперссылки, расположенные в столбце "С", код Range([c2], Range("c" & Rows.Count).End(xlUp)). Все урлы страниц преобразуетcя в активные гиперссыки столбца "С" начиная с ячейки "С2" и далее.

Sub HyperLink()
   Dim cell As Range, ra As Range: Application.ScreenUpdating = False
   Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells
      If Len(cell) Then cell.Hyperlinks.Add cell, cell
   Next cell
End Sub

Версия макроса описанная выше удобна тем, кто хочет управлять процессом и преобразовывать строки с нужного место и в нужном столбце. Если вы не хотите вникать в тонкости редактирования макросов, то вы можете использовать более универсальный вариант, который преобразует ссылки в таблице в любой выделенной вами области, смотрите код ниже.

Sub HyperLinkSelect()
   Dim cell As Range: Application.ScreenUpdating = False
   For Each cell In Selection
      If Len(cell) Then cell.Hyperlinks.Add cell, cell
   Next cell
End Sub

При желании можно назначить горячую клавишу для вызова макроса, нажимаем Alt + F8, в появившемся окне мышкой выбираем нужный макрос, далее жмем кнопку Параметры и в диалоговом окне указываем любую букву для сочетания клавиш, в моё случае это Alt + d и далее кнопка ОК.

Теперь вы можете запускать макрос на активацию ссылок в столбце с помощью комбинации клавиш.

Код макросов

Оценка:           Всего голосов 1
ул. Алтайская 4 107207 Россия, г. Москва +7 926 336 3356

О компании

Предоставляем комплексные услуги в сфере интернет-рекламы, визуального маркетинга, веб-аналитики, SMM, SEO и помогаем активно развивать ваш интернет бизнес.

Свежее в Блоге

Блог SEO:
Новостной SEO трафик
Маркетинг:
Хочу VS Нуждаюсь
Instagram:
Успешный бизнес-аккаунт Instagram
Программы:
Программа InstaFlow

Наша миссия

Убедить бизнес в том, что без качественного визуального контента ваш товар или услуги не смогут составить конкуренцию на рынке.

Контакты