EXCEL表格倒计时怎么设置到秒

1.请教excel高手,请问怎么设置时间倒计时

Dim IsRun As Boolean

Sub djs()

Dim sTime As Date, djs As Long, shi As Long, fen As Long, miao As Long

sTime = Now

shi = Sheet1.Range("a1"): fen = Sheet1.Range("b1"): miao = Sheet1.Range("c1") '设置倒计时值

Do

djs = (shi * 60 + fen) * 60 + miao - DateDiff("s", sTime, Now)

Sheet1.Range("a2") = Int(djs / 3600) & "时"

Sheet1.Range("b2") = Int((djs Mod 3600) / 60） & "分"

Sheet1.Range("c2") = djs Mod 60 & "秒"

DoEvents

If Not IsRun Then MsgBox "倒计时中断"： Exit Sub

Loop While djs > 0

MsgBox "倒计时完成"

End Sub

Private Sub CommandButton1_Click()

If IsRun = False Then IsRun = True: djs '开始按钮

End Sub

Private Sub CommandButton2_Click()

IsRun = False '中断按钮

End Sub

第一行输入倒计时时间，表格上放置两个按钮可控制开始和终止倒计时

2.如何在excel中做一个时间倒计时,要精确到时分秒

A1 输入 2008-8-8 8:8:8 A2 输入 =NOW() A3 输入 =A1-A2 A4 输入： =INT(A3)&"天"&TEXT(A3-INT(A3),"h时m分s秒"） A4 便是倒计时 如要倒计时每秒运行， 便要执行宏， VBA代码： Sub Olympic() ActiveSheet.Calculate Application.OnTime Now + TimeValue("00:00:01"), "Olympic" End Sub 如需停止倒计时， 要另多写一个宏。

3.如何用EXCEL做倒计时

给你举个例子吧 A1 输入 2008-8-8 8:8:8 B1 输入 =NOW（) 这是现在的时间实时变化的 可以不要这列 C1 输入 =B1-A1 D1 输入： =INT(C1)&"天"&TEXT(C1-INT(C1),"h时m分s秒"） D1 便是倒计时 这是详细的分解了计算过程 你可以直接在 A1 输入 2008-8-8 8:8:8 B1 输入=INT(NOW()-A1）&"天"&TEXT(NOW()-A1-INT(NOW()-A1),"h时m分s秒"） 就ok了 这样你每次打开文档都会更新时间 应为now（)就是取现在的时间 注意：a1你要输入日期数据而不是你的那种 200,150 的 你说清单位的话可以转换 整列的话你只要向下托动单元格就可以了。

4.excel如何实现多个倒计时器自动倒计时

在模块中添加，B、C列设置格式为 hh:mm:ss

Sub sTime()

'每隔一秒钟调整本程序自身一次。

'增加D列，标记倒记时是否完成，

'添加新的倒计时，更改B列数据，删除对应C列、D列数据。

Application.OnTime Now + TimeValue("00:00:01"), "sTime"

For i = 2 To 14

If Cells(i, 3) > 0 Then

Cells(i, 3) = Cells(i, 3) - TimeValue("00:00:01")

If Cells(i, 3) = TimeValue("00:00:10") Then

'10秒倒记时，改变颜色，提示音，加在这儿，不另写了。

End If

Else

If Cells(i, 3) = TimeValue("00:00:00") And Cells(i, 4) = "" And Len(Cells(i, 3)) > 0 Then

Cells(i, 4) = "时间到"

Else

If Cells(i, 3) = 0 And Cells(i, 4) = "" Then Cells(i, 3) = Cells(i, 2)

End If

End If

Next i

End Sub

然后在工作表中添加一个按钮，调用：

Private Sub CommandButton1_Click()

Call sTime

End Sub

5.怎么样在EXCEL中设置定时倒计时

“在C1中输入到期日期 比如是2010-11-12 如果想在d2中得到结果 用函数=IF(C1>TODAY（)，"还有"&C1-TODAY（)&"天到期"，IF(C1=TODAY（)，"今天到期"，"已还"）） 就可以得到结果了 如果想要在倒数10天的时候开始计时 在条件中可以用 =IF(AND(010，"正常"，IF(C1-TODAY()=0，"今天到期"，"已还"））） 。

如果在倒计时10的时候希望计数的单元格变成别的颜色来提醒自己 可以在格式——条件格式——公式 中来完成 在公式中输入=C1-TODAY()<=10 然后再在 旁边的格式——图案 中选择你想要提醒的颜色就可以了”--引用作者。