在 VBA 中为 Excel 倒数计时器键入不匹配错误

Question

我正在尝试使用 VBA 代码在 Excel 中创建一个简单的计时器。但是，我在其中一个应用程序中收到运行时错误类型不匹配。

计时器中包含停止和启动按钮。下面的所有代码。

错误出现在这一行：

Sheet1.Range("B1").Value = Sheet1.Range("B1").Value - TimeValue("00:00:01")

错误是类型不匹配变体\字符串与变体\整数。

代码正是 youtube 视频中显示的内容。在视频中效果很好。

https://www.youtube.com/watch?v=sbJeGG_Xv8M

这里是按钮和例程的代码。

有人可以建议解决方法吗？我会非常感激。

谢谢！

Private Sub CommandButton1_Click()
   starttimer
End Sub

Private Sub CommandButton2_Click()
   stoptimer
End Sub

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

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

Sub stoptimer()
   Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub

Answer 1

Sheet1.Range("B1").Value

返回的值很可能是一个字符串。您需要在视频开始时将单元格的格式更改为自定义格式。

单击单元格，按 Ctrl + 1 -> 自定义格式 -> 写“m:ss”