Как сделать ссылку в ссылке в excel 14 фото

Как сделать ссылку в ссылке в excel

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

Гиперссылки в Excel

Когда у вас всего несколько строк в таблице, то проделать эту процедуру не составит никакого труда, но если у вас несколько сотен строк или даже несколько тысяч, то такие монотонные действия займут уйму времени. Чтобы ускорить этот процесс его нужно автоматизировать с помощью VBA (Visual Basic) макроса 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 и далее кнопка ОК.

Гиперссылки в Excel

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

Код макросов

Sub HyperSsylka() 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 HyperSsylkaSelect() 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

Оценка:           Всего голосов 4

Как сделать ссылку в ссылке в excel 25
Как сделать ссылку в ссылке в excel фото
Как сделать ссылку в ссылке в excel 6
Работа с гиперссылками в Excel - Excel - Microsoft Office Support
Как сделать ссылку в ссылке в excel 25
Создание внешней ссылки на диапазон ячеек в другой книге - Excel
Как сделать ссылку в ссылке в excel 94
Как преобразовать ссылку на фото в таблице excel в само фото
Как сделать ссылку в ссылке в excel 78
Активные ссылки в Excel или как URL сделать гиперссылкой
Как сделать ссылку в ссылке в excel 65
Как сделать ссылку в Excel на другой лист SirExcel
Как сделать ссылку в ссылке в excel 1
Как добавлять ссылки в Excel - wikiHow
Как сделать ссылку в ссылке в excel 13
Как сделать ссылку в ссылке в excel 88
Как сделать ссылку в ссылке в excel 7
Как сделать ссылку в ссылке в excel 56
Как сделать ссылку в ссылке в excel 27
Как сделать ссылку в ссылке в excel 5
Как сделать ссылку в ссылке в excel 3
Как сделать ссылку в ссылке в excel 65
Как сделать ссылку в ссылке в excel 38
Как сделать ссылку в ссылке в excel 13
Как сделать ссылку в ссылке в excel 26
Как сделать ссылку в ссылке в excel 93