Замена текста на гиперссылку

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

Замена текста на гиперссылку (Макросы/Sub)

Сергей

Дата: Четверг, 24.07.2014, 11:32 | Сообщение № 1

Группа: Гости

Добрый день!
Есть таблица, в таблице есть ячейка цифровой формат в ней записи вида 096 000 00 00 или 096000000, эту запись нужно менять на гиперссылку вида "tel:номер из ячейки"
Подскажите как это реализовать ?
[moder]А вот тут смотрели?

Ответить

santer_ua

Дата: Четверг, 24.07.2014, 12:31 | Сообщение № 2

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Добавил пример

К сообщению приложен файл: 2835943.xlsx (8.4 Kb)

Ответить

santer_ua

Дата: Четверг, 24.07.2014, 13:53 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Пусть должен выглядеть tel:номер из ячейки . Это как внешняя ссылка на сайт.

Ответить

_Boroda_

Дата: Четверг, 24.07.2014, 13:56 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16920

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Все равно не понял, но, уж коли Вы утверждаете, что Вам так нужно, ловите

К сообщению приложен файл: 2835943_1.xlsx (9.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

santer_ua

Дата: Четверг, 24.07.2014, 14:03 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Да это оно. По скольку записей будет много хотелось бы это делать макросом.
Если я правильно понял логику. Цыкл
1. Записать значение ячейки A в переменную
2. Сделать замену в этой ячейке на =ГИПЕРССЫЛКА("tel:"переменная;"tel:"переменная)
и так по каждой ячейке по цыклу
Подскажите как правильно в VBA делать запись значения ячейки в переменную ?

Ответить

anvg

Дата: Четверг, 24.07.2014, 14:21 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

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

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

2016, 365

Доброе время суток

Цитата

Куда должна отсылать ГС "tel:номер из ячейки"?

У меня Skype запускает, только вот номер в номеронабиартеле не вставляется. Может ещё какая звонилка подписана?
Хотя, если в ссылке писать "tel:+7495"&A1 Skype подхватывает.

Ответить

_Boroda_

Дата: Четверг, 24.07.2014, 14:35 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16920

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата santer_ua, 24.07.2014 в 14:03, в сообщении № 6

Цыкл

[vba]

Код

Sub tt()
     Dim i, a_
     For i = 1 To Selection.Count
         a_ = "tel:" & Selection(i)
         ActiveSheet.Hyperlinks.Add Anchor:=Selection(i), Address:=a_, TextToDisplay:=a_
     Next i
End Sub

[/vba]Перед запуском нужно выделить ячейки, в которых хотим получить ГС

Ответить

santer_ua

Дата: Четверг, 24.07.2014, 14:42 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Спасибо, то что нужно .

Ответить

Замена текста на гиперссылку (Макросы/Sub)

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