Question

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

计时器中包括停止和开始按钮。下面的所有代码。

此行中发生错误：

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

错误是类型不匹配的variant \ string与variant \ integer。

该代码正是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”

VBA for Excel倒数计时器中的键入不匹配错误

1 个答案: