Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как отформатировать нестандартную дату - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как отформатировать нестандартную дату (Формулы/Formulas)
Как отформатировать нестандартную дату
enii Дата: Суббота, 13.08.2016, 11:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Привет знатокам Excel!

Покидайте ссылочками или напишите в комментариях как автоматически (макросом)
переформатировать значение ячейки из " 08/14/2016 15:00 " в " 20016-14-8 ? "
Пример файла в приложении

Спасибо и хорошего дня)
К сообщению приложен файл: export.xlsx (12.1 Kb)


Сообщение отредактировал enii - Суббота, 13.08.2016, 11:40
 
Ответить
СообщениеПривет знатокам Excel!

Покидайте ссылочками или напишите в комментариях как автоматически (макросом)
переформатировать значение ячейки из " 08/14/2016 15:00 " в " 20016-14-8 ? "
Пример файла в приложении

Спасибо и хорошего дня)

Автор - enii
Дата добавления - 13.08.2016 в 11:27
Udik Дата: Суббота, 13.08.2016, 13:27 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
можно такую формулу протянуть
Код

=ПСТР(E6;7;4) & "-" & ПСТР(E6;1;2)&"-" & ПСТР(E6;4;2)

потом копировать, вставить как значения
К сообщению приложен файл: 0t.xlsx (12.9 Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщениеможно такую формулу протянуть
Код

=ПСТР(E6;7;4) & "-" & ПСТР(E6;1;2)&"-" & ПСТР(E6;4;2)

потом копировать, вставить как значения

Автор - Udik
Дата добавления - 13.08.2016 в 13:27
Nic70y Дата: Суббота, 13.08.2016, 15:24 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8712
Репутация: 2262 ±
Замечаний: 0% ±

Excel 2010
Код
=ТЕКСТ(ЕСЛИ(ДЛСТР(E2)=10;ДАТА(ЛЕВБ(E2;4);ПСТР(E2;6;2);ПРАВБ(E2;2));ДАТА(ПСТР(E2;7;4);ЛЕВБ(E2;2);ДЕНЬ(ПСТР(E2;9;2))));"ГГГГ-ММ-ДД")
не, низя!


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 13.08.2016, 15:25
 
Ответить
Сообщение
Код
=ТЕКСТ(ЕСЛИ(ДЛСТР(E2)=10;ДАТА(ЛЕВБ(E2;4);ПСТР(E2;6;2);ПРАВБ(E2;2));ДАТА(ПСТР(E2;7;4);ЛЕВБ(E2;2);ДЕНЬ(ПСТР(E2;9;2))));"ГГГГ-ММ-ДД")
не, низя!

Автор - Nic70y
Дата добавления - 13.08.2016 в 15:24
krosav4ig Дата: Суббота, 13.08.2016, 16:03 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
или если нужно получить дату,
Код
=ДАТАМЕС(0;СУММ(ПСТР(D6;{1;7};{2;4})*{1;12})-22801)+ПСТР(D6;4;2)
, копировать, вставить как значения, установить числовой формат ГГГГ-ММ-ДД
К сообщению приложен файл: 3641628.xlsx (14.3 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеили если нужно получить дату,
Код
=ДАТАМЕС(0;СУММ(ПСТР(D6;{1;7};{2;4})*{1;12})-22801)+ПСТР(D6;4;2)
, копировать, вставить как значения, установить числовой формат ГГГГ-ММ-ДД

Автор - krosav4ig
Дата добавления - 13.08.2016 в 16:03
Фомулист Дата: Воскресенье, 14.08.2016, 19:36 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 397
Репутация: 9 ±
Замечаний: 80% ±

Excel 2003


Терпение и труд всё перетрут!
 
Ответить
СообщениеКРОСС

Автор - Фомулист
Дата добавления - 14.08.2016 в 19:36
sv2014 Дата: Воскресенье, 14.08.2016, 22:13 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
enii, добрый вечер,вариант функции uuu в столбце M

[vba]
Код
Function uuu$(t$)
    Dim t1$, t2$,t3$
With CreateObject("VBScript.RegExp"): .Pattern = "\d{4}"
    t1 = .Execute(t)(0): .Pattern = "/\d{2}(?=/)"
   t2 = Mid(.Execute(t)(0), 2): .Pattern = "\d+"
t3 = .Execute(t)(0)
   .Pattern = "^0(\d)": t3 = .Replace(t3, "$1")
uuu = t1 & "-" & t2 & "-" & t3
End With
End Function
[/vba]
К сообщению приложен файл: export_14_08_20.xls (42.5 Kb)


Сообщение отредактировал sv2014 - Воскресенье, 14.08.2016, 22:31
 
Ответить
Сообщениеenii, добрый вечер,вариант функции uuu в столбце M

[vba]
Код
Function uuu$(t$)
    Dim t1$, t2$,t3$
With CreateObject("VBScript.RegExp"): .Pattern = "\d{4}"
    t1 = .Execute(t)(0): .Pattern = "/\d{2}(?=/)"
   t2 = Mid(.Execute(t)(0), 2): .Pattern = "\d+"
t3 = .Execute(t)(0)
   .Pattern = "^0(\d)": t3 = .Replace(t3, "$1")
uuu = t1 & "-" & t2 & "-" & t3
End With
End Function
[/vba]

Автор - sv2014
Дата добавления - 14.08.2016 в 22:13
AlexM Дата: Воскресенье, 14.08.2016, 23:19 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4450
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Function enii(Stroka As String) As String
Dim a
a = Split(Stroka, "/")
enii = Left(a(2), 4) & "-" & a(1) & "-" & a(0)
End Function
[/vba]



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение[vba]
Код
Function enii(Stroka As String) As String
Dim a
a = Split(Stroka, "/")
enii = Left(a(2), 4) & "-" & a(1) & "-" & a(0)
End Function
[/vba]

Автор - AlexM
Дата добавления - 14.08.2016 в 23:19
sv2014 Дата: Понедельник, 15.08.2016, 09:24 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
enii, не нашел,как Вам надо ,если с ведущими нулями, то uuu2, столбец O,-иначе столбец M

[vba]
Код
Function uuu2$(t$)
    Dim t1$, t2$
With CreateObject("VBScript.RegExp"): .Pattern = "\d{4}"
    t1 = .Execute(t)(0): .Pattern = "/\d{2}(?=/)"
   t2 = Mid(.Execute(t)(0), 2): .Pattern = "\d+"
uuu2 = t1 & "-" & t2 & "-" & .Execute(t)(0)
End With
End Function
[/vba]
К сообщению приложен файл: export_15_08_20.xls (46.5 Kb)


Сообщение отредактировал sv2014 - Понедельник, 15.08.2016, 09:24
 
Ответить
Сообщениеenii, не нашел,как Вам надо ,если с ведущими нулями, то uuu2, столбец O,-иначе столбец M

[vba]
Код
Function uuu2$(t$)
    Dim t1$, t2$
With CreateObject("VBScript.RegExp"): .Pattern = "\d{4}"
    t1 = .Execute(t)(0): .Pattern = "/\d{2}(?=/)"
   t2 = Mid(.Execute(t)(0), 2): .Pattern = "\d+"
uuu2 = t1 & "-" & t2 & "-" & .Execute(t)(0)
End With
End Function
[/vba]

Автор - sv2014
Дата добавления - 15.08.2016 в 09:24
enii Дата: Понедельник, 15.08.2016, 20:12 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
потом копировать, вставить как значения


Большое спасибо! Все сработало)
 
Ответить
Сообщение
потом копировать, вставить как значения


Большое спасибо! Все сработало)

Автор - enii
Дата добавления - 15.08.2016 в 20:12
AlexM Дата: Понедельник, 15.08.2016, 20:44 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4450
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Код
=--(ПСТР(D6;4;3)&ЗАМЕНИТЬ(D6;4;3;))
Формат ячейки ГГГГ-ММ-ДД



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
Код
=--(ПСТР(D6;4;3)&ЗАМЕНИТЬ(D6;4;3;))
Формат ячейки ГГГГ-ММ-ДД

Автор - AlexM
Дата добавления - 15.08.2016 в 20:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как отформатировать нестандартную дату (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!