Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Гиперссылки с абсолютными значениями - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Гиперссылки с абсолютными значениями (Формулы/Formulas)
Гиперссылки с абсолютными значениями
Rriva Дата: Понедельник, 06.04.2020, 13:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Как сделать абсолютную гиперссылку?

Если мне надо вставить в столбец B собранную гиперссылку из адреса сайта и столбца С (номер спортсмена), то я пишу формулу
Код
=ГИПЕРССЫЛКА("https://ratings.fide.com/card.phtml?event="&C2;C2)


После этого мне надо убрать столбец С из таблицы, для этого:

скопировать столбец В через Ctrl + С
и вставить правая кнопка мыши, выбираю копирование значений (123)

НО! У меня вставляется только номер спортсмена, а сама гиперссылка теряется.
То есть обычный механизм вставки по значениям не копирует гиперссылку. А она мне нужна.
Можно ли как-то избавиться от лишнего столбца С и при этом оставить гиперссылку?
К сообщению приложен файл: 4854183.xlsx (10.2 Kb)
 
Ответить
СообщениеКак сделать абсолютную гиперссылку?

Если мне надо вставить в столбец B собранную гиперссылку из адреса сайта и столбца С (номер спортсмена), то я пишу формулу
Код
=ГИПЕРССЫЛКА("https://ratings.fide.com/card.phtml?event="&C2;C2)


После этого мне надо убрать столбец С из таблицы, для этого:

скопировать столбец В через Ctrl + С
и вставить правая кнопка мыши, выбираю копирование значений (123)

НО! У меня вставляется только номер спортсмена, а сама гиперссылка теряется.
То есть обычный механизм вставки по значениям не копирует гиперссылку. А она мне нужна.
Можно ли как-то избавиться от лишнего столбца С и при этом оставить гиперссылку?

Автор - Rriva
Дата добавления - 06.04.2020 в 13:57
DrMini Дата: Понедельник, 06.04.2020, 15:44 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Rriva, и Вам здравствуйте.
Вот решение UDF. Может подойдёт. Решение не моё. Попалось давно, но сохранилось. Автор Щербаков Дмитрий.
Может подойдёт?
[vba]
Код
Option Explicit

'функция получения адреса гиперссылки
Function Get_Hyperlink_Address(ByVal rCell As Range) As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
            Get_Hyperlink_Address = Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13)
        Else
            Get_Hyperlink_Address = "В ячейке нет гиперссылки!"
        End If
    Else
        Get_Hyperlink_Address = rCell.Hyperlinks(rCell.Hyperlinks.Count).Address
    End If
End Function
'функция получения подсказки для гиперссылки
Function Get_Hyperlink_Title(ByVal rCell As Range) As String
    Dim s As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
            Get_Hyperlink_Title = rCell.Text
        Else
            Get_Hyperlink_Title = ""
        End If
    Else
        Get_Hyperlink_Title = rCell.Hyperlinks(rCell.Hyperlinks.Count).ScreenTip
    End If
End Function
[/vba]
К сообщению приложен файл: 6894293.xlsm (16.9 Kb)
 
Ответить
СообщениеRriva, и Вам здравствуйте.
Вот решение UDF. Может подойдёт. Решение не моё. Попалось давно, но сохранилось. Автор Щербаков Дмитрий.
Может подойдёт?
[vba]
Код
Option Explicit

'функция получения адреса гиперссылки
Function Get_Hyperlink_Address(ByVal rCell As Range) As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
            Get_Hyperlink_Address = Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13)
        Else
            Get_Hyperlink_Address = "В ячейке нет гиперссылки!"
        End If
    Else
        Get_Hyperlink_Address = rCell.Hyperlinks(rCell.Hyperlinks.Count).Address
    End If
End Function
'функция получения подсказки для гиперссылки
Function Get_Hyperlink_Title(ByVal rCell As Range) As String
    Dim s As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
            Get_Hyperlink_Title = rCell.Text
        Else
            Get_Hyperlink_Title = ""
        End If
    Else
        Get_Hyperlink_Title = rCell.Hyperlinks(rCell.Hyperlinks.Count).ScreenTip
    End If
End Function
[/vba]

Автор - DrMini
Дата добавления - 06.04.2020 в 15:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Гиперссылки с абсолютными значениями (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!