Страница 1 из 1
Excel. Как текст гиперссылки выкинуть рядом с ячейками
Добавлено: 18 июл 2008, 15:02
Avsha
Приветствую,
есть столбец ячеек с гиперссылками,
Как рядом получить столбец текста (адреса) гиперссылок для всех ячеек?
Тот же вопрос и по примечаниям,
как выкинуть примечания ячеек в столбик рядом как значения ячеек?
Вручную больно утомительно
Ясно, что макросом можно, штатного ничего нет?
Re: Excel. Как текст гиперссылки выкинуть рядом с ячейками
Добавлено: 18 июл 2008, 17:57
Teslenko_EA
Здравствуйте
Avsha.
С текстом ячейки содержащей гиперссылку, думаю не очень сложно - =C13&""
А с примечаниями пожалуй без подобной функции не обойтись:
Код: Выделить всё
Public Function sRem(oCell) As String
Dim s
On Error GoTo Exit_
s = oCell.Comment.Text
If Len(s) > 0 Then sRem = s
Exit_:
End Function
Евгений.
Re: Excel. Как текст гиперссылки выкинуть рядом с ячейками
Добавлено: 18 июл 2008, 18:50
Avsha
Teslenko_EA, спасибо с примечанием все OK!
а с гиперсылкой я имел в виду - выкинуть ее адрес, т.е. например,
http://forum.developing.ru/showthread.php?t=14797
Re: Excel. Как текст гиперссылки выкинуть рядом с ячейками
Добавлено: 18 июл 2008, 19:32
Teslenko_EA
Avsha, конкатенация со строкой нулевой длины действительно возвратит текст ссылки, а ее адрес можно получить подобной функцией:
Код: Выделить всё
Function textH(oCell) As String
Dim s$
On Error GoTo Exit_
s = oCell.Hyperlinks(1).Address
If Len(s) > 0 Then textH = s
Exit_:
End Function
Евгений.
Re: Excel. Как текст гиперссылки выкинуть рядом с ячейками
Добавлено: 18 июл 2008, 21:48
Avsha
Teslenko_EA,
спасибо за рабочие примеры,
я думаю, вопрос полностью решен... силой VBA
Надеюсь, появится когда-нибудь в специальной вставке Excel
галочки - вставить "значения из Примечания" или "адреса Гиперссылок"
