excel - Incrementing time in excel macro

Question

I need an excel macro to increment a time by a half hour. I will also use the code to modify other cells but I cant get this first part working. The cell lets sat A1 is in Time format ie 12:00:00 PM. Am new to this so am sure the answer is simple.

Thanks in advance

Answer 1

将 A1 提高 30 分钟：

Sub Bump30Minutes()
    With Range("A1")
        .Value = .Value + TimeSerial(0, 30, 0)
    End With
End Sub