使用 VBA (excel) 在 excel 2010 中创建倒数计时器

Question

我正在使用 Excel 2010，并想在 Excel 中创建一个倒数计时器。代码将通过使用带有宏的按钮来启动和停止。按下“开始”按钮时会出现问题。上面的代码使用 Cell "B1" 作为输入点，因为我只是想让它工作，但每次我尝试时，它总是说： “无法运行宏。此工作簿中可能没有该宏，或者所有宏都可能被禁用”。

是的，我在把它放在这里之前启用了所有宏。我希望能够接受用户输入，并使其成为计时器开始的时间，而不仅仅是使用单元格“B1”。

'Macro for Starting the timer (attached to the start button)
Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "nextTick"
End Sub

'Macro for next second
Sub nextTick()
Sheet1.Range("B1").Value = Sheet1.Range("B1").Value - TimeValue("00:00:01")
startTimer
End Sub

'Macro for stopping the timer (attached to the end button)
Sub stopTimer()
Application.OnTime Now - TimeValue("00:00:01"), "nextTick", , False
End Sub

Answer 1

我对您的代码稍作修改，并将其放入标准模块中：

Public Future As Double

Sub StartTimer()
    Future = Now + TimeSerial(0, 0, 1)
    Application.OnTime earliestTime:=Future, procedure:="nextTime", _
         schedule:=True
End Sub

Sub nextTime()
    Sheet1.Range("B1").Value = Sheet1.Range("B1").Value - TimeValue("00:00:01")
    StartTimer
End Sub

Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliestTime:=Future, _
       procedure:="nextTime", schedule:=False
End Sub

StartTimer() 和 StopTimer() 都运行良好。