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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос преобразования даты в текст, и время в текст - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос преобразования даты в текст, и время в текст (Макросы Sub)
Макрос преобразования даты в текст, и время в текст
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]

заранее спасибо!
К сообщению приложен файл: 2134187.xls (30.5 Kb)


Сообщение отредактировал 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]

Ну с НДС и мы чего-то ст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 - Пятница, 17.01.2014, 01:25
 
Ответить
Сообщениеспасибо что ответили, но данный код, преобразует ячейку с текстовым форматов в ячейку с форматом время.
необходимо преобразовать ячейку с форматом время, в ячейку с форматом текст.
приходится сцеплять много строк даты со временем, и время создает некоторую проблемку(.
Автор - romik85
Дата добавления - 17.01.2014 в 00:56
RAN Дата: Пятница, 17.01.2014, 01:45 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ниче не понял.
Зачем что-то в текст превращать? Дата со временем и так сцепляется.
К сообщению приложен файл: 7938623.xls (32.0 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНиче не понял.
Зачем что-то в текст превращать? Дата со временем и так сцепляется.
Автор - RAN
Дата добавления - 17.01.2014 в 01:45
romik85 Дата: Пятница, 17.01.2014, 01:54 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
03.06.2013 0,375023148148148 нет времени, + тоже выход, но хотелось бы макрос


Сообщение отредактировал 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
Цитата romik85, 17.01.2014 в 01:54, в сообщении № 5
но хотелось бы макрос

[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
 
Ответить
Сообщение
Цитата romik85, 17.01.2014 в 01:54, в сообщении № 5
но хотелось бы макрос

[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]

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


Сообщение отредактировал 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
Цитата SkyPro, 17.01.2014 в 02:00, в сообщении № 7
Странная задача..
жаль но нужен макрос(


Сообщение отредактировал romik85 - Пятница, 17.01.2014, 02:20
 
Ответить
Сообщение
Цитата SkyPro, 17.01.2014 в 02:00, в сообщении № 7
Странная задача..
жаль но нужен макрос(
Автор - romik85
Дата добавления - 17.01.2014 в 02:08
Michael_S Дата: Пятница, 17.01.2014, 02:17 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата romik85, 17.01.2014 в 02:03, в сообщении № 8
и еще такой вопрос,
вопрос не понятен... если преобразовывать из двух ячеек в одну - то куда? Если в третью -то зачем макрос, можно формулой... типа такой
Код
=ТЕКСТ(RC1+RC2;"ДД.ММ.ГГГГ  ч:мм:сс")

(между ГГГГ и чч столько пробелов, сколько нужно)


Сообщение отредактировал Michael_S - Пятница, 17.01.2014, 02:21
 
Ответить
Сообщение
Цитата romik85, 17.01.2014 в 02:03, в сообщении № 8
и еще такой вопрос,
вопрос не понятен... если преобразовывать из двух ячеек в одну - то куда? Если в третью -то зачем макрос, можно формулой... типа такой
Код
=ТЕКСТ(RC1+RC2;"ДД.ММ.ГГГГ  ч:мм:сс")

(между ГГГГ и чч столько пробелов, сколько нужно)
Автор - Michael_S
Дата добавления - 17.01.2014 в 02:17
romik85 Дата: Пятница, 17.01.2014, 02:20 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Цитата Michael_S, 17.01.2014 в 02:17, в сообщении № 10
если преобразовывать из двух ячеек в одну - то куда?

"+" дает 1 пробел между данными, нужно 2, а лишние колонки тормозят работу( , затем файлы отдаются на загрузку
 
Ответить
Сообщение
Цитата Michael_S, 17.01.2014 в 02:17, в сообщении № 10
если преобразовывать из двух ячеек в одну - то куда?

"+" дает 1 пробел между данными, нужно 2, а лишние колонки тормозят работу( , затем файлы отдаются на загрузку
Автор - romik85
Дата добавления - 17.01.2014 в 02:20
Michael_S Дата: Пятница, 17.01.2014, 02:23 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
...ставите между ГГГГ и чч столько пробелов, сколько нужно
 
Ответить
Сообщение...ставите между ГГГГ и чч столько пробелов, сколько нужно
Автор - Michael_S
Дата добавления - 17.01.2014 в 02:23
SkyPro Дата: Пятница, 17.01.2014, 02:25 | Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Цитата romik85, 17.01.2014 в 02:08, в сообщении № 9
жаль но нужен макрос(

эм.. а что мешает переделать?

skypro1111@gmail.com
 
Ответить
Сообщение
Цитата romik85, 17.01.2014 в 02:08, в сообщении № 9
жаль но нужен макрос(

эм.. а что мешает переделать?
Автор - SkyPro
Дата добавления - 17.01.2014 в 02:25
romik85 Дата: Пятница, 17.01.2014, 02:29 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Цитата Michael_S, 17.01.2014 в 02:23, в сообщении № 12
ставите между ГГГГ и чч столько пробелов, сколько нужно


ммм, не дает больше 1 пробела, результат такой же, как и =A2+B2


Сообщение отредактировал romik85 - Пятница, 17.01.2014, 02:30
 
Ответить
Сообщение
Цитата Michael_S, 17.01.2014 в 02:23, в сообщении № 12
ставите между ГГГГ и чч столько пробелов, сколько нужно


ммм, не дает больше 1 пробела, результат такой же, как и =A2+B2
Автор - romik85
Дата добавления - 17.01.2014 в 02:29
romik85 Дата: Пятница, 17.01.2014, 02:30 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Цитата SkyPro, 17.01.2014 в 02:25, в сообщении № 13
а что мешает переделать?

знаний не хватает(
поэтому к вам и обратился)


Сообщение отредактировал romik85 - Пятница, 17.01.2014, 02:39
 
Ответить
Сообщение
Цитата SkyPro, 17.01.2014 в 02:25, в сообщении № 13
а что мешает переделать?

знаний не хватает(
поэтому к вам и обратился)
Автор - 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]

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
Дата добавления - 17.01.2014 в 02:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос преобразования даты в текст, и время в текст (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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