VBA：在单元格中添加1小时到时间值

Question

我有一些列值，例如， 12:20:00我想在VBA中将这个值加1小时，结果将是13:20:00。 我没有尝试为此编写任何代码，因为不知道从哪里开始。 目前时间值为M3：M69。所有的价值观，我都要加1小时。

谢谢

Answer 1

For Each循环用于遍历Range中的所有单元格。

Sub AddOneHour()

    Dim rCell As Range

    For Each rCell In ActiveSheet.Range("M3:M69").Cells
        rCell.Value = rCell.Value + TimeSerial(1, 0, 0)
    Next rCell

End Sub

首先，定义一个Range变量 - 它将成为For Each循环中的控制变量。然后定义要迭代的范围 - 在您的情况下，我们使用Sheet.Range属性中的A1注释地址。

在循环内部，您的Range变量将指向每个连续的单元格，您可以对该单元格的属性进行操作。在这种情况下，您可以更改单元格的Value属性。

Timeserial返回给定的时间以及小时，分钟和秒。