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

-3

我有一些数值减少一列， 12:20:00。我想在VBA中添加1小时这个值，所以结果是13:20:00。我还没有试图为此编写任何代码，因为不确定从哪里开始。当前时间值在M3：M69中。所有的价值，我必须增加1小时。VBA：在单元格中添加1小时到时间的值

由于

来源

2015-06-23 Andrew Dunlop

可能的重复http://stackoverflow.com/questions/13938993/run-equation-in-everycell-in-a-column –

甲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循环的控制变量。然后你定义迭代的范围 - 在你的情况下，我们使用属性中的A1标记的地址。

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

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

来源

2015-06-23 12:53:06

对不起 - 我忘了发表评论，并说谢谢你的帮助。这对我有用FYI –

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

回答

相关问题