Увеличение или уменьшение временной ячейки на 15 минут с помощью кнопок в Excel

Question

У меня есть ячейка времени, которую я хочу увеличить или уменьшить на 15 минут, нажимая кнопку вверх или вниз. Я понял это с помощью обычных чисел, но со временем я не смог сделать это со временем.

Спасибо за любые идеи.

Answer 1

Воспользуйтесь функцией DateAdd

Например, Cells(1,1) имеет вашу метку времени 1:00, а затем добавить 15 минут:

Cells(2,1) = DateAdd("n", 15, Cells(1,1))

Или до минус:

Cells(2,1) = DateAdd("n", -15, Cells(1,1))

"n" говорит Excel вычислить с минутами , и некоторые исследования привели бы вас сюда

Answer 2

Вот пример для ячейки A1 :

Sub IncreaseTime()
    With Range("A1")
        .Value = .Value + TimeSerial(0, 15, 0)
    End With
End Sub

Sub DecreaseTime()
    With Range("A1")
        .Value = .Value - TimeSerial(0, 15, 0)
    End With
End Sub