Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Преобразовать текст в дату, Текст в дату
 
#1
04.09.2014 11:44:26
Подскажите как сделать по столбцу разбросаны  даты в виде текста , с ворда копировал , как в дату преобразовать формулой ? ДАТАЗНАЧ () не работает почему-то . Спасибо
 
 
 
#2
04.09.2014 11:47:39
Вместо "февраля" поставьте "фев" - и будет Вам счастье (и формат ячейки сделайте "дата"). Вся проблема связана с региональными настройками.
There is no knowledge that is not power
 
 
 
#3
04.09.2014 11:51:31
так у меня помимо "февраля " еще 12 месяцев.....
 
 
 
#4
04.09.2014 11:53:13
Ctrl+H в помощь!  :D
There is no knowledge that is not power
 
 
 
#5
04.09.2014 11:57:41
Спасибо за помощь хороший вариант ...12 поисков с заменой создать
 
 
 
#6
04.09.2014 11:58:36
можно так попробовать прописать все 12 месяцев

Код
 =ДАТАЗНАЧ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(C1;"марта";"мар");"февраля";"фев");"января";"янв"))
Лень двигатель прогресса, доказано!!!
 
 
 
#7
04.09.2014 12:04:41
А Просмотр() не получится?
 
 
 
#8
04.09.2014 12:04:47
Код
Sub замена()

    Columns("C:C").Select
    Selection.Replace What:="Января", Replacement:="Янв", LookAt:=xlPart, _
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
     ReplaceFormat:=False
    Selection.Replace What:="Февраля", Replacement:="фев", LookAt:=xlPart, _
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
     ReplaceFormat:=False
    Selection.Replace What:="марта", Replacement:="мар", LookAt:=xlPart, _
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
     ReplaceFormat:=False 
End Sub

Или так опять же добавив остальные месяцы
Лень двигатель прогресса, доказано!!!
 
 
 
#9
04.09.2014 12:12:36
Или так:
Код
Sub Repl()
    Dim dic As Object, vMonth
    Set dic = CreateObject("Scripting.Dictionary")
    With dic
        .Add "январь", "янв"
        .Add "февраль", "фев"
        'и так далее
    End With
    For Each vMonth In dic.Keys()
        Cells.Replace vMonth, dic(vMonth)
    Next
End Sub
There is no knowledge that is not power
 
 
 
#10
04.09.2014 12:16:21
Код
=ДАТАЗНАЧ(ПОДСТАВИТЬ(ЛЕВСИМВ(C1;ПОИСК(" ";C1)+3)&ПРАВСИМВ(C1;5);"мая";"май"))
 
 
 
#11
04.09.2014 12:23:46
=ДАТАЗНАЧ(ПСТР(C1;1;2)&ПСТР(C1;3;4)&ПРАВСИМВ(C1;4))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#12
04.09.2014 12:33:50
Код
=ЗАМЕНИТЬ(C1;ПОИСК(" ";C1)+4;12;" "&ПРАВСИМВ(C1;4))
Изменено: V - 04.09.2014 12:36:06
 
 
 
#13
04.09.2014 12:46:37
Формула Владимира ошибается с "1 июня 2012", а также не работает с маем
Формула V не преобразовывает в дату, но даже если добавить ДАТАЗНАЧ или другое преобразование в дату ("--", *1 и т.п.), то с маем тоже не работает
 
 
 
#14
04.09.2014 12:57:55
Спасибо огрмное всем использовал формулу Владимира , бог с ни с "маем"  ручками можно
 
 
 
#15
04.09.2014 13:02:51
Цитата
Микки пишет: бог с ни с "маем" ручками можно
А что с 1 июня 2012 или со 2 июля 2014?
 
 
 
#16
04.09.2014 13:27:54
Да, Михаил, Вашу формулу увидел и понял про "май", а про июнь, июль вообще не вспомнил. :D
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
Страницы: 1
Наверх