Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Как из большого количества телефонов выбрать правильные - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как из большого количества телефонов выбрать правильные (Формулы/Formulas)
Как из большого количества телефонов выбрать правильные
Xellos008 Дата: Четверг, 27.07.2017, 12:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте, мне нужно в ячейке где телефоны вытащить только типа +7(111)4445555 а все остальные в другую колонку.
Хочу узнать возможно ли это? Не первый раз задаюсь этим вопросом и хочу понять и научится ^_^
Заранее благодарю за помощь
К сообщению приложен файл: _1.xlsx(86Kb)
 
Ответить
СообщениеЗдравствуйте, мне нужно в ячейке где телефоны вытащить только типа +7(111)4445555 а все остальные в другую колонку.
Хочу узнать возможно ли это? Не первый раз задаюсь этим вопросом и хочу понять и научится ^_^
Заранее благодарю за помощь

Автор - Xellos008
Дата добавления - 27.07.2017 в 12:53
Manyasha Дата: Четверг, 27.07.2017, 13:36 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1922
Репутация: 786 ±
Замечаний: 0% ±

Excel 2010, 2016
Xellos008, здравствуйте, так подойдет?
[vba]
Код
Function getPhon(txt As String)
    Dim objMatches As Object, objMatch As Object
    Dim res$
    
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\+7)\(\d{3}\)\d{7}"
        Set objMatches = .Execute(txt)
        
        For Each objMatch In objMatches
            res = res & ", " & objMatch
        Next objMatch
    End With
    If res <> "" Then getPhon = Mid(res, 2)
    
End Function
[/vba]
[vba]
Код
Function removePhon(txt As String)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\+7)\(\d{3}\)\d{7}"
        removePhon = .Replace(txt, "")
    End With
End Function
[/vba]
К сообщению приложен файл: _1-1.xlsm(90Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеXellos008, здравствуйте, так подойдет?
[vba]
Код
Function getPhon(txt As String)
    Dim objMatches As Object, objMatch As Object
    Dim res$
    
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\+7)\(\d{3}\)\d{7}"
        Set objMatches = .Execute(txt)
        
        For Each objMatch In objMatches
            res = res & ", " & objMatch
        Next objMatch
    End With
    If res <> "" Then getPhon = Mid(res, 2)
    
End Function
[/vba]
[vba]
Код
Function removePhon(txt As String)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\+7)\(\d{3}\)\d{7}"
        removePhon = .Replace(txt, "")
    End With
End Function
[/vba]

Автор - Manyasha
Дата добавления - 27.07.2017 в 13:36
Xellos008 Дата: Четверг, 27.07.2017, 14:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо большое))) это потрясающе! Это подойдет. Попробую еще сам понять суть всего этого. Огромное спасибо )))
 
Ответить
СообщениеСпасибо большое))) это потрясающе! Это подойдет. Попробую еще сам понять суть всего этого. Огромное спасибо )))

Автор - Xellos008
Дата добавления - 27.07.2017 в 14:15
Xellos008 Дата: Пятница, 28.07.2017, 15:15 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
А что если нужно найти телефон формата (4323)345321 ? Как будет выглядить формула?)
 
Ответить
СообщениеА что если нужно найти телефон формата (4323)345321 ? Как будет выглядить формула?)

Автор - Xellos008
Дата добавления - 28.07.2017 в 15:15
buchlotnik Дата: Пятница, 28.07.2017, 15:21 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2863
Репутация: 806 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
[vba]
Код
.Pattern = "\(\d{4}\)\d{6}"
[/vba]


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
Сообщение[vba]
Код
.Pattern = "\(\d{4}\)\d{6}"
[/vba]

Автор - buchlotnik
Дата добавления - 28.07.2017 в 15:21
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как из большого количества телефонов выбрать правильные (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!