Question

excel倒计时功能

想在excel中加一个倒计时的功能，就是在我开始输入时开始倒计时，时间到的时候能跳出对话框提醒我，或者让我停止输入。

Answer 1

1. 按alt+F11键，打开VBA窗口，双击sheet1，将下方的代码复制到打开的窗口中；

2. Sub 倒计时()
           [a1].NumberFormatLocal = "h:mm:ss;@"
           [a1] = [a1] - 1 / 3600 / 24
       If [a1] < 1 / 60 / 24 Then
           [a1].Font.ColorIndex = 3
       Else
           [a1].Font.ColorIndex = 5
       End If
       If [a1] > 0 Then
            Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.倒计时", , True
       Else
           [a1] = "00:00:00"
       End If
   End Sub

3. 在A1单元格输入倒计时开始的小时数，如3个小时“3:00”格式自定；

4. 点击“开发工具”-“插入”-“表单控价”，插入一个按钮，打上想要的文字；

   

5. 在按钮上右键，指定宏，选择刚才编辑的宏，确定，

   

6. 点击按钮，就开始计时了，低于1分钟后，字体会变成红色。

Answer 2

Answer 3

把以下代码复制到thisworkbook里面，以下是以5秒为例，改成你自己的时间就可以。

当然也可以用窗体来做，方法有好几种，以下是直接用msgbox来提示：

如果需要功能更全的提醒功能，可用窗体来做，请再联系！

Public flag As Boolean
Public flag1 As Boolean

Private Sub Workbook_Open()
flag = False
flag1 = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not flag Then
  flag = True
   t1 = Now
   Do While flag1
      DoEvents
      If (Now - t1) * 24 * 3600 > 5 Then '5代表5秒，改成自己需要的时间即可
         flag1 = False
        MsgBox "时间到！"
        End If
    Loop
End If
End Sub

Answer 4

如果直接在表格里处理，很难办到，要在窗体控件（如文本框）输入才好处理。

代码要写在三处（模块、窗体、工作表事件），粘贴代码估计你也不会，直接下载附件使用吧。

只能在A1单元格输入，倒计时的秒数在B3单元格输入。

追问

就是这个，不过我希望能在多个格子里输入数字可以吗？

追答

下载附件看看，是不是想要这样的？

追问

也不是,我希望我开始输入时开始计时,我的输入是输一个数字按一下回车,可以在下一个格子里输入,直到时间到.

追答

再看看，这次还有什么问题？

Answer 5

类似的问题度娘里有人提过倒计时，供参考。

http://zhidao.baidu.com/link?url=lJm5aqn2m9hINHtZMJ4MI5bmv9fZWHlHdpm8m9kcJhxOuuern4Yror4DADB_nsYq_67NNRfQOvMb3L8dDj5TjK

如果是要实现对话框提醒的话，通过控件实现太复杂，建议使用office同门的工具microsoft outlook中的日历事件功能。计划某项任务在某个时间点，到点后会弹出提示框提醒，可以再选择是延期还是取消，希望对你有帮助。