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

我目前有一个充当倒数计时器的代码。 我不使用计时器function或只是使用“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的长。 我不知道为什么这会导致一个错误，我不希望它。

在任何情况下，我build议首先countOne将countOne转换为String数据types，然后抽出该值的时间部分。

Answer 2

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

A11和B8的内容应该以mm/dd/yyyy的forms代码通过。 你可以添加时间。

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

编辑 ：你可以像下面这行一样使用时间：

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