达到0时Excel倒计时代码错误

Question

我目前有一个代码充当倒计时器。我之所以不使用计时器函数，或者只是使用"CountUp“部分来倒计时，是因为我希望它能够自我调整(另一段代码可能正在运行，导致其他倒计时方法的计算时间发生变化，而且很长)。每当代码达到零时，就会导致错误:应用程序定义的错误或对象定义的错误。

 Sub CountupONE()
 Dim CountDownONE As Date

CountDownONE = Now + TimeValue("00:00:01")

Application.OnTime CountDownONE, "RealcountONE"
End Sub


Sub RealcountONE()
 Dim countONE As Date
 Dim counterONE As Date

 counterONE = Now - Sheets("Sheet1").Range("$A$11").Value
 countONE = Sheets("Sheet1").Range("$B$8").Value - counterONE
 'MsgBox countONE
 Sheets("Sheet1").Range("$C$8") = countONE
 'Sheets("Sheet1").[C8] = TimeValue("12:00:00 AM")

If countONE = TimeValue("12:00:00 AM") Then

Beep
[C11].Value = Now
[C11].NumberFormat = "h:mm:ss AM/PM"
Application.Speech.Speak ("Platen one is done")
Call BeginGraphing

Exit Sub

End If

Call CountupONE
End Sub

Answer 1

这应能解决以下问题：

 Sheets("Sheet1").Range("$C$8").Value = TimeValue(CStr(countONE))

我不知道为什么..。可以将原始Date放入单元格：[A1].Value = CDate(Now)，甚至不会引发错误：

countOne = Now()
Range("A1").Value = countOne

当在您的情况下出现错误时，countOne的值是:1785年3月5日和一些时间值部分。这个值很长，相当于-41938。我不知道这为什么会导致错误，我也不会期望它。

在任何情况下，我建议先将countOne强制为String数据类型，然后提取该值的时间部分。

Answer 2

在您的情况下，12:00:20 AM不是date data type。

A11和B8的内容应该以mm/dd/yyyy的形式传递。你可以加点时间。

试试02/27/2015，它就会通过！

编辑：您可以像下面这样处理时间：

If Format(countONE, "hh:mm:ss AM/PM") = "12:00:00 AM"
'do here
End if