简单的Chonometer VBA Excel

Question

我试图做一个简单的计时器，而Excel正在做一些程序。

向用户显示的东西，表明excel在起作用。

我尝试使用时间，日期和计时器功能。但是，这三个选项使Excel在10秒后停止响应。我使用2010版。

这样的代码：

Sub StopWatch()

Dim i As Integer
Dim t1 As Single
Dim t2 As Single

    Application.Calculation = xlCalculationManual

    t1 = Timer
    i = 0
    Do Until i = 60
        t2 = Timer
        If (t2 - t1) >= 1 Then
            t1 = t2
            i = i + 1
            Range("D4").Value = i
        End If
    Loop
End sub

我在网上找到了一些秒表的例程，但我认为它们非常复杂。

是否有某种方法可以使用这三个功能中的任何一个而不会停止Excel？

感谢您的任何建议。

Answer 1

只需保持简单； Application.StatusBar = "Macro running, please wait...."

Answer 2

Sub StopWatch（）昏暗的整数昏暗的t1，t2为单Application.Calculation = xlCalculationManualt1 =计时器我= 0直到我= 60t2 =计时器如果（t2-t1）> = 1然后t1 = t2我=我+ 1Range（“ D4”）。Value = i万一DoEvents环结束子