Получение реальной ссылки из гиперссылки в Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Получение реальной ссылки из гиперссылки в Excel (Макросы/Sub)

Каунаска

Дата: Понедельник, 10.11.2014, 14:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте дорогие форумчане.
У меня эксель2013, столкнулась с проблемой. что нужно использование макроса, но чайник в этом, помогите пожалуйста, или возможно уже есть, но не нашла (((
Нужно из гиперссылки, сделать ссылку.
Пыталась сделать макрос, ничего не получилось ((( возможно руки кривые
Заранее спасибо за помощь.

К сообщению приложен файл: 4234185.xlsx (28.3 Kb)

Ответить

Каунаска

Дата: Понедельник, 10.11.2014, 14:57 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

На просторах интернета нашла такой код
[vba]

Код

Public Function GetUrlFromHyperlink(ByVal range As Range) As String
If (range.Hyperlinks.Count > 0) Then
GetUrlFromHyperlink = range.Hyperlinks(1).Address
Else
GetUrlFromHyperlink = ""
End If
End Function

[/vba]

а как его применить не понимаю (((

Ответить

buchlotnik

Дата: Понедельник, 10.11.2014, 21:18 | Сообщение № 3

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Каунаска, Ваш макрос не применим, т.к. он обращается к гиперссыке диапазона, а не к функции ГИПЕРССЫЛКА. Не совсем понятен результат, который вы ожидаете. Как понял - см. файл
[vba]

Код

Function hyp(A As range) As String
      Application.Volatile
      hyp = CStr(A.Formula)
      hyp = Left(hyp, Len(hyp) - 2)
      hyp = Right(hyp, Len(hyp) - 12)
End Function

[/vba]