Уважаемые участники форума, всем доброго времени суток. Хотел бы узнать, каким образом можно написать скрипт, который (исключительно в 1 столбце) переводил бы номера из регионального формата в международный. Например имеет 7 номеров разных стран, России, Украины, Белоруссии и так далее. В каждом номере отсутствует приставка +380, +7 и т.д, как сделать так, чтобы скрипт автоматически проверял строки на соответствие с кодами операторов и прибавлял необходимые цифры. Может такой скрипт уже существует в природе. Подскажите хотя бы где искать информацию по этому поводу. Заранее благодарю за ответ =)
Скрипт перевода номеров телефона в международный формат
15.12.2012 19:19:44
|
|
|
|
15.12.2012 23:42:17
Вот прикрепил пример ))
|
|
|
|
15.12.2012 23:50:17
Вы надеетесь, что Excel знает, из какой страны Виктория?
И Nataly может проживать в России... |
|
|
|
16.12.2012 00:21:36
Свежую информацию по Российской нумерации всегда можно найти на сайте:
По международной одним файлом не попадалась, но на некоторых сайтах имеются сервисы, откуда можно скопировать коды стран и городов и перевести в Excel (сам недавно подобным занимался). Кое что на Википедии имеется: |
|
|
|
16.12.2012 16:42:02
off
Я уже с природы вернулся... Правда нет там солнца, зато снега навалом - почистил перед воротами да с теплицы - на этом общения с природой на сегодня достаточно :) |
|
|
|
16.12.2012 16:46:15
я сегодня тоже к компу только к вечеру добрался. хороший денёк.
а с "клещами" уже завязал. Z прав - не стоит оно того :)
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
16.12.2012 21:45:11
Вас просили подписываться, показать таблицу соответствий и результат.
Не хотите? Как хотите. |
|
|
|
16.12.2012 21:53:40
Я просто не до конца понял этот самописный движ. Пример прикрепил, подписался.
|
|
|
|
16.12.2012 22:11:07
Sub qqq()
For Each cl In Selection Range(cl.Address).NumberFormat = "@" Range(cl.Address) = "+" & Replace(Replace(cl, "-", ""), " ", "") Next End Sub |
|
|
|
16.12.2012 22:51:33
А можно ли сделать так, чтобы к номерам там где уже есть + он не добавлял плюсик =)) Спасибо.
|
|
|
|
16.12.2012 23:03:31
Range(cl.Address) = "+" & Replace(Replace(Replace(cl, "+", "", "-", ""), " ", "")
|
|
|
|
17.12.2012 14:35:53
Все уже поправил, спасибо все огромное за помошь =)
|
||||
|
|
|||
Читают тему