Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Извлечь несколько дат из текста, Прописать формулу или макрос для извлечения нескольких (двух) дат из текста
 
Просьба помочь прописать формулу или макрос для извлечения нескольких (двух) дат из текста при наличии нескольких условий:
- даты прописываются в произвольной форме, написание даты может быть - чч.мм.гг, чч.мм.гггг, чч/мм/гггг, _чч.мм.гг_и т.д.
- Дата1 должна быть меньше или ровна Дата2
- Исключать повторяющиеся даты (дубликаты). В тексте помимо даты могут быть другие числовые значения их тоже необходимо исключать.

Спасибо.
 
tsv081,Вот ЭТО Вам будет полезно  
 
tsv081, кроме подчеркиваний у вас там всякого г. куча. То что обнаружил в примере - исключил, Выделяйте данные и в путь...
Код
Sub main()
Dim s, a() As String, rn As Range, c As Range, d1 As Date, d2 As Date, tmp As Date
For Each rn In Selection
  a = Split(Replace(Replace(Replace(Replace(rn, "-", " "), "г", " "), ",", " "), "_", " "))
  d1 = 0: d2 = 0
  For Each s In a 'Split(Replace(Replace(Replace(Replace(rn, "-", " "), "г", " "), ",", " "), "_", " "))
    If IsDate(s) Then
      If d1 = 0 Then
        d1 = s
      ElseIf d2 = 0 Then
        d2 = s
      'Else
      '  Stop
      End If
    End If
  Next
  If d1 > d2 Then tmp = d1: d1 = d2: d2 = tmp
  'Stop
  rn.Offset(, 1) = d1
  rn.Offset(, 2) = d2
Next
End Sub
Изменено: Апострофф - 3 Апр 2018 17:24:36
 
вариант с UDF
 
Подскажите пжлста,а как изменить номер столбца откуда забирать данные для анализа на "L" и результаты должны быть в столбцах "BE" и "BF", а также завязать в цикл чтобы просматривал весь столбец до последнего значения.
Изменено: tsv081 - 4 Апр 2018 15:51:22
 
tsv081, кнопка цитирования — не для ответа. Исправьте.
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
 
tsv081, запомните - кнопка цитирования не для ответа!
Вернитесь в свой #5, и исправьте ситуацию.
Страницы: 1
Читают тему (гостей: 1)
Наверх