excel - 简单的千分表 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()
    Dim i As Integer
    Dim t1, 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
        DoEvents
    Loop
End sub