Question

假设单元格A1的值为1.我希望此单元格每秒递增一次。所以在1秒后，单元格A1现在具有值2.两秒后，值为3等，等等。

我该如何设置？

Answer 1

你可以用这个：

=ROUND(NOW()*24*3600,0)-3522649665

其中3522649665只是一个任意偏移量。您可能必须使用 F9 或VBA命令Sheet1.Range("A1").Calculate强制重新计算（假设您将公式放在单元格A1中）。

Answer 2

以下是使用VBA执行此操作的方法：

Sub CellTimer()

    Sheet1.Range("A2").Value = 1
    Do
        Application.Wait (Now() + TimeValue("0:00:01"))
        Sheet1.Range("A2").Value = Sheet1.Range("A2").Value + 1
    Loop

End Sub

这有它的怪癖，但我不知道你将使用它，所以我不知道，也许这将适合你的目的。

Answer 3

这适合我每秒重新计算：

Sub CalculateNow()
    'Your code here
    'i.e.
    Calculate 'This recalculates all your cell values


    Application.OnTime Now + TimeValue("00:00:01"), "CalculateNow"
End Sub

定期自动增加excel单元格值

3 个答案: