如何在vba excel中执行do事件计时器，同时仍然能够更改工作表中的值？

Question

我有一个定时器，我正在积极地运行一个DoEvents函数。问题是，每隔30秒钟，我就想手动将一些温度值放在我的工作表中。但是，如果在运行事件时执行此操作，则会得到：

运行时错误“1004”：指定的维度对当前图表类型无效。

一些想法:我打算尝试关闭屏幕更新，但这将阻止我看到时间的实时变化。

活动事件是否阻止我在文档中工作？如果是的话，有办法解决这个问题吗？

下面是我的代码正文(我也有一个用于停止和重置计时器的子程序，但我不认为这是相关的)：

Sub START_TIMER()
Dim sh As Worksheet
Set sh = ThisWorkbook.ActiveSheet

sh.Range("AI1").Value = "Start"

If sh.Range("AI2").Value = "" Then
sh.Range("AI2").Value = Now
sh.Range("AL2").Value = Now
End If

x:
VBA.DoEvents

If sh.Range("AI1").Value = "Stop" Then Exit Sub

sh.Range("AI3").Value = Now
sh.Range("AL3").Value = Now

    If sh.Range("AL4").Value > TimeValue("00:00:29") Then
        sh.Range("A17").Interior.Color = vbYellow
        sh.Range("AL2").Value = Now
        Beep

    Else
         sh.Range("A17").Interior.Color = vbWhite

    End If

GoTo x

If sh.Range("AL4").Value = "0:00:30" Then
    sh.Range("AL2").Value = Now
End If

End

End Sub

Answer 1

我想出来了！

如果我只是把一个错误的简历下一次，那么它运行良好，足以满足我的需要。