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

我目前有一个作为倒计时的代码。我不使用计时器功能或只是使用“倒计时”部分来倒计时的原因是因为我希望它能够自我调整（另一个代码可能正在运行，导致其他倒计时方法的计算时间发生变化，并且很长）。每当代码达到零，它就会导致一个错误：应用程序定义的错误或对象定义的错误

 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

---

12:00:20 AM

在您的情况下不是日期数据类型

A11

和

B8

的内容应采用

mm/dd/yyyy

的形式，以便代码通过。你可以增加时间

试试2015年2月27日的

02

，它会成功的

编辑：您可以像下面这行一样利用时间工作：

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

---

这应该解决它：

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

我不知道为什么。。。可以将原始日期放入单元格：

[A1].Value=CDate（现在）

，或者即使这样也不会引发错误：

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

当您的案例中出现错误时，

countOne

的值为：1785年3月5日[以及某个时间值部分]。它的长度相当于-41938。我不知道为什么这会导致一个错误，我也不希望它发生

---

在任何情况下，我建议先将

countOne

强制为

String

数据类型，然后提取该值的时间部分。

哪一行导致错误？抱歉，当它到达：Sheets（“Sheet1”）时会出错。范围（$C$8”）=countOne B8和A11中有什么？您能调试并打印吗？应用程序或对象定义的错误可能表明工作表受到保护。工作表受到保护了吗？我想这是由于他减去日期数据类型的方式造成的。不管怎样，我想我理解。。。是的，看看我的回答我希望我知道为什么原始代码会导致错误。我当然不会期望它：(