МАКРОС из текса в дату и время

Пользователь

Сообщений: 42 Регистрация: 29.11.2008

23.07.2009 15:42:58

Здравствуйте, помогите, пожалуйста, написать макрос преобразующие данные значениия:
20010416 84000
в дату и время.

На этот вопрос мне уже давали ответ - только он оказался среди удаленных - а воспользоваться так и не успел.

Смотрите прикрепленный файл

Прикрепленные файлы

post_52396.xls (14.5 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

23.07.2009 16:18:19

Вот Вам 2 варианта макросов:
Sub test()
Dim cell As Range, ra As Range: Application.ScreenUpdating = False
[g:h].ClearContents
Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
For Each cell In ra.Cells
cell.Offset(, 6) = DateSerial(Left(cell, 4), Mid(cell, 5, 2), Mid(cell, 7, 2))
t = Format(cell.Next, "000000")
cell.Offset(, 7) = TimeSerial(Mid(t, 1, 2), Mid(t, 3, 2), Mid(t, 5, 2))
Next cell
End Sub

Sub test2()
Dim cell As Range, ra As Range: Application.ScreenUpdating = False
[g:h].ClearContents
Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
For Each cell In ra.Cells
cell.Offset(, 6) = Format(cell, "0000/00/00")
cell.Offset(, 7) = Format(cell.Next, "00:00:00")
Next cell
End Sub

Пример в файле по ссылке:

http://excelvba.ru/XL_Files/Ravil.zip

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Равиль Пользователь Сообщений: 42 Регистрация: 29.11.2008	#3 23.07.2009 16:23:04 Спасибо! попробую применить)

Равиль Пользователь Сообщений: 42 Регистрация: 29.11.2008	#4 23.07.2009 16:47:33 Нужно, чтобы время и даты формировались не в отдельном столбце, а в том же. Для наглядности смотрите в файле задачу, которую мне нужно решить Прикрепленные файлы post_52422.xls (18.5 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

23.07.2009 17:59:22

А нафига было в примере указывать, что результат нужен в других столбцах?

Самостоятельно не могли подредактировать макрос?
А надо то было изменить совсем чуть-чуть:

Sub test2()
Dim cell As Range, ra As Range: Application.ScreenUpdating = False
[g:h].ClearContents
Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
For Each cell In ra.Cells
cell.Offset(, 0) = Format(cell, "0000/00/00")
cell.Offset(, 1) = Format(cell.Next, "00:00:00")
Next cell
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Равиль Пользователь Сообщений: 42 Регистрация: 29.11.2008	#6 23.07.2009 22:34:53 Ладно, не ругайтесь) спасибо за помощь)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 23.07.2009 22:55:42 Равиль, будьте корректнее: Вам ведь страраются помочь - не усложняйте жизнь помощникам...

Читают тему