Содержание
Как сделать ссылку активной в Microsoft Excel – База знаний Timeweb Community
Вставленные в таблицу Excel ссылки не всегда становятся активными, из-за чего переход по ним в одно нажатие попросту невозможен. В таких случаях ссылку необходимо активировать, чтобы дальнейшее взаимодействие с ней было более удобным. Для этого есть разные способы, каждый из которых подойдет в определенных ситуациях.
Вариант 1: Вставка ссылки из браузера
Excel работает таким образом, что при копировании ссылки из адресной строки веб-обозревателя она сразу же становится активной. Используйте этот метод, если нужно вставить новые строки в таблицу, а не редактировать уже существующие. Найдите требуемую страницу в браузере и скопируйте ее, выделив и используя комбинацию клавиш Ctrl + C.
Перейдите в Microsoft Excel, после чего вставьте ссылку в подходящую ячейку, подогнав ее по размеру. Выберите любую другую клетку для редактирования, чтобы заметить, как применяется изменение к этой. Теперь вы можете нажать ЛКМ по ссылке, чтобы сразу открыть ее в браузере по умолчанию.
Прочитайте текст на всплывающей подсказке, появляющейся при наведении курсора на саму ссылку: в ней есть информация о том, что переход происходит при одинарном нажатии, а для выделения необходимо кликнуть и удерживать кнопку мыши. Это поможет разобраться с редактированием, если ранее вы с ним не работали.
Комьюнити теперь в Телеграм
Подпишитесь и будьте в курсе последних IT-новостей
Подписаться
Вариант 2: Самостоятельная активация ссылки
Разберу вариант, когда ссылка уже вставлена в таблицу, но не является активной. Этот же метод подойдет в тех случаях, когда нужно сделать слово или надпись с адресом в виде ссылки, по которой и будет осуществлен переход при нажатии.
-
Выделите ячейку со ссылкой или надписью, после чего нажмите по ней ПКМ.
-
Из появившегося контекстного меню выберите пункт «Ссылка», открыв соответствующее окно с настройками.
-
Если сейчас ссылка представлена в поле «Текст», ее необходимо скопировать и перенести в поле «Адрес».
-
Вместо ссылки в поле «Текст» вы можете вписать любую надпись, нажатие по которой отвечает за переход по ссылке, вставленной в поле «Адрес».
-
Примените изменения и вернитесь к таблице. На следующем скриншоте вы видите результат активации ссылки с заменой ее текста на более уместный.
Думаю, принцип использования окна «Ссылка» вам понятен, и проблем с переименованием возникнуть не должно. Используйте такой метод, когда нужно заменить громоздкую ссылку на лаконичную надпись, которая не будет нарушать внешний вид таблицы, но при этом останется функционально полезной.
Вариант 3: Использование макроса
Последний вариант самый необычный и подходит в редких случаях. Чаще всего он применим, когда в таблице уже есть перечень ссылок, находящихся в рамках одного столбца, но при этом они неактивны. Активировать каждую при помощи представленных выше инструкций можно, но это займет много времени. Проще сделать это при помощи специального макроса.
-
Для начала через главное окно перейдите в меню «Параметры».
-
Выберите раздел «Настроить ленту» и поставьте галочку возле основной вкладки «Разработчик». Так вы обеспечите ее отображение в верхней панели программы, что нам сейчас и пригодится.
-
Примените изменения, вернитесь к таблице, перейдите на соответствующую вкладку и запустите оснастку «Visual Basic».
-
Дважды щелкните по файлу книги, чтобы справа отобразилось окно редактирования кода.
-
Вставьте туда оставленный ниже код, заменив значения «a2» на номер ячейки, с которой начинается активация ссылок, а «а» – на букву столбца.
Sub HyperSsylka() Dim cell As Range, ra As Range: Application.ScreenUpdating = False Set ra = Range([a2], Range("a" & 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
Строку для редактирования вы видите на следующем изображении.
-
Сохраните результат, нажав по соответствующей кнопке на панели сверху или используя сочетание клавиш Ctrl + S.
-
Закройте редактор кода и запустите окно «Макрос». Дважды щелкните по строке с созданным макросом для активации ссылок.
-
Все изменения выполняются автоматически, а далее вам остается только убедиться в том, что вместо обычного текста появились активные ссылки, переход по которым возможен (если в их содержимом действительно находится веб-адрес).
Все перечисленные варианты работают в любых ситуациях, а выбор зависит исключительно от того, с какой задачей столкнулись лично вы. Конечно, для активации одной ссылки не захочется создавать макрос, а вот для массовой обработки он окажется как никогда кстати.
Активные ссылки в Excel или как URL сделать гиперссылкой
Работая в Excel с большим массивом ссылок иногда требуется, чтобы текстовые URL ссылки на страницу сайта были в виде активной гиперссылки, по которой можно кликнуть мышкой и перейти на саму страницу, самый простой способ в этом случае — это активировать гиперссылку в ячейке Excel, нажав клавишу F2 и затем Enter.
Когда у вас всего несколько строк в таблице, то проделать эту процедуру не составит никакого труда, но если у вас несколько сотен строк или даже несколько тысяч, то такие монотонные действия займут уйму времени. Так как сделать ссылку в excel на web сайт активной и кликабельной? Чтобы ускорить этот процесс его нужно автоматизировать с помощью 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 и далее кнопка ОК.
Теперь вы можете запускать макрос на активацию ссылок в столбце с помощью комбинации клавиш.
Код макросов
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
макросов — Как превратить сотни текстовых URL-адресов в Excel в интерактивные гиперссылки?
спросил
Изменено
1 год, 2 месяца назад
Просмотрено
119 тысяч раз
Как превратить столбец URL-адресов в гиперссылки, чтобы пользователи могли щелкнуть URL-адрес в ячейке и открыть его в браузере?
Я вставил 100 URL-адресов, и каждый попал в свою ячейку. Когда я дважды щелкаю ячейку, а затем покидаю ее, Excel превращает текст в синий цвет и делает из него ссылку. Я не хочу дважды щелкать сто раз, но все же хочу отформатировать все ячейки в ссылки.
- Microsoft-Excel-2007
- макросы
1
Функция в Excel для создания гиперссылки: =Hyperlink("http://www. techonthenet.com","Tech on the Net")
, где «http://www.techonthenet.com»
— это интернет-адрес, а «Tech on the Net»
— заголовок, который отображается в ячейке Excel.
Таким образом, когда вы записываете URL-адреса в файл Excel, просто оберните эту функцию вокруг каждого URL-адреса. Если вы не хотите придумывать динамическое имя, вы всегда можете указать URL-адрес в качестве имени.
Если вы не вставляете значения программно, то на этом сайте упоминается использование функции рабочего листа HYPERLINK. Хотя еще лучшим справочником является то, что вы узнаете, как добавить макрос в Excel, и они предоставляют код для макроса. Таким образом, когда после добавления этого макроса вы можете выбрать столбец URL-адресов и запустить макрос, он преобразует весь столбец в гиперссылки
3
Отсюда: преобразование URL-адресов в интерактивные ссылки в Excel
Public Sub Convert_To_Hyperlinks() Затемнить ячейку как диапазон Для каждой ячейки в пересечении (выбор, ActiveSheet. UsedRange) Если Ячейка <> "" Тогда ActiveSheet.Hyperlinks.Добавить ячейку, Cell.Value Конец, если Следующий Конец сабвуфера
Создание макроса
- Откройте документ Excel
- Откройте редактор макросов, нажав ALT+F11.
- В меню «Инструменты» щелкните левой кнопкой мыши «Вид» и выберите «Проводник проекта».
- Найдите папку «Модули», щелкните ее правой кнопкой мыши, выберите «Вставить», затем выберите «Модуль».
- Вставьте код в выбранный модуль проекта.
- Нажмите ALT+F11, чтобы вернуться в книгу Excel (или щелкните ее значок на панели задач Windows).
Запустить макрос
- Чтобы выполнить макрос, выберите неактивные текстовые ссылки, которые вы хотите преобразовать в интерактивные гиперссылки.
- Нажмите ALT+F8, чтобы открыть окно выбора макросов, и щелкните только что созданный макрос.
- Теперь все ваши ссылки кликабельны! Экономия времени и усталости от ввода данных 🙂
2
Трудно поверить, что нет дополнительной настройки, позволяющей Excel рассматривать URL-адреса как живые ссылки. Ведь Outlook делает это автоматически. Но опять же — это продукт Microsoft, вздох.
У меня есть столбец ссылок в Excel. Я выбрал столбец и вставил его в электронное письмо самому себе. Когда я получил почту (столбец Excel все еще выбран), я вставил живые ссылки обратно в столбец. Выполнено!
Кроме того, вы можете сохранить электронное письмо как черновик и снова открыть сохраненный черновик. На самом деле нет необходимости отправлять и получать электронное письмо.
Самый простой способ сделать это — просто сохранить файл Excel как HTML-страницу. Затем снова откройте HTML-страницу в Excel, и ссылки станут активными.
ОБНОВЛЕНИЕ
Иногда это не работает. Но это, кажется, всегда работает. Щелкните правой кнопкой мыши URL-адреса выбранного столбца. Затем нажмите «Гиперссылка», затем нажмите «Поместить в этот документ». Кажется, это всегда работает
2
Следующее создаст кликабельные ссылки в одной формуле
=CONCAT("<",HYPERLINK(M28,M28),">")
Если вы хотите перезаписать формулу и очистить <>
, то:
Скопируйте и вставьте формулу со значением.
используйте Ctrl + H , чтобы заменить <
и >
по отдельности ничем.
Ответ Киры указывает вам здесь, что, по сути, дает вам это, и это было хорошим направлением. Позволяет сделать большой выбор по вашему запросу и конвертирует их все.
Подпрограмма addHypers() Для каждой ячейки в пересечении (выбор, ActiveSheet.UsedRange) Если ячейка <> "" Тогда ActiveSheet.Hyperlinks.Add ячейка, "http://" + cell.Value Конец, если Следующая ячейка Конец сабвуфера Sub удалитьHypers() Пересечение(Выделение, ActiveSheet.UsedRange).Гиперссылки.Удалить Конец сабвуфера
Узнайте, как преобразовать текст URL-адреса в интерактивную гиперссылку в Excel, чтобы получить простые инструкции.
В Excel щелкните столбец, который вы хотите преобразовать в интерактивные гиперссылки.
Следуйте первому варианту: преобразовать текст URL-адреса в интерактивную гиперссылку с кодом VBA 9.0005
Выполните шаги и после нажатия F5 закройте приложение Microsoft Visual Basic, чтобы вернуться к файлу Excel. Теперь ваши URL-адреса будут доступны для кликов!
В более новых версиях Excel (начиная с 2018 г.) просто откройте раскрывающийся список «Стили» в строке главного меню и выберите «гиперссылка» в качестве стиля. Это отформатирует текстовую гиперссылку как интерактивную гиперссылку для выбранного вами диапазона.
1
Ответ Найла Флинна выше (от 6 января 2012 г., отредактированный nixda) действительно является лучшим способом преобразования текста в гиперссылки. В Excel 2016 настройка другая. Основываясь на ответе Н. Флинна, для тех, кто не знаком с созданием макросов в VBA, процедура выглядит следующим образом:
Для создания макроса
- Войдите в редактор макросов VBA через Alt+F11
- В меню «Вид» выберите Project Explorer
- Щелкните правой кнопкой мыши рабочий лист, который необходимо изменить (в разделе «Объекты Microsoft Excel»)
- Выберите «Вставить», затем выберите «Модуль».
- Вставьте код, указанный в ответе Н. Флинна
- Alt+F11 для возврата к книге Excel
Для запуска макроса:
- Выберите текст, который необходимо преобразовать
- Перейдите в меню Вид, выберите Макросы
- Выбор вида макросов
- Запустите появившийся новый макрос (Convert_To_Hyperlinks)
Если вы не хотите создавать макрос и не возражаете против дополнительного столбца, просто создайте новый столбец рядом со столбцом URL-адресов.
В новом столбце введите формулу =ГИПЕРССЫЛКА(A1) (заменив A1 любой интересующей вас ячейкой). Затем скопируйте формулу в остальные записи.
1
Зарегистрируйтесь или войдите в систему
Зарегистрируйтесь с помощью Google
Зарегистрироваться через Facebook
Зарегистрируйтесь, используя адрес электронной почты и пароль
Опубликовать как гость
Электронная почта
Требуется, но не отображается
Опубликовать как гость
Электронная почта
Требуется, но не отображается
Нажимая «Опубликовать свой ответ», вы соглашаетесь с нашими условиями обслуживания, политикой конфиденциальности и политикой использования файлов cookie
Автоматически добавлять гиперссылки к ячейкам с большими числами, содержащими URL-адреса, в Excel 2010
спросил
Изменено
3 года, 7 месяцев назад
Просмотрено
28 тысяч раз
У меня есть электронная таблица Excel с примерно 900 ячеек, каждая из которых содержит URL-адрес, который я вставил из другой программы.
Если я выберу ячейку и нажму F2 , затем нажму Введите , Excel добавит гиперссылку в ячейку, адрес которой является содержимым ячейки.
Есть ли в Excel 2010 механизм для повторения этого шага для моих многих сотен ячеек без необходимости выполнять шаг Enter вручную?
(я знаю, что я мог бы автоматизировать это в AutoHotKey, но я надеюсь, что это не понадобится)
Пояснение : Я специально хочу добавить гиперссылки в существующие ячейки, а не создавать второй столбец, содержащий гиперссылки.
Что я пробовал:
- Создание временного дополнительного столбца с
=Hyperlink(A1)
вA2
, согласно ответу user301746, а затем с помощью специальной вставки для копирования и вставки сначала форматирования, а затем значение болееA1
. Похоже, это сработало, поскольку ячейки в A1 и т. д. были показаны синим цветом и подчеркнуты, поэтому они выглядели как гиперссылки, но на самом деле они не были связаны - он только скопировал стиль отображения гиперссылки.
- microsoft-excel
- microsoft-excel-2010
- гиперссылка
поэтому я нашел метод обмана на этот вопрос, у меня была та же проблема, нужно было превратить около 4000 ячеек в гиперссылки
я скопировал и вставил весь столбец в лист Google, gsheet автоматически превратил все ссылки в активные ссылки, затем я повторно скопировал столбец из gsheet и вставил его обратно в электронную таблицу Excel.
2
В качестве альтернативы autohotkey довольно легко написать код на vba. Следующий код сделает то, что вы хотите, для всех ячеек в столбце A, начиная со строки 2.
Sub add_links() Dim lRow As Long С ActiveSheet lRow = .Range("A" & .Rows.Count).End(xlUp).Row Для каждого c In .Range("A2:A" и lRow) ActiveSheet.Hyperlinks.add привязка:=c, Address:=c.Value Следующий Конец с Конец сабвуфера
Вы можете использовать = Hyperlink (A1) в A2, чтобы делать то, что вы хотите, а затем скопировать его вниз с помощью инструмента заполнения ячейки.
Надеюсь, это поможет.
3
ОК, я нашел (слегка уродливую) серию шагов, которые, по крайней мере, заканчиваются гиперссылкой в исходном столбце, используя предложенную пользователем 301746 функцию HYPERLINK
, но только с одним столбцом.
- Скопируйте все ячейки Excel 2010, содержащие URL-адреса
- Вставьте URL-адреса в Notepad++
- В Notepad++ преобразуйте все URL-адреса в формулы ГИПЕРССЫЛКИ Excel, используя механизм, описанный в этом ответе.
- Control-H для вызова диалогового окна замены
- Измените режим поиска на Регулярное выражение
- Введите
(http.*)
в качестве критерия поиска (найдите любую строку сhttp
в ней и сохраните в переменной\1
- Введите
=HYPERLINK\(\"\1\"\)
в качестве критерия замены - замените то, что было найдено на предыдущем шаге, тем, что содержится в вызове функции HYPERLINK - Заменить все - теперь все ваши строки ссылок заключены, все оставшиеся строки должны иметь заголовки
- Скопировать весь текст из Notepad++
- Вставьте его поверх исходных ячеек в Excel 2010.