Как сделать все ссылки активными в excel

Как сделать все ссылки активными в excel

Прошу помочь в таком вопросе. Есть файл с 10000+ товарами, где в столбце указаны ссылки на фото товаров. Но они текстовые. Как сделать их активными? Пробовал функцией Гиперссылка (HIPERLINK). По одной получается. Но вручную обработать 10000+ ссылок не вариант. Подскажите как это сделать массово? Пример файла прилагаю.

PS. Если можно объясните как новичку, т.к. не понимаю ничего в макросах и прочем.

Прикрепленные файлы

• Пример.xls (40 КБ)

Пользователь
Сообщений: 9709 Регистрация: 22.12.2012
07.06.2015 14:10:00
а почему по одной?
в E3 пишете

=ГИПЕРССЫЛКА(D3)

и протягиваете вниз

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

Активные гиперссылки в Excel

Пользователям, работающим с программой Microsoft Excel, нередко приходится оперировать со значительными объемами ссылок. Причем необходимо их вставить так, чтобы эти ссылки были активны. Когда гиперссылка активна, то переход на целевую страницу происходит с помощью одного клика левой клавиши мышки. По умолчанию для активации любой ссылки в одном поле программы Excel нужно нажать клавишу F2 с последующим нажатием Enter.

Такой подход может использоваться в том случае, если таблица Excel состоит всего из десятка строк. Но если счет начинает идти на сотни или тысячи строк, то на повторение этих однообразных действий может уйти огромное количество времени. В этом случае без составления специальной программы-макроса не обойтись, а написать его можно на языке VBA (Visual Basic), уже встроенном в программный пакет Microsoft Excel.

Как написать макрос VBA Excel

Не думайте, что мы будем заниматься написанием программы, листинг которой состоит более, чем из тысячи строк. Наоборот, код данного макроса отличается небольшой длиной, при этом макрос решает задачу преобразования всех гиперссылок, находящихся в столбце «С», код Range([с2], Range(«с» & Rows.Count).End(xlUp)) в активные. Таким образом, после исполнения макроса все URL вебстраниц, помещенные в ячейки столбца «С», начиная со второй («С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

Вариант макроса, который приведен выше, обладает еще одной полезной возможностью. По желанию пользователь может взять управление процессом в свои руки и указать требуемый столбец и ячейку, с которой гиперссылки начнут превращаться в активные. Мы понимаем, что далеко не каждый читатель горит желанием разбираться во всех деталях программного кода. Тогда смело используйте универсальную версию макроса, преобразующего гиперссылки в таблицах Microsoft Excel в той области, которую вы выделите. Код этого универсального макроса приводится ниже.

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, после чего появится окно. В нем нужно будет подсветить требуемый макрос. Затем нажмите на кнопку «Параметры», в новом окошке укажите любую букву и подтвердите выбор нажатием кнопки «ОК». Эта буква в сочетании с клавишей Ctrl будет сразу активировать макрос.

Код двух макросов

Скопируйте оба фрагмента кода и вставьте к себе в Excel.

Итак, проблема преобразования неактивных URL ссылок в таблице Excel в активные гиперссылки по одному нажатию клавиши отныне полностью решена!

Как в Excel сделать ссылки активным?

По умолчанию, ссылка идет текстом, тоесть она не активна. Если редактриовать ячейку — хоть на один символ, текст становится ссылкой. В настройках отображения я не нашел этой функции. Как текст превратить в ссылки?

Отслеживать
задан 4 сен 2018 в 23:44
117 1 1 серебряный знак 6 6 бронзовых знаков

Добавить колонку. В ней ввести и растянуть формулу =ГИПЕРССЫЛКА(X:X;X:X) , где X — столбец со ссылками. Выделить новую колонку, копирование, выделить исходную колонку, спецвставка-значения. Удалить доп. колонку.

5 сен 2018 в 4:31

@Akina, при ссылке на столбец создается массив. Ссылаться нужно на ячейку: =ГИПЕРССЫЛКА(A2). Ваш фокус у меня не сработал — данные вставляются как значения.

5 сен 2018 в 7:53

при ссылке на столбец создается массив Это тут при чём? гиперссылка создаётся правильная. остальное семечки. данные вставляются как значения Пардон, спецвставку надо выполнять в ту же дополнительную колонку, а не в исходную, т.е. поверх формул, заменяя их. А потом исходную удалять.

5 сен 2018 в 8:08

Вставляются значения с форматированием (синий цвет), но перейти по ссылке не получится. О диапазоне: =ГИПЕРССЫЛКА(D6:D7), выделить формулу в строке вода и нажать F9. Результат — видим две ссылки. Ввод диапазона вместо одной ячейки иногда приводит к ошибкам.

5 сен 2018 в 8:20

3 ответа 3

Сортировка: Сброс на вариант по умолчанию

Можно зажать ctrl. и клинкнуть по ссылке, можно еще кликнуть правой кнопкой, выбрать формат ячеек, и выбрать Все форматы

Отслеживать
ответ дан 5 сен 2018 в 4:10
Edward Kamalov Edward Kamalov
47 7 7 бронзовых знаков

Чтобы при вводе в ячейку текст преобразовывался в ссылку, должна быть установлена галка

Замернять при вводе адреса Интернета и сетевые ресурсы гиперссылками .

Искать ее здесь:

Параметр не поможет, если данные уже введены в ячейку или диапазон.

Варианты преобразования текста в ссылку.

1. Войти в редактирование ячейки и выйти по Enter (менять символы не обязательно). По небольшому диапазону пробежаться с помощью Двойной_ЛКМ-Enter не составит труда. Не поможет, если указанная выше галка снята.
2. Формулой удобно, если вместо ссылки нужно отображать какой-либо текст. В свободный столбец вписать формулу:

где B2 — ссылка, A2 — текст. Если отображать ссылку, последний параметр можно не писать.

1. Для больших диапазонов замены можно использвать небольшой макрос:

Sub PasteHyperLink() Dim r As Range, c Set r = Selection ‘ For Each c In r ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=c Next c ‘ Set r = Nothing End Sub

Войти в редактор (Alt-F11), вызвать окно проектов (Ctrl+R), создать модуль (Insert-Module), в нем разместить код.

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

Отслеживать
ответ дан 5 сен 2018 в 8:34
vikttur_Stop_RU_war_in_UA vikttur_Stop_RU_war_in_UA
8,266 3 3 золотых знака 18 18 серебряных знаков 24 24 бронзовых знака

Господа, всё гораздо проще)) Вы создаёте рядом новую колонку. заходите в верхнюю строку и применяете к ней значение: Ссылки и массивы — Гиперссылка. Далее в строку 1 ставите значение первой ячейки столбца ваших «псевдоссылок», во вторую строку ставите ее же. Применяете гиперссылку,т.е. нажимаете Ок. Далее наводите на нижний правый уголок первой ячейки нового столбца, т.е. той, к которой всё это применяли. Ловите тот момент, когда появится черненький «+», т.е. сможете нормально протянуть эти значения на весь новый массив, аналогичный значениям столбца с «псевдоссылками». Протягиваете до последней «псевдоссылки», т.е. параллельно ей. И вуаля, у вас появился новый столбец с массивом ссылок. Столбец с псевдоссылками скрываем. Работайте на здоровье)

Отслеживать
ответ дан 1 ноя 2019 в 8:25
11 1 1 бронзовый знак

• excel
• office
• таблицы

Важное на Мете

Похожие

Подписаться на ленту

Лента вопроса

Для подписки на ленту скопируйте и вставьте эту ссылку в вашу программу для чтения RSS.

Дизайн сайта / логотип © 2023 Stack Exchange Inc; пользовательские материалы лицензированы в соответствии с CC BY-SA . rev 2023.11.15.1019

Нажимая «Принять все файлы cookie» вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.

Как сделать все ссылки активными в excel

Здравствуйте.Составил таблицу,в которую копировал ЮРЛ адреса.Просто копировал и все. Но получилось так,что часть из них активные(синего цвета) , а часть — просто текст и не переводят на сайт(черные). Как сделать все ссылки активными?Спасибо.

Здравствуйте.Составил таблицу,в которую копировал ЮРЛ адреса.Просто копировал и все. Но получилось так,что часть из них активные(синего цвета) , а часть — просто текст и не переводят на сайт(черные). Как сделать все ссылки активными?Спасибо. aswer777

Сообщение Здравствуйте.Составил таблицу,в которую копировал ЮРЛ адреса.Просто копировал и все. Но получилось так,что часть из них активные(синего цвета) , а часть — просто текст и не переводят на сайт(черные). Как сделать все ссылки активными?Спасибо. Автор — aswer777
Дата добавления — 27.08.2014 в 12:18

Группа: Модераторы
Ранг: Местный житель
Сообщений: 16620
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Предположу, что там могут быть лишние символы. Проверьте — встаньте в ячейку, F2, Ентер. Если в ссылку не преобразовалась,значит, что-то не то с текстом.
Если не получится — кусок файла положите сюда.

Предположу, что там могут быть лишние символы. Проверьте — встаньте в ячейку, F2, Ентер. Если в ссылку не преобразовалась,значит, что-то не то с текстом.
Если не получится — кусок файла положите сюда. _Boroda_

Сообщение Предположу, что там могут быть лишние символы. Проверьте — встаньте в ячейку, F2, Ентер. Если в ссылку не преобразовалась,значит, что-то не то с текстом.
Если не получится — кусок файла положите сюда. Автор — _Boroda_
Дата добавления — 27.08.2014 в 12:46