Гиперссылка со значением из текста

earl2

Гость

15.06.2012 18:13:18

В ячейках столбца "B" текст типа D:\новая\папка\1.pdf
Нужно чтоб в каждой ячейке была гиперссылка со значением из текста, сам тект менялся на название файла. Вообщем пример во вложении.
Руками делать это долго ) Да и список да и список постоянно пополняется путем копи-паста из другой программы
Помогите решить проблему.
Буду разумно благодарен за срочность.
Спасибо.

Прикрепленные файлы

post_340947.xls (18.5 КБ)

Z Гость	#2 15.06.2012 18:30:41 Как вариант... ;) -38542- Прикрепленные файлы post_340950.xls (25 КБ)

earl2 Гость	#3 15.06.2012 18:54:37 Это да...но я вообще о макросе мечтал...)

Guest Гость	#4 15.06.2012 19:13:02 Да услышит Всемогущий глас просящего!.. Но гласа-то не бало... ;)

Юрий М

Модератор

Сообщений: 60983 Регистрация: 14.09.2012

Контакты см. в профиле

15.06.2012 19:13:19

Мечты сбываются:
Sub MakeHyper() 'http://www.planetaexcel.ru/forum.php?thread_id=42349
Dim LastRow As Long, i As Long, Adr As String, Str As String
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To LastRow
Adr = Cells(i, 2).Value
Str = Split(Split(Cells(i, 2), "\")(UBound(Split(Cells(i, 2), "\"))), ".")(0)
Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:=Adr, TextToDisplay:=Str
Next
End Sub

earl2 Гость	#6 18.06.2012 16:37:42 Уважаемый сообщите номер Вашего кошелька ЯД..

vikttur Пользователь Сообщений: 47172 Регистрация: 15.09.2012	#7 18.06.2012 16:44:37 Посигнальте Юрию М на почту.

Читают тему