Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как извлеч дату из ячейки масива и вставить в другую ячейку автоматически
 
#1
06.02.2019 12:27:56
Здравствуйте
Есть массив (столбец)  с данными, в ячейки указана зап.часть и дата прихода, нужно эту дату вырезать и вставить в отдельную ячейку, как это сделать?
Есть какая то готовая функция?
Изменено: bengm - 06.02.2019 12:52:09
 
 
 
#2
06.02.2019 12:30:23
bengm, а как вы определяете какую дату ставить!? допустим для Датчик уровня воды S-85.
И даты всегда в конце? и в таком же виде ?!
Изменено: Mershik - 06.02.2019 12:30:46
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
06.02.2019 12:31:26
1.откуда в датчике уровня воды появилась дата 2 строка
2. даты всегда будут в конце текста или ...
3. даты всегда будут иметь структуру ДД.ММ.ГГ или .....
Лень двигатель прогресса, доказано!!!
 
 
 
#4
06.02.2019 12:35:03
нашел вот это = ПРАВСИМВ(... 6) , но она не вырезает дату из исходной ячейки

а если дата по среди текста ?
Изменено: bengm - 06.02.2019 12:45:27
 
 
 
#5
06.02.2019 12:44:48
Цитата
bengm написал:
а если дата по среди текста ?
вам для этого Mershik, и я задали уточняющие вопросы ответь те на 3 поставленных вопроса и замените файл на пример с разнообразными данными
Лень двигатель прогресса, доказано!!!
 
 
 
#6
06.02.2019 12:47:12
bengm, если без уточнения вот такой вариант
Код
=ТЕКСТ(ПСТР(B2;ПОИСК("??.??.??";B2);8);"ДД.ММ.ГГГГ")
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#7
06.02.2019 12:50:04
Пардонте, я не заметил что ответили)))
пример не корректный, я дату сам вырезал из датчика
да, дата всегда в таком виде
да, в конце текста (ячейки)
 
 
 
#8
06.02.2019 12:52:24
bengm, а под вырезать что вы подразумеваете?!  удалить из исходной ячейки и вставить в соседнюю??
или что то другое подразумевается под вырезать!?
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#9
06.02.2019 13:05:49
Цитата
bengm написал:
да, в конце текста (ячейки)
Цитата
bengm написал:
а если дата по среди текста ?
путаетесь в показаниях если нужно разделить на 2 столбца текст и дату можно попытаться подтянуть для решения интсрумент текст по столбцам
Лень двигатель прогресса, доказано!!!
 
 
 
#10
06.02.2019 13:10:38
Цитата
Сергей написал:
путаетесь в показаниях
Да я все сразу объять необъятно, на будущее узнать, просто редко на форумах так оперативно отвечают, спасибо кто откликнулся
пока останавливаюсь на первом варианте, дата в конце текста, Мершик дал решение  НОООООООО  как вырезать дату  из исходной ячейки?
1
=ТЕКСТ(ПСТР(B2;ПОИСК("??.??.??";B2);8);"ДД.ММ.ГГГГ")
 
 
 
#11
06.02.2019 13:13:15
Цитата
Mershik написал: удалить из исходной ячейки и вставить в соседнюю
да именно так
 
 
 
#12
06.02.2019 13:37:09
берем условие если даты в конце применяем формулу ко всему столбцу (смотрим в файле), копируем этот столбец через спец вставку в исходный столбец как значения, выделяем столбец идем на вкладку панели инструментов данные, затем выбираем инструмент "текст по столбцам" далее с разделителями, далее в окошке другой ставим / далее ок и подтверждаем что с заменой все любуемся результатом
Лень двигатель прогресса, доказано!!!
 
 
 
#13
06.02.2019 16:16:26
Код
=-ПРОСМОТР(;-ПРАВБ(B2;{8;10}))
Формат ячейки дата
Работает как формула в сообщении №6
или формат ячейки общий
Код
=ТЕКСТ(-ПРОСМОТР(;-ПРАВБ(B2;{8;10}));"ДД.ММ.ГГГ")
Изменено: АlехМ - 06.02.2019 16:16:54
Алексей М.
 
 
 
#14
06.02.2019 16:31:26
Код
Public Function RegExpExtract(Text As String, Pattern As String, Optional Item As Integer = 1) As String
    On Error GoTo ErrHandl
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = Pattern
    regex.Global = True
    If regex.test(Text) Then
        Set matches = regex.Execute(Text)
        RegExpExtract = matches.Item(Item - 1)
        Exit Function
    End If
ErrHandl:
    RegExpExtract = CVErr(xlErrValue)
End Function

Попробуйте через регулярное выражение.
Код
=RegExpExtract(B2;"\d{2}\.\d{2}\.\d{2}")
Изменено: Umida - 06.02.2019 17:56:08
 
 
 
Страницы: 1
Наверх