Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Преобразовать даты в один формат
 
#1
10.05.2021 21:06:37
Здравствуйте, подскажите пожалуйста, как привести даты к одному формату
 
 
 
#2
10.05.2021 21:33:17
l-lisa, если в лоб, в В2 и протянуть
Код
=ЕСЛИ(ЕТЕКСТ(A2);ДАТА(ПРАВСИМВ(A2;4);ЛЕВСИМВ(A2;ПОИСК("/";A2;1)-1);ПСТР(A2;ПОИСК("/";A2;1)+1;5-ПОИСК("/";A2;1)-1));A2)
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
10.05.2021 21:39:06
Mershik, спасибо большое!
 
 
 
#4
10.05.2021 21:41:10
Цитата
как привести даты к одному формату
Какой предпочитаете?
 
 
 
#5
10.05.2021 21:45:48
любой, уже Mershik написал формулу
 
 
 
#6
10.05.2021 21:49:50
UDF
Код
Public Function iDate(cell As Range) As Date
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
  re.Global = True
  re.Pattern = "(\d{1,2})/(\d{1,2})/(\d{4})"
iDate = re.Replace(cell, "$2.$1.$3")
End Function
 
 
 
#7
10.05.2021 21:50:26
l-lisa, еще вариант макросом. Выделяете диапазон дат и запускаете макрос.
Код
Sub mrshkei()
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng
    cell = Format(cell, "DD.MM.YYYY")
Next cell
End Sub
Изменено: Mershik - 10.05.2021 22:00:26
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#8
10.05.2021 21:54:12
Kuzmich, Mershik, спасибо))на любой вкус)
 
 
 
#9
10.05.2021 23:35:13
Цитата
l-lisa написал:
на любой вкус)
ну да, и на том форуме тоже
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
Страницы: 1
Наверх