excel倒计时功能

发布网友发布时间：2022-04-19 21:55

共4个回答

热心网友时间：2023-07-02 00:46

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

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在A1单元格输入倒计时开始的小时数，如3个小时“3:00”格式自定；

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

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

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

热心网友时间：2023-07-02 00:47

把以下代码复制到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

热心网友时间：2023-07-02 00:48

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

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

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

热心网友时间：2023-07-02 00:49

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

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

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

全部栏目

excel倒计时功能