Как вытащить гиперссылку из ячейки excel
Перейти к содержимому

Как вытащить гиперссылку из ячейки excel

  • автор:

Как получить адреса гиперссылок из ячеек Excel?

введите сюда описание изображения

В таблице несколько ссылок, но когда я копирую то, что в ячейках, то получаю значения: 38014960 38014980 38014740 38015080 Как мне получить ссылки?

Отслеживать
8,381 3 3 золотых знака 18 18 серебряных знаков 24 24 бронзовых знака
задан 11 окт 2019 в 15:05
1 1 1 бронзовый знак

1 ответ 1

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

Просто так ( Copy/Paste ) не получится. Но с помощью функции пользователя ( UDF ) можно.

Открыть проект VBA ( Alt+F11 ). в общем модуле разместить функцию:

Function HyperGet(rRng As Range) As String With rRng If .Hyperlinks.Count Then HyperGet = .Hyperlinks(.Hyperlinks.Count).Address 'адрес присвоенной ссылки' Else If Left$(.Formula, 10) = "=HYPERLINK" Then HyperGet = Mid$(Split(.Formula, ",")(0), 12) ' адрес ссылки из формулы' End If End If End With End Function 

В ячейке, где нужно получить адрес гиперссылки, записать формулу:

=HyperGet(A2) 

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

Как получить адрес гиперссылки в Excel

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

Функция =АДРЕССЫЛКИ(ГИПЕРССЫЛКА) имеет один обязательный аргумент

  • ГИПЕРССЫЛКА — ссылка на ячейку содержащую гиперссылку.

Пример

Определение адреса ссылки по гиперссылке из ячейки.

Код на VBA

Public Function АДРЕССЫЛКИ(ГИПЕРССЫЛКА As Range) As String АДРЕССЫЛКИ = ГИПЕРССЫЛКА.Hyperlinks.Item(1).Address End Function

Надстройка
VBA-Excel

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

Excel works!

menu

Как получить ссылку из ячейки с гиперссылкой в Excel? Вытаскиваем адрес ссылки формулой

Ноябрь 17, 2017 / Написал Izotov / 1 Comment

Мы уже писали о том, что такое гиперссылка и как ее создать, в этой статье . Но бывает нужно получить саму ссылку из ячейки с гиперссылкой в Excel. Если таких ячеек очень много, даже больше 20, на мой взгляд, не стоит пытаться получить ссылку из ячейки вручную. Проще воспользоваться небольшим макросом . Приведу варианты решения такой задачи, все не так сложно:

Бывает, что вы скопировали адреса сайтов из списка в интернете, в большинстве случаев, при таком копировании наименование адреса неравно самому адресу:

получить ссылку из ячейки

Разберемся как вытащить гиперссылку из такой ячейки

Как вывести адрес ссылки для одной ячейки?

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

Ссылка отдельно 2

В открывшемся окне вы можете скопировать ссылку из графы Адрес:

Ссылка отдельно 4

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

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

Как получить ссылку из ячейки с гиперссылкой в Excel

На днях у меня возникла задача: нужно было вытащить ссылки более чем из 10 тыс ячеек. Не делать же такое вручную. Я сначала поискал решение в интернете и нашел отличное вариант. Публикую для своих читателей решение с прекрасного сайта . Для применения способа запишите текст, приведенный ниже в окно модуля VBA ( Ctrl+F11 ). Если не знаете о чем я веду речь, советую прочитать статью про макросы .

Текст создаваемой функции будет следующий:

Function Получить_Ссылку(ByVal rCell As Range) As String Dim s As String If rCell.Hyperlinks.Count = 0 Then If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then Получить_Ссылку= Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13) Else Получить_Ссылку = "В ячейке нет гиперссылки!" End If Else s = rCell.Hyperlinks(1).SubAddress If s <> "" Then s = "#" & rCell.Hyperlinks(1).SubAddress Получить_Ссылку= rCell.Hyperlinks(rCell.Hyperlinks.Count).Address & s End If End Function

Теперь если начать записывать формулу, у вас будет появляться и эта функция тоже.

Ссылка отдельно 5

Конечно, она будет доступна и в меню функций.

Введите адрес ячейки как аргумент этой функции и протяните формулу на нужное количество ячеек. Все!

Ссылка отдельно 6

Удобно, еще раз спасибо Excel-vba.ru за отличный сайт.

Похожие статьи

  • 09.08.2015Добавить список адресов на картуPosted in Прочее
  • 09.02.2019Определить тип данных в ячейке. Функция ТИП в ExcelPosted in Формулы, Работа с ячейками
  • 19.01.2018Каким был 2017 год для excelworks.ru? План на 2018 годPosted in Прочее
  • 08.12.2015Взимание платы с грузовиков свыше 12 тонн. ПлатонPosted in Прочее
  • 01.10.2016Выпадающий список по значениюPosted in Формулы, Работа с ячейками
  • 16.10.2017Как правильно объединить ячейки в Excel?Posted in Прочее, Формулы, Оформление
  • 14.03.2015Как столбцы сделать строками? Транспонирование в ExcelPosted in Excel, Формулы
  • 28.01.2018Абзац в Excel. Как начать с новой строки в ячейкеPosted in Работа с текстом, Формулы, Работа с ячейками

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

Excel обладает возможностью вводить в свои рабочие книги гиперссылки.
Гиперссылка – это ссылка в документе, при щелчке на которую открывается другая страница или файл. По ссылке Вы сможете перейти на веб-страницу, другой файл, рисунок или адрес электронной почты. Эти файлы могут храниться на Вашем компьютере, в локальной сети или в Интернете.

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

 Гиперссылка как текст Гиперссылка как рисунок

указатель мыши

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

I. Создание гиперссылки на существующий файл

Чтобы вставить гиперссылку, воспользуйтесь следующим алгоритмом:

  1. Выделите текст в ячейке или пустую ячейку, в которой нужно создать гиперссылку.
    (Можно также выбрать объект, например, рисунок или элемент диаграммы).
  2. На вкладке Вставка кликните на Гиперссылку , или нажмите клавиши Ctrl +K

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

файлом, веб-страницей

  1. Из списка Папка выберите нужную папку.

Папка

  1. Щелкните на названии файла в списке расположенном под списком Папка .

Название файла появится в строке Адрес:

Адрес

  1. Если на этапе 1 была выделена пустая ячейка, напечатайте текст гиперссылки. По умолчанию он представляет собой имя файла или URL-адрес ссылки.

текст гиперссылки

  1. Нажмите ОК

Таким образом, получили гиперссылку на файл (текст выделен цветом и подчеркиванием).

текст выделен цветом и подчеркиванием

Чтобы перейти к заданному файлу, достаточно щелкнуть по гиперссылке левой кнопкой мыши.

II . Создание гиперссылки на веб-страницу
Первый вариант

По умолчанию вводимые в ячейку Web-адреса автоматически превращаются в гиперссылки. Поэтому, для того чтобы сделать гиперссылку на сайт достаточно ввести его название, начинающееся префиксом http:// , например, https://my.usoft.ru , или написать название сайта начиная с www , например, www .usoft.ru.

Второй вариант

кнопка Интернет

  1. В диалоговом окне Добавление гиперссылки щелкните на кнопке Интернет.

кнопка Интернет

После этого будет загружен установленный на Вашем компьютере браузер.

  1. Загрузите с его помощью нужную веб-страницу.
  2. Сверните окно браузера.

Адрес веб-страницы появится в строке Адрес: .

Адрес веб-страницы появится в строке Адрес

Получили гиперссылку на страницу сайта

  1. Нажмите ОК.
    Получили гиперссылку на страницу сайта.
III . Редактирование и удаление гиперссылок

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

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

Чтобы отключить несколько гиперссылок, выполните следующие действия:

  1. Введите в любую ячейку цифру 1 и щелкните правой кнопкой мыши на этой ячейке.
  2. В контекстном меню выберите команду Копировать (в буфер обмена).
  3. Затем, удерживая нажатой клавишу Ctrl , последовательно выделите ячейки, содержащие гиперссылки, которые требуется удалить.
  4. В меню Правка выберите команду Специальная вставка .
  5. В диалоговом окне выберите команду Умножить и нажмите Ок .

вид креста

Совет! Чтобы выделить ячейку, содержащую гиперссылку, не переходя по этой ссылке, щелкните эту ячейку и удерживайте кнопку мыши, пока указатель не примет вид креста . После этого отпустите кнопку мыши.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *