Вопрос : первенствуйте телефон & факс выдержки vba в месте для адреса

Я имею скоросшиватель xlsx & csvs с данными по телефона & факса в колонке адреса я хочу положить в их отдельно телефон и факс column.

Ideally, я думаю следующий правила извлекли пожеланные данные successfully.

1. Не все номера pertains к телефонам (т.е. zipcodes) не все телефонные номера предшествуйте что-нибыдь определяет его (ie. телефон, пэ-аш, показатели TEL.) не все имеют телефон, факс или either.

2. Их номера atleast 10+ последовательные в телефоне (с международными кодексами & набирать могут быть 13-15 номеров) мог иметь несколько из любого после сепараторов [.], [-], [)], [(] или космос a одиночный [].

3. Первым возникновением стренги номеров как описано в #2 будет телефон #, второе возникновение будет факс #.  


I уже управляло побежать сценарий на скоросшивателе архивов. Я как раз заметил что он будет безоснователен для меня для того чтобы пойти в показатели по-одному и ручно извлечь телефон и факс # ' s в виду того что будут many. class=

Ответ : первенствуйте телефон & факс выдержки vba в месте для адреса

Попытайтесь следующий:

Он использует функции потребителя.

Крис
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

fnValNum функции (strInput как шнур) как булевско
'Использует «тип архив регулярно выражений Майкрософт VBScript»
Тусклое regEx как предмет
    
    Установите regEx = CreateObject («vbscript.regexp»)
    regEx.IgnoreCase = True
    regEx.Pattern = «([0-9] [-. ()] *) {10.15}»
    fnValNum = regEx.test (strInput) = True
    
Установите regEx = ничего
Закончите функцию

fnGetNum функции (strInput как шнур, telNum как булевское) как шнур
'Использует «тип архив регулярно выражений Майкрософт VBScript»
Тусклое regEx как предмет
Тусклое colMatch как предмет
Тусклое itm как вариант
    
    Если fnValNum (strInput) после этого
        Установите regEx = CreateObject («vbscript.regexp»)
        regEx.IgnoreCase = True
        regEx.Global = True
        regEx.Pattern = «([0-9] [-. ()] *) {10.15}»
        Установите colMatch = regEx.Execute (strInput)
        Если telNum после этого
            fnGetNum = colMatch (0)
        Еще
            Если colMatch.Count > 1 после этого _, то
                fnGetNum = colMatch (1)
        Закончитесь если
    Закончитесь если
    
Установите regEx = ничего
Закончите функцию
 
sample-data-1-.xls (34 KB) (тип архива детали) 
закодируйте установлено в поставленном архиве
 
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us