Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан, Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан
 
Добрый вечер.
Пример как получилось во вложение, но не как не получаться отделить кем выдан , или как это сделать более красиво одной формулой  
 
boomgam,
А что это за даты выдан 10.04.2109
выдан 22.04.2050
 
как образец  
 
UDF
Код
Function iВыдан(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "\d{2}\.\d{2}\.\d{4}.+$"
     If .Test(cell) Then
       iВыдан = Mid(.Execute(cell)(0), 12)
     Else
       iВыдан = ""
     End If
 End With
End Function
 
Спасибо  
 
boomgam,
Можно и все остальные параметры вытащить,
например
Код
Function iPasport(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "^.+\d{2}\s\d{2}"
     If .Test(cell) Then
       iPasport = .Execute(cell)(0)
     Else
       iPasport = ""
     End If
 End With
End Function

для серии
Код
Function iSer(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "\d{2}\s\d{2}"
     If .Test(cell) Then
       iSer = .Execute(cell)(0)
     Else
       iSer = ""
     End If
 End With
End Function
Изменено: Kuzmich - 21 окт 2020 20:01:03
Страницы: 1
Читают тему (гостей: 1)
Наверх