随时间增加价值（Excel）

【问题标题】：Add to value with time (Excel)随时间增加价值（Excel）
【发布时间】：2014-05-08 01:37:41
【问题描述】：

我想知道是否可以利用时间来增加价值？

例如，我想每分钟向一个单元格添加 100，这将导致单元格的值在该小时结束时增加 6,000。

【问题讨论】：

您希望它每分钟更新一次，还是可以使用公式来计算查看时经过的分钟数？
我希望单元格每分钟更新一次，但我不确定这是否可能？
你可以使用VBA和Application.OnTime

【解决方案1】：

运行 StartTimer 开始递增，StopTimer 停止递增。有问题的单元格是 B9 ：

Public RunWhen As Double
Public Const cRunIntervalSeconds = 60
Public Const cRunWhat = "refresh"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub

Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

Sub refresh()
    Range("B9").Value = Range("B9").Value + 100
    Call StartTimer
End Sub

【讨论】：