[ Регистрация · Вход · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: irakitin2014 
Форум » Excel » Формулы » Изъвлечь только даты рождения из ячейки
Изъвлечь только даты рождения из ячейки
GlockДата: Понедельник, 02.01.2017, 11:01 | Сообщение # 1
Рядовой
Группа: Проверенные
Сообщений: 8
Репутация: 0
Статус: Offline
Привет, подскажите пожалуйста, как сделать так, чтобы из ячейки А извлекались только даты рождения в ячейку B и чтобы они были в столбик?
Прикрепления: _97-2003.xls(26Kb)
 
PelenaДата: Понедельник, 02.01.2017, 15:21 | Сообщение # 2
Рядовой
Группа: Проверенные
Сообщений: 7
Репутация: 2
Статус: Offline
Здравствуйте.
Вариант с UDF. Макросы должны быть разрешены
Прикрепления: 7608442.xls(34Kb)
 
GlockДата: Понедельник, 02.01.2017, 23:45 | Сообщение # 3
Рядовой
Группа: Проверенные
Сообщений: 8
Репутация: 0
Статус: Offline
Огромное спасибо Pelena, но столкнулся с проблемой, у некоторых сотрудников или их детей неизвестны даты рождения и в ячейке прописывается часть фамилии с инициалами.
Прикрепления: 5603257.jpg(59Kb)
 
PelenaДата: Вторник, 03.01.2017, 09:05 | Сообщение # 4
Рядовой
Группа: Проверенные
Сообщений: 7
Репутация: 2
Статус: 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, Вы гений, проблем больше нет, спасибо большущее. Чтоб в Вашем доме на Новый год всегда было ведро мандаринов!
 
Форум » Excel » Формулы » Изъвлечь только даты рождения из ячейки
Страница 1 из 11
Поиск: