[ Регистрация · Вход · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: irakitin2014  
Изъвлечь только даты рождения из ячейки
GlockДата: Понедельник, 02.01.2017, 11:01 | Сообщение # 1
Рядовой
Группа: Проверенные
Сообщений: 8
Репутация: 0
Статус: Offline
Привет, подскажите пожалуйста, как сделать так, чтобы из ячейки А извлекались только даты рождения в ячейку B и чтобы они были в столбик?
Прикрепления: _97-2003.xls (26.5 Kb)
 
PelenaДата: Понедельник, 02.01.2017, 15:21 | Сообщение # 2
Рядовой
Группа: Проверенные
Сообщений: 10
Репутация: 3
Статус: Offline
Здравствуйте.
Вариант с UDF. Макросы должны быть разрешены
Прикрепления: 7608442.xls (34.0 Kb)
 
GlockДата: Понедельник, 02.01.2017, 23:45 | Сообщение # 3
Рядовой
Группа: Проверенные
Сообщений: 8
Репутация: 0
Статус: Offline
Огромное спасибо Pelena, но столкнулся с проблемой, у некоторых сотрудников или их детей неизвестны даты рождения и в ячейке прописывается часть фамилии с инициалами.
Прикрепления: 5603257.jpg (58.5 Kb)
 
PelenaДата: Вторник, 03.01.2017, 09:05 | Сообщение # 4
Рядовой
Группа: Проверенные
Сообщений: 10
Репутация: 3
Статус: Offline
О каких ещё нюансах Вы скромно умолчали?
Попробуйте так
Код
Public Function ДатаРожд(ByVal dr As String) As String
    Dim arr, i&, s$
    On Error Resume Next
    arr = Split(dr, Chr(10))
    For i = 0 To UBound(arr)
        s = ""
        s = CDate(Right(Trim$(arr(i)), 10))
        ДатаРожд = ДатаРожд & s & Chr(10)
    Next i
    ДатаРожд = Left(ДатаРожд, Len(ДатаРожд) - 1)
End Function
 
GlockДата: Вторник, 03.01.2017, 09:36 | Сообщение # 5
Рядовой
Группа: Проверенные
Сообщений: 8
Репутация: 0
Статус: Offline
Pelena, Вы гений, проблем больше нет, спасибо большущее. Чтоб в Вашем доме на Новый год всегда было ведро мандаринов!
 
duzhkovДата: Четверг, 06.06.2019, 09:12 | Сообщение # 6
Рядовой
Группа: Проверенные
Сообщений: 8
Репутация: 0
Статус: Offline
даты
 
  • Страница 1 из 1
  • 1
Поиск: