Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Преобразование текста в гиперссылку при помощи макроса
 
Добрый день Уважаемые форумчане

Есть таблица в которую вносится описание - столбец В. Описание это обычно текст, но бывает, что пользователи указывают адреса папок/файлов в виде текста (при этом не добавляют гиперссылку). Такие адреса нужно затем преобразовать в нормальную гиперссылку, кликнув по которой можно было переходить к определенному файлу / папке.

Напсал макрос для преобразования значений в столбце В из текста в гиперссылку. Но макрос преобразовывает в гиперссылку все значения без исключения,а нужно чтобы он игнорировал обычный текст и преобразовывал только гиперссылки
Код
Sub TransformToHyperLink()

Range("Таблица1[Описание]").Select

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub

Подскажите как можно обойти данное ограничение ?
Изменено: pinguindell - 25 Сен 2017 10:56:42
 
вариант для данного примера
Код
For Each xCell In Range("Таблица1[Описание]")
If InStr(1, xCell, ":\") Then ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell
 
V, спасибо !!! работает !
 
pinguindell, Ваш макрос выручил меня! Спасибо!
У меня имеется столбец в таблице, в котором прописаны только адреса.
А можно ли что-нибудь сделать чтобы он не создавал гиперссылки на этот же xlsm в пустых клетках? И можно ли задать несколько столбцов для данного макроса?
Страницы: 1
Читают тему (гостей: 1)
Наверх