Объединить время и дату

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить время и дату (Макросы/Sub)

ant6729

Дата: Воскресенье, 04.02.2018, 20:00 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

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)

Ответить

Pelena

Дата: Воскресенье, 04.02.2018, 20:19 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Так попробуйте
[vba]

Код

Cells(i, 3).Value = Cells(i, 1).Value + Cells(i, 2).Value

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

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 записано в формате с числом - из за этого некорректно сцепляет

Ответить

ant6729

Дата: Воскресенье, 04.02.2018, 20:33 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Да, спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединить время и дату (Макросы/Sub)

Страница 1 из 1
1