随时间添加到值（Excel）

我想知道是否有可能利用时间增加价值

---

例如，我希望每分钟向一个单元格中添加100，这将导致该单元格的值在一小时结束时增加6000。

运行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

---

你想每分钟更新一次吗？或者你可以用公式计算查看时经过的分钟数吗？我希望单元格每分钟更新一次，但我不确定这是否可行？你可以使用VBA和

应用程序。OnTime