Вставка в ячейку текущего времени, округленного кратно 5 мин

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

Вставка в ячейку текущего времени, округленного кратно 5 мин (Макросы/Sub)

MIKHAIL-A-S

Дата: Вторник, 09.12.2014, 13:09 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

Здравствуйте.
Появилась необходимость вставки в активную ячейку текущее время, но округлённое кратно 5 мин.
Я не программист. Нашёл код, который вставляет текущее время в активную ячейку ActiveCell = TimeSerial(Hour(Time), Minute(Time), 0).
Есть решение округления для конкретной ячейки ActiveCell.FormulaR1C1 = "=ROUND(RC[-1]*24/(5/60),0)*((5/60)/24)". Но как соединить это в один макрос, чтобы при нажатии на кнопку в активную ячейку сразу вставлялось округлённое время?

К сообщению приложен файл: 9868499.xls (29.0 Kb)

Ответить

Саня

Дата: Вторник, 09.12.2014, 13:17 | Сообщение № 2

Группа: Друзья

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

Сообщений: 1068

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

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

XL 2016

[vba]

Код

Sub ddd()
     Dim d As Date: d = Time

     With ActiveCell
         .Value = TimeSerial(Hour(d), Minute(d), 0)
         .Offset(, 1).Value = Round(d * 24 / (5 / 60), 0) * ((5 / 60) / 24)
     End With

End Sub

[/vba]