Макрос преобразования даты в текст, и время в текст
romik85
Дата: Четверг, 16.01.2014, 09:36 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Добрый день, помогите плз с макросом. данный макрос преобразует только дату в текстовое значение, но необходимо преобразовать и время в текстовое значение, но без добавления 0 в начало значения 9:00:01, т.е не должно быть после преобразования 09:00:01 [vba]Код
Sub Текст() For Each cell In Selection cell.Formula = cell.Text Next cell MsgBox "готов" End Sub
[/vba] заранее спасибо!
Добрый день, помогите плз с макросом. данный макрос преобразует только дату в текстовое значение, но необходимо преобразовать и время в текстовое значение, но без добавления 0 в начало значения 9:00:01, т.е не должно быть после преобразования 09:00:01 [vba]Код
Sub Текст() For Each cell In Selection cell.Formula = cell.Text Next cell MsgBox "готов" End Sub
[/vba] заранее спасибо! romik85
Сообщение отредактировал romik85 - Пятница, 17.01.2014, 01:31
Ответить
Сообщение Добрый день, помогите плз с макросом. данный макрос преобразует только дату в текстовое значение, но необходимо преобразовать и время в текстовое значение, но без добавления 0 в начало значения 9:00:01, т.е не должно быть после преобразования 09:00:01 [vba]Код
Sub Текст() For Each cell In Selection cell.Formula = cell.Text Next cell MsgBox "готов" End Sub
[/vba] заранее спасибо! Автор - romik85 Дата добавления - 16.01.2014 в 09:36
KuklP
Дата: Четверг, 16.01.2014, 13:50 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
[vba]Код
cell.value = format(cell,"h:mm:ss")
[/vba]
[vba]Код
cell.value = format(cell,"h:mm:ss")
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение [vba]Код
cell.value = format(cell,"h:mm:ss")
[/vba] Автор - KuklP Дата добавления - 16.01.2014 в 13:50
romik85
Дата: Пятница, 17.01.2014, 00:56 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
спасибо что ответили, но данный код, преобразует ячейку с текстовым форматов в ячейку с форматом время. необходимо преобразовать ячейку с форматом время, в ячейку с форматом текст. приходится сцеплять много строк даты со временем, и время создает некоторую проблемку(.
спасибо что ответили, но данный код, преобразует ячейку с текстовым форматов в ячейку с форматом время. необходимо преобразовать ячейку с форматом время, в ячейку с форматом текст. приходится сцеплять много строк даты со временем, и время создает некоторую проблемку(. romik85
Сообщение отредактировал romik85 - Пятница, 17.01.2014, 01:25
Ответить
Сообщение спасибо что ответили, но данный код, преобразует ячейку с текстовым форматов в ячейку с форматом время. необходимо преобразовать ячейку с форматом время, в ячейку с форматом текст. приходится сцеплять много строк даты со временем, и время создает некоторую проблемку(. Автор - romik85 Дата добавления - 17.01.2014 в 00:56
RAN
Дата: Пятница, 17.01.2014, 01:45 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Ниче не понял. Зачем что-то в текст превращать? Дата со временем и так сцепляется.
Ниче не понял. Зачем что-то в текст превращать? Дата со временем и так сцепляется. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Ниче не понял. Зачем что-то в текст превращать? Дата со временем и так сцепляется. Автор - RAN Дата добавления - 17.01.2014 в 01:45
romik85
Дата: Пятница, 17.01.2014, 01:54 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
03.06.2013 0,375023148148148 нет времени, + тоже выход, но хотелось бы макрос
03.06.2013 0,375023148148148 нет времени, + тоже выход, но хотелось бы макрос romik85
Сообщение отредактировал romik85 - Пятница, 17.01.2014, 01:55
Ответить
Сообщение 03.06.2013 0,375023148148148 нет времени, + тоже выход, но хотелось бы макрос Автор - romik85 Дата добавления - 17.01.2014 в 01:54
Michael_S
Дата: Пятница, 17.01.2014, 01:57 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
[vba]Код
Sub Текст() Dim cell, a$ For Each cell In Selection a = Format(cell, "h:mm:ss") cell.NumberFormat = "@" cell.Value = a Next cell MsgBox "готов" End S
[/vba]ub
[vba]Код
Sub Текст() Dim cell, a$ For Each cell In Selection a = Format(cell, "h:mm:ss") cell.NumberFormat = "@" cell.Value = a Next cell MsgBox "готов" End S
[/vba]ub Michael_S
Ответить
Сообщение [vba]Код
Sub Текст() Dim cell, a$ For Each cell In Selection a = Format(cell, "h:mm:ss") cell.NumberFormat = "@" cell.Value = a Next cell MsgBox "готов" End S
[/vba]ub Автор - Michael_S Дата добавления - 17.01.2014 в 01:57
SkyPro
Дата: Пятница, 17.01.2014, 02:00 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация:
255
±
Замечаний:
0% ±
2010
Странная задача.. [vba]Код
Function DateTimeToText$(dateRange As Range) Dim rCell As Range 'application.Volatile 'раскомментировать, если нужен автопересчет функции. For Each rCell In dateRange If rCell.Text <> "" Then DateTimeToText = DateTimeToText & rCell.Text & " " End If Next DateTimeToText = Left(DateTimeToText, Len(DateTimeToText) - 1) End Function
[/vba]
Странная задача.. [vba]Код
Function DateTimeToText$(dateRange As Range) Dim rCell As Range 'application.Volatile 'раскомментировать, если нужен автопересчет функции. For Each rCell In dateRange If rCell.Text <> "" Then DateTimeToText = DateTimeToText & rCell.Text & " " End If Next DateTimeToText = Left(DateTimeToText, Len(DateTimeToText) - 1) End Function
[/vba] SkyPro
skypro1111@gmail.com
Ответить
Сообщение Странная задача.. [vba]Код
Function DateTimeToText$(dateRange As Range) Dim rCell As Range 'application.Volatile 'раскомментировать, если нужен автопересчет функции. For Each rCell In dateRange If rCell.Text <> "" Then DateTimeToText = DateTimeToText & rCell.Text & " " End If Next DateTimeToText = Left(DateTimeToText, Len(DateTimeToText) - 1) End Function
[/vba] Автор - SkyPro Дата добавления - 17.01.2014 в 02:00
romik85
Дата: Пятница, 17.01.2014, 02:03 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
спасибо работает, и еще такой вопрос, можно ли объединить в макросе преобразовании даты и времени, в разных ячейках, колонках в текст, а то дата получается 0:00:00
спасибо работает, и еще такой вопрос, можно ли объединить в макросе преобразовании даты и времени, в разных ячейках, колонках в текст, а то дата получается 0:00:00 romik85
Сообщение отредактировал romik85 - Пятница, 17.01.2014, 02:07
Ответить
Сообщение спасибо работает, и еще такой вопрос, можно ли объединить в макросе преобразовании даты и времени, в разных ячейках, колонках в текст, а то дата получается 0:00:00 Автор - romik85 Дата добавления - 17.01.2014 в 02:03
romik85
Дата: Пятница, 17.01.2014, 02:08 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
Сообщение отредактировал romik85 - Пятница, 17.01.2014, 02:20
Ответить
Сообщение жаль но нужен макрос( Автор - romik85 Дата добавления - 17.01.2014 в 02:08
Michael_S
Дата: Пятница, 17.01.2014, 02:17 |
Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
вопрос не понятен... если преобразовывать из двух ячеек в одну - то куда? Если в третью -то зачем макрос, можно формулой... типа такой Код
=ТЕКСТ(RC1+RC2;"ДД.ММ.ГГГГ ч:мм:сс")
(между ГГГГ и чч столько пробелов, сколько нужно)
вопрос не понятен... если преобразовывать из двух ячеек в одну - то куда? Если в третью -то зачем макрос, можно формулой... типа такой Код
=ТЕКСТ(RC1+RC2;"ДД.ММ.ГГГГ ч:мм:сс")
(между ГГГГ и чч столько пробелов, сколько нужно) Michael_S
Сообщение отредактировал Michael_S - Пятница, 17.01.2014, 02:21
Ответить
Сообщение вопрос не понятен... если преобразовывать из двух ячеек в одну - то куда? Если в третью -то зачем макрос, можно формулой... типа такой Код
=ТЕКСТ(RC1+RC2;"ДД.ММ.ГГГГ ч:мм:сс")
(между ГГГГ и чч столько пробелов, сколько нужно) Автор - Michael_S Дата добавления - 17.01.2014 в 02:17
romik85
Дата: Пятница, 17.01.2014, 02:20 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
если преобразовывать из двух ячеек в одну - то куда?
"+" дает 1 пробел между данными, нужно 2, а лишние колонки тормозят работу( , затем файлы отдаются на загрузку
если преобразовывать из двух ячеек в одну - то куда?
"+" дает 1 пробел между данными, нужно 2, а лишние колонки тормозят работу( , затем файлы отдаются на загрузкуromik85
Ответить
Сообщение если преобразовывать из двух ячеек в одну - то куда?
"+" дает 1 пробел между данными, нужно 2, а лишние колонки тормозят работу( , затем файлы отдаются на загрузкуАвтор - romik85 Дата добавления - 17.01.2014 в 02:20
Michael_S
Дата: Пятница, 17.01.2014, 02:23 |
Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
...ставите между ГГГГ и чч столько пробелов, сколько нужно
...ставите между ГГГГ и чч столько пробелов, сколько нужно Michael_S
Ответить
Сообщение ...ставите между ГГГГ и чч столько пробелов, сколько нужно Автор - Michael_S Дата добавления - 17.01.2014 в 02:23
SkyPro
Дата: Пятница, 17.01.2014, 02:25 |
Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация:
255
±
Замечаний:
0% ±
2010
эм.. а что мешает переделать?
эм.. а что мешает переделать? SkyPro
skypro1111@gmail.com
Ответить
Сообщение эм.. а что мешает переделать? Автор - SkyPro Дата добавления - 17.01.2014 в 02:25
romik85
Дата: Пятница, 17.01.2014, 02:29 |
Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
ставите между ГГГГ и чч столько пробелов, сколько нужно
ммм, не дает больше 1 пробела, результат такой же, как и =A2+B2
ставите между ГГГГ и чч столько пробелов, сколько нужно
ммм, не дает больше 1 пробела, результат такой же, как и =A2+B2romik85
Сообщение отредактировал romik85 - Пятница, 17.01.2014, 02:30
Ответить
Сообщение ставите между ГГГГ и чч столько пробелов, сколько нужно
ммм, не дает больше 1 пробела, результат такой же, как и =A2+B2Автор - romik85 Дата добавления - 17.01.2014 в 02:29
romik85
Дата: Пятница, 17.01.2014, 02:30 |
Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
знаний не хватает( поэтому к вам и обратился)
знаний не хватает( поэтому к вам и обратился) romik85
Сообщение отредактировал romik85 - Пятница, 17.01.2014, 02:39
Ответить
Сообщение знаний не хватает( поэтому к вам и обратился) Автор - romik85 Дата добавления - 17.01.2014 в 02:30
SkyPro
Дата: Пятница, 17.01.2014, 02:44 |
Сообщение № 16
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация:
255
±
Замечаний:
0% ±
2010
[vba]Код
Sub datetext() Dim rCell As Range, t$ For Each rCell In Selection t = rCell.Text rCell.NumberFormat = "@" rCell.Formula = t Next End Sub
[/vba]
[vba]Код
Sub datetext() Dim rCell As Range, t$ For Each rCell In Selection t = rCell.Text rCell.NumberFormat = "@" rCell.Formula = t Next End Sub
[/vba] SkyPro
skypro1111@gmail.com
Ответить
Сообщение [vba]Код
Sub datetext() Dim rCell As Range, t$ For Each rCell In Selection t = rCell.Text rCell.NumberFormat = "@" rCell.Formula = t Next End Sub
[/vba] Автор - SkyPro Дата добавления - 17.01.2014 в 02:44
romik85
Дата: Пятница, 17.01.2014, 02:49 |
Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
20% ±
Excel 2013
SkyPro , то что надо, спасибо) ++++ тему прошу закрыть)
SkyPro , то что надо, спасибо) ++++ тему прошу закрыть)romik85
Ответить
Сообщение SkyPro , то что надо, спасибо) ++++ тему прошу закрыть)Автор - romik85 Дата добавления - 17.01.2014 в 02:49