Как отформатировать нестандартную дату
enii
Дата: Суббота, 13.08.2016, 11:27 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Привет знатокам Excel! Покидайте ссылочками или напишите в комментариях как автоматически (макросом) переформатировать значение ячейки из " 08/14/2016 15:00 " в " 20016-14-8 ? " Пример файла в приложении Спасибо и хорошего дня)
Привет знатокам Excel! Покидайте ссылочками или напишите в комментариях как автоматически (макросом) переформатировать значение ячейки из " 08/14/2016 15:00 " в " 20016-14-8 ? " Пример файла в приложении Спасибо и хорошего дня) enii
Сообщение отредактировал 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)
потом копировать, вставить как значения
можно такую формулу протянутьКод
=ПСТР(E6;7;4) & "-" & ПСТР(E6;1;2)&"-" & ПСТР(E6;4;2)
потом копировать, вставить как значения Udik
К сообщению приложен файл:
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))));"ГГГГ-ММ-ДД")
не, низя!
Код
=ТЕКСТ(ЕСЛИ(ДЛСТР(E2)=10;ДАТА(ЛЕВБ(E2;4);ПСТР(E2;6;2);ПРАВБ(E2;2));ДАТА(ПСТР(E2;7;4);ЛЕВБ(E2;2);ДЕНЬ(ПСТР(E2;9;2))));"ГГГГ-ММ-ДД")
не, низя!Nic70y
Ю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)
, копировать, вставить как значения, установить числовой формат ГГГГ-ММ-ДД
или если нужно получить дату, Код
=ДАТАМЕС(0;СУММ(ПСТР(D6;{1;7};{2;4})*{1;12})-22801)+ПСТР(D6;4;2)
, копировать, вставить как значения, установить числовой формат ГГГГ-ММ-ДД krosav4ig
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]
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
Сообщение отредактировал 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]
[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
Номер мобильного модема (без голосовой связи) 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]
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
Сообщение отредактировал 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
Ответить
Сообщение потом копировать, вставить как значения
Большое спасибо! Все сработало)Автор - enii Дата добавления - 15.08.2016 в 20:12
AlexM
Дата: Понедельник, 15.08.2016, 20:44 |
Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4450
Репутация:
1094
±
Замечаний:
0% ±
Excel 2003
Код
=--(ПСТР(D6;4;3)&ЗАМЕНИТЬ(D6;4;3;))
Формат ячейки ГГГГ-ММ-ДД
Код
=--(ПСТР(D6;4;3)&ЗАМЕНИТЬ(D6;4;3;))
Формат ячейки ГГГГ-ММ-ДДAlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Код
=--(ПСТР(D6;4;3)&ЗАМЕНИТЬ(D6;4;3;))
Формат ячейки ГГГГ-ММ-ДДАвтор - AlexM Дата добавления - 15.08.2016 в 20:44