Question

我目前有一个充当倒数计时器的代码。我没有使用计时器功能或只是使用＆＃34; CountUp＆＃34;倒数的部分是因为我喜欢自我调整（另一个代码可能正在运行，导致其他倒计时方法的计算时间变化而且很长）。只要代码达到零，就会导致错误：应用程序定义或对象定义错误。

 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

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

Answer 2

这应解决它：

 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数据类型，然后拉出该值的 time 部分。

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

2 个答案: