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循環的控制變量。然後你定義迭代的範圍 - 在你的情況下，我們使用​​屬性中的A1標記的地址。

在循環內部，您的Range變量將指向每個連續的單元格，並且您可以對該單元格的屬性起作用。在這種情況下，您可以更改單元格的Value屬性。

Timeserial返回給定的時間以及小時，分鐘和秒。