Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
как заменить знак # во всех гиперссылках
 
#1
18.09.2021 16:49:56
Приветствую, надо вытащить гиперссылки из ячеек. Делаю это этим кодом
Код
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

НО в гиперссылках стоит знак #  и данный код вытаскивает ссылку только до данного знака.
Вот думаю может есть возможность как- то достать полностью ссылки или как-то заменить данный знак на другой(не важно какой, мне надо для ВПР достать ссылки) во всех гиперссылках.

Помогите
Изменено: vikttur - 18.09.2021 17:26:32
 
 
 
#2
18.09.2021 17:08:52
Сам нашел решение. Вот, оставлю тут
Код
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
Вот источник: https://excelworks.ru/2017/11/17/kak-poluchit-ssyilku-iz-yacheyki/
Изменено: vikttur - 18.09.2021 17:27:05
 
 
 
#3
18.09.2021 17:10:42
Цитата
Роман Силаев написал:
оставлю тут
тогда и ссылку оставьте на статью, откуда этот код взяли: Как получить адрес гиперссылки из ячейки
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#4
18.09.2021 17:15:40
Роман Силаев, для правильного оформления кода используйте кнопку <...>
Исправьте свои сообщения.
 
 
 
Страницы: 1
Наверх