Сделать ссылки на почту и сайт кликабельными

Вход

Регистрация

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

= Мир MS Excel/Сделать ссылки на почту и сайт кликабельными - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сделать ссылки на почту и сайт кликабельными (Формулы/Formulas)

Сделать ссылки на почту и сайт кликабельными

Marisa

Дата: Четверг, 10.03.2016, 17:12 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Приветствую! Помогите мне, пожалуйста. Есть список Email и ссылок на сайты. Как сделать чтобы ссылки стали кликабельны (без формул). Список большой, вручную через F2 нереально.

Ответить

Manyasha

Дата: Четверг, 10.03.2016, 17:29 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Marisa, можно так:
[vba]

Код

Sub t()
    For Each cell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=IIf(InStr(cell.Value, "@") = 0, cell.Value, "mailto:" & cell.Value)
    Next cell
End Sub

[/vba]макрос работает над выделенным диапазоном

ЯД: 410013299366744 WM: R193491431804

Ответить

Marisa

Дата: Четверг, 10.03.2016, 18:30 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Manyasha, вы волшебница! благодарю!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сделать ссылки на почту и сайт кликабельными (Формулы/Formulas)

Страница 1 из 1
1