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

Вход

Регистрация

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

 

= Мир MS Excel/Объединить время и дату - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить время и дату (Макросы/Sub)
Объединить время и дату
ant6729 Дата: Воскресенье, 04.02.2018, 20:00 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 469
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Всем привет, еще одна тема о дате

Не могу понять, как объединить их в столбец С

Пробую

[vba]
Код
Sub plus()
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
Cells(i, 3).Value = Cells(i, 1).Value & " " & Cells(i, 2).Value
Next i
End Sub
[/vba]
Но объединяет только дату, а время цифрует...

Пробовал со временем
[vba]
Код
Sub deson()

Dim sum1 As String, ThisCell As Range
lr = Cells(Rows.Count, 2).End(xlUp).Row
Set example = Range("B1:B" & lr)

For Each Cell In example
sum1 = Format(Cell, "h:mm:ss")

MsgBox sum1

Next Cell

End Sub
[/vba]

Подскажите, пожалуйста, как брать время и, объединив его с датой, закинуть в С.
К сообщению приложен файл: 6083313.xlsx(8.3 Kb)
 
Ответить
СообщениеВсем привет, еще одна тема о дате

Не могу понять, как объединить их в столбец С

Пробую

[vba]
Код
Sub plus()
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
Cells(i, 3).Value = Cells(i, 1).Value & " " & Cells(i, 2).Value
Next i
End Sub
[/vba]
Но объединяет только дату, а время цифрует...

Пробовал со временем
[vba]
Код
Sub deson()

Dim sum1 As String, ThisCell As Range
lr = Cells(Rows.Count, 2).End(xlUp).Row
Set example = Range("B1:B" & lr)

For Each Cell In example
sum1 = Format(Cell, "h:mm:ss")

MsgBox sum1

Next Cell

End Sub
[/vba]

Подскажите, пожалуйста, как брать время и, объединив его с датой, закинуть в С.

Автор - ant6729
Дата добавления - 04.02.2018 в 20:00
Pelena Дата: Воскресенье, 04.02.2018, 20:19 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12907
Репутация: 2843 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Так попробуйте
[vba]
Код
Cells(i, 3).Value = Cells(i, 1).Value + Cells(i, 2).Value
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак попробуйте
[vba]
Код
Cells(i, 3).Value = Cells(i, 1).Value + Cells(i, 2).Value
[/vba]

Автор - Pelena
Дата добавления - 04.02.2018 в 20:19
fan-vba Дата: Воскресенье, 04.02.2018, 20:28 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 10 ±
Замечаний: 0% ±

Excel 2007
как вариант
[vba]
Код
Sub plus()
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
Cells(i, 3) = Format(Cells(i, 1) + Cells(i, 2), "dd.mm.yy h:mm:ss")
Next i
End Sub
[/vba]
только будьте внимательны, т.к. во втором столбце у вас время, начиная с ячейки B6 записано в формате с числом - из за этого некорректно сцепляет
 
Ответить
Сообщениекак вариант
[vba]
Код
Sub plus()
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
Cells(i, 3) = Format(Cells(i, 1) + Cells(i, 2), "dd.mm.yy h:mm:ss")
Next i
End Sub
[/vba]
только будьте внимательны, т.к. во втором столбце у вас время, начиная с ячейки B6 записано в формате с числом - из за этого некорректно сцепляет

Автор - fan-vba
Дата добавления - 04.02.2018 в 20:28
ant6729 Дата: Воскресенье, 04.02.2018, 20:33 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 469
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Да, спасибо!
 
Ответить
СообщениеДа, спасибо!

Автор - ant6729
Дата добавления - 04.02.2018 в 20:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить время и дату (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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