Содержание
office — Как в Excel сделать ссылки активным?
Вопрос задан
Изменён
2 года назад
Просмотрен
7k раз
Есть вот такая вот колонка
По умолчанию, ссылка идет текстом, тоесть она не активна.
Если редактриовать ячейку — хоть на один символ, текст становится ссылкой.
В настройках отображения я не нашел этой функции.
Как текст превратить в ссылки?
- excel
- office
- таблицы
4
Можно зажать ctrl. и клинкнуть по ссылке, можно еще кликнуть правой кнопкой, выбрать формат ячеек, и выбрать Все форматы
Чтобы при вводе в ячейку текст преобразовывался в ссылку, должна быть установлена галка
Замернять при вводе адреса Интернета и сетевые ресурсы гиперссылками
.
Искать ее здесь:
Файл-Параметры-Правописание-Параметры_автозамены-Автоформат_при_вводе
Параметр не поможет, если данные уже введены в ячейку или диапазон.
Варианты преобразования текста в ссылку.
Войти в редактирование ячейки и выйти по Enter (менять символы не обязательно). По небольшому диапазону пробежаться с помощью Двойной_ЛКМ-Enter не составит труда. Не поможет, если указанная выше галка снята.
Формулой удобно, если вместо ссылки нужно отображать какой-либо текст. В свободный столбец вписать формулу:
=ГИПЕРССЫЛКА(B2;"к прайсу")
=ГИПЕРССЫЛКА(B2;A2)
где B2 — ссылка, A2 — текст. Если отображать ссылку, последний параметр можно не писать.
- Для больших диапазонов замены можно использвать небольшой макрос:
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), в нем разместить код.
Перед запуском выделить нужный диапазон. В диапазоне дожны быть только ссылки. Не обязательно, но в ячейках пустых или с нессылочными значениями тоже будут созданы гиперссылки (ошибочные).
Господа, всё гораздо проще)) Вы создаёте рядом новую колонку. заходите в верхнюю строку и применяете к ней значение: Ссылки и массивы — Гиперссылка. Далее в строку 1 ставите значение первой ячейки столбца ваших «псевдоссылок», во вторую строку ставите ее же. Применяете гиперссылку,т.е. нажимаете Ок. Далее наводите на нижний правый уголок первой ячейки нового столбца, т.е. той, к которой всё это применяли. Ловите тот момент, когда появится черненький «+», т.е. сможете нормально протянуть эти значения на весь новый массив, аналогичный значениям столбца с «псевдоссылками». Протягиваете до последней «псевдоссылки», т.е. параллельно ей. И вуаля, у вас появился новый столбец с массивом ссылок. Столбец с псевдоссылками скрываем. Работайте на здоровье)
Зарегистрируйтесь или войдите
Регистрация через Google
Регистрация через Facebook
Регистрация через почту
Отправить без регистрации
Почта
Необходима, но никому не показывается
Отправить без регистрации
Почта
Необходима, но никому не показывается
Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки
макрос URL активной гиперссылки в Excel
Обновление: 2022-11-23.
Пользователям, работающим с программой Microsoft Excel, нередко приходится оперировать со значительными объемами ссылок. Причем необходимо их вставить так, чтобы эти ссылки были активны. Когда гиперссылка активна, то переход на целевую страницу происходит с помощью одного клика левой клавиши мышки. По умолчанию для активации любой ссылки в одном поле программы Excel нужно нажать клавишу F2 с последующим нажатием Enter.
Такой подход может использоваться в том случае, если таблица Excel состоит всего из десятка строк. Но если счет начинает идти на сотни или тысячи строк, то на повторение этих однообразных действий может уйти огромное количество времени. В этом случае без составления специальной программы-макроса не обойтись, а написать его можно на языке VBA (Visual Basic), уже встроенном в программный пакет Microsoft 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.
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 в активные гиперссылки по одному нажатию клавиши отныне полностью решена!
Автор: Сергей Сморовоз.
Smorovoz.RU › Софт › Макрос гиперссылок в Excel
Оценка:
Всего голосов 3
Please enable JavaScript to view the comments powered by Disqus.
Как преобразовать столбец текстовых URL-адресов в активные гиперссылки в Excel?
спросил
Изменено
8 месяцев назад
Просмотрено
756 тысяч раз
У меня есть столбец в Excel, в котором есть все значения URL-адреса веб-сайта. Мой вопрос: я хочу превратить значения URL в активные ссылки. В этом столбце около 200 записей с разными URL-адресами во всех ячейках. Есть ли способ создать активные гиперссылки на все ячейки без написания макроса.
- excel-2007
- гиперссылка
Если вы не хотите создавать макрос и не возражаете против дополнительного столбца, просто создайте новый столбец рядом со столбцом URL-адресов.
В новом столбце введите формулу =ГИПЕРССЫЛКА(A1)
(заменив A1 любой интересующей вас ячейкой). Затем скопируйте формулу в остальные 200 записей.
ПРИМЕЧАНИЕ. Это решение не работает, если ячейка A1 содержит строку длиннее 255 символов. В результате получается #ЗНАЧ!
ошибка
7
Создайте макрос, как здесь:
В меню Сервис в Microsoft Excel выберите Макрос, а затем щелкните Редактор Visual Basic.
В меню Вставка щелкните Модуль.
Скопируйте и вставьте этот код в окно кода модуля.
Он автоматически назовет себя HyperAdd.
Подпрограмма HyperAdd() 'Преобразует каждую выбранную текстовую гиперссылку в рабочую гиперссылку Для каждой xCell в выборе ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula Следующий xCell Конец сабвуфера
Когда вы закончите вставку макроса, нажмите «Закрыть и вернуться в Microsoft Excel» в меню «Файл».
Затем выберите нужные ячейки и нажмите макрос и нажмите запустить.
ПРИМЕЧАНИЕ НЕ выделяйте весь столбец! Выберите ТОЛЬКО те ячейки, которые вы хотите изменить на интерактивные ссылки, иначе вы попадете в бесконечный цикл и вам придется перезапустить Excel!
Выполнено!
10
Довольно простой способ для довольно коротких списков:
- Дважды щелкните поле с URL-адресом
- Введите
.
У тебя есть ссылка 😉
7
Вот способ, который я нашел. Я на Mac с Excel 2011.
Если в столбце B были текстовые значения, которые вы хотите использовать в качестве гиперссылок, поместите эту формулу в ячейку C1 (или D1 или любую другую, если это свободный столбец): =HYPERLINK(B1,B1)
Это вставит гиперссылку с местоположением в качестве текста ссылки и «понятным именем» в качестве текста ссылки. Если у вас есть другой столбец с понятным именем для каждой ссылки, вы также можете использовать его.
Затем вы можете скрыть текстовый столбец, если не хотите его видеть.
Если у вас есть список идентификаторов чего-либо, и все URL-адреса были http://website.com/folder/ID
, например:
A1 | Б1 101 | http://website.com/folder/101 102 | http://website.com/folder/102 103 | http://website.com/folder/103 104 | http://website.com/folder/104
вы можете использовать что-то вроде =HYPERLINK("http://website.com/folder/"&A1,A1)
и вам не понадобится список URL-адресов. Это была моя ситуация, и она работала хорошо.
Согласно этому сообщению: http://excelhints.com/2007/06/12/hyperlink-formula-in-excel/ этот метод будет работать и в Excel 2007.
2
Хорошо, вот ложное решение, но я просто не могу понять, как заставить Excel оценивать столбец URL-адресов как гиперссылки.
- Создать формулу,
="=гиперссылка(""" & A1 & """)"
- Перетащите вниз
- Скопировать новый столбец формулы
- Вставить специальные значения только поверх исходного столбца
- Выделить столбец, нажать Ctrl — H (на замену), найти и заменить
=
с=
(каким-то образом вызывает переоценку ячеек). - Ячейки теперь должны быть интерактивными как гиперссылки. Если вам нужен синий/подчеркнутый стиль, просто выделите все ячейки и выберите стиль «Гиперссылка».
Сам по себе стиль гиперссылки не будет преобразован в интерактивные ссылки, а диалоговое окно «Вставить гиперссылку», похоже, не может использовать текст в качестве адреса для набора ячеек. Кроме того, F2 и Введите через все ячейки, но это утомительно для многих ячеек.
3
Если добавление дополнительного столбца с гиперссылками невозможно,
альтернативой является использование внешнего редактора для включения вашей гиперссылки в =hyperlink("
and ")
, чтобы получить =hyperlink("originalCellContent")
Если у вас есть Notepad++, это рецепт, который вы можно использовать для полуавтоматического выполнения этой операции:
- Скопировать столбец адресов в Notepad++
- Удерживая нажатой ALT — SHIFT , переместите курсор из верхнего левого угла в нижний левый угол и введите
=hyperlink("
. Это добавит=hyperlink("
в начале каждой записи. - Откройте меню «Заменить» ( Ctrl — H ), активируйте регулярные выражения ( ALT — G ) и замените
$
(конец строки) на"\)
. Это добавляет закрытый кавычка и закрывающая скобка (которую нужно экранировать с помощью\
при активации регулярных выражений) в конце каждой строки. - Вставьте обратно данные в Excel. На практике просто скопируйте данные и выберите первую ячейку столбца, в которую вы хотите, чтобы данные попали.
5
Я в шоке, что Excel не сделал этого автоматически, поэтому вот мое решение, которое, я надеюсь, будет полезно для других,
- Скопировать весь столбец в буфер обмена
- Откройте это в Chrome или Firefox
data:text/html,
- Вставьте столбец на страницу, которую вы только что открыли в браузере, и нажмите «Linkify»
- Скопируйте результат с вкладки в столбец Excel
Вместо второго шага вы можете использовать страницу ниже, сначала нажмите «Выполнить фрагмент кода», затем вставьте в нее столбец.
3
Этот метод работает для меня, используя функцию гиперссылки:
=HYPERLINK("http://"&B10,B10)
Где B10
— это ячейка, содержащая текстовую версию URL-адреса (в данном примере).
1
При работе с Excel 2007 в Windows эти шаги показались мне самыми простыми;
- Выберите ячейки с неактивными URL-адресами
- Копия
- Вставить как гиперссылку
1
- Создать временный новый столбец гиперссылок, используя формулу =ГИПЕРССЫЛКА()
- Скопируйте этот столбец в Microsoft Word (скопируйте в буфер обмена только после запуска Word).
- Скопируйте все в новый документ Word (ctrl+a, затем ctrl+c).
- Вставить в Excel, заменив исходный столбец текста. Удалите временный столбец с формулой.
Я обнаружил, что ни один из методов здесь не работал, если гиперссылка не включала http://, так как они ссылались на локальные местоположения.
Я также хотел защитить скрипт от дурака, так как пользователи не смогут его поддерживать сами, а я буду недоступен.
Он будет выполняться только для ячеек в выбранном диапазоне, если они содержат точку и не содержат пробелов. Он будет работать только до 10 000 ячеек.
Подпрограмма HyperAdd() Dim CellsWithSpaces As String 'Преобразует каждую выбранную текстовую гиперссылку в рабочую гиперссылку Application.ScreenUpdating = Ложь Dim NotPresent как целое число Не присутствует = 0 Для каждой xCell в выборе xCell.Formula = Обрезать(xCell.Formula) Если xCell.Formula = "" Или InStr(xCell.Formula, ".") = NotPresent Тогда 'Ничего не делать, если ячейка пуста или не содержит точек Еще Если InStr(xCell.Formula, " ") <> 0 Тогда CellsWithSpaces = CellsWithSpaces & ", " & Replace(xCell. Address, "$", "") Перейти к Nextxcell Конец, если Если InStr(xCell.Formula, "http") <> 0 Тогда Hyperstring = Trim(xCell.Formula) Еще Hyperstring = "http://" и Trim(xCell.Formula) Конец, если ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=Hyperstring Конец, если я = я + 1 Если я = 10000, то выйдите из подпрограммы Nextxcell: Следующий xCell Если Не CellsWithSpaces = "" Тогда MsgBox ("Удалите пробелы из следующих ячеек:" & CellsWithSpaces) Конец, если Application.ScreenUpdating = Истина Конец сабвуфера
1
Для себя я просто скопировал весь столбец с URL-адресами в текстовом формате в другое приложение (скажем, Evernote), и когда они были вставлены туда, они стали ссылками, а затем я просто скопировал их обратно в Excel.
Единственное, что здесь нужно сделать, это убедиться, что данные, которые вы копируете обратно, совпадают с остальными столбцами.
Попробуйте так:
=ГИПЕРССЫЛКА(«mailto:»&A1, A1)
Замените A1 текстом ячейки адреса электронной почты.
Для всех, кто попадает сюда с Excel 2016, вы можете просто выделить столбец, а затем щелкнуть вкладку Гиперссылка
, расположенную на ленте Главная
в поле Стили
.
Редактировать: К сожалению, это только обновляет стиль ячейки, а не функцию.
4
Вы можете вставить формулу =ГИПЕРССЫЛКА(<ваша_ячейка>,<ваша_ячейка>)
в соседнюю ячейку и перетащить ее в самый низ. Это даст вам столбец со всеми ссылками. Теперь вы можете выбрать исходный столбец, щелкнув заголовок, щелкнув правой кнопкой мыши и выбрав 9.0021 Скрыть .
Если скопировать текстовое содержимое в новый столбец и использовать:
=ГИПЕРССЫЛКА("http://"&B10,B10)
в исходной колонке. Затем используйте $
для столбца, чтобы он выглядел так:
=HYPERLINK("http://"&$B10,$B10)
Это единственный способ, которым я работал в Excel 2010 в Windows 7. Вы можете скопировать формулу.
Поместите URL-адреса в таблицу HTML, загрузите HTML-страницу в браузер, скопируйте содержимое этой страницы и вставьте в Excel. На этом этапе URL-адреса сохраняются как активные ссылки.
Решение было предложено на http://answers.microsoft.com/en-us/mac/forum/macoffice2008-macexcel/how-to-copy-and-paste-to-mac-excel-2008-a-list- of/c5fa2890-acf5-461d-adb5-32480855e11e (Jim Gordon Mac MVP) [http://answers.microsoft.com/en-us/profile/75a2b744-a259-49bb-8eb1-7db61dae9e78]
Я обнаружил, что это сработало.
У меня были эти URL:
https://twitter.com/keeseter/status/578350771235872768/photo/1
https://instagram.com/p/ys5ASPCDEV/
https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg
https://twitter.com/ranadotson/status/539485028712189952/photo/1
https://instagram.com/p/0OgdvyxMhW/
https://instagram.com/p/1nynTiiLSb/
Я поместил их в файл HTML (links. html) следующим образом:
https://twitter.com/keeseter/status/578350771235872768/photo/1тд>тр> |
https://instagram.com/p/ys5ASPCDEV/ |
https://igcdn-photos-g-a.akamaihd.net/hphotos-ak-xfa1/t51.2885-15/10881854_329617847240910_1814142151_n.jpg |
https://twitter.com/ranadotson/status/539485028712189952/photo/1тд>тр> |
https://instagram.com/p/0OgdvyxMhW/ |