После этого мне надо убрать столбец С из таблицы, для этого:
скопировать столбец В через Ctrl + С и вставить правая кнопка мыши, выбираю копирование значений (123)
НО! У меня вставляется только номер спортсмена, а сама гиперссылка теряется. То есть обычный механизм вставки по значениям не копирует гиперссылку. А она мне нужна. Можно ли как-то избавиться от лишнего столбца С и при этом оставить гиперссылку?
Как сделать абсолютную гиперссылку?
Если мне надо вставить в столбец B собранную гиперссылку из адреса сайта и столбца С (номер спортсмена), то я пишу формулу
После этого мне надо убрать столбец С из таблицы, для этого:
скопировать столбец В через Ctrl + С и вставить правая кнопка мыши, выбираю копирование значений (123)
НО! У меня вставляется только номер спортсмена, а сама гиперссылка теряется. То есть обычный механизм вставки по значениям не копирует гиперссылку. А она мне нужна. Можно ли как-то избавиться от лишнего столбца С и при этом оставить гиперссылку?Rriva
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]
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