excel制作倒计时带天时分秒

Question

如题所述

Answer 1

如何用Excel制作随时跳动的倒计时2007年06月24日 下午 01:04 以制作2008北京奥运会倒计时为例:

启动Excel并新建工作簿，按下Alt+F11进入VBA编辑状态。在左侧的"工程资源管理器"中选择当前工作簿，然后执行"插入"－"模块"命令，插入一个新模块（模块1）。

双击"模块1"进入代码编辑区域中，输入以下代码。输入完成后，关闭窗口返回工作表中。

Sub Timer()
ss=DateDiff("s", Now, "2008-8-8 20:00:00")
dd=ss\86400
ss=ss-dd*86400
hh=ss\3600
ss=ss-hh*3600
mm=ss\60
ss=ss-mm*60
ActiveSheet.Range("A1") = "现在离北京2008奥运会开幕还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"
Application.OnTime Now + TimeValue("00:00:01"), "Timer"
End Sub

按下Alt+F8展开"宏"对话框，选中"Timer"宏，单击"执行"按钮返回，当前工作表的A1单元格中即刻出现一个北京奥运的倒计时钟
以上代码首先计算出当前时间与结束时间相隔的总秒数，再分别转换成对应的天数、小时数、分钟数和秒数。其中的Application.OnTime用于安排倒计时宏每隔一秒运行一次。大家在Excel使用中如果要用到时间的倒计时计算，便可使用这种方式。参考资料：http://hi.baidu.com/hushaozhong/blog/item/039b164f5004ec34aec3ab92.html

Answer 2

举例说明：
A1输入目标时间 2011-3-31 12:30:00
A2输入现在时间 =NOW()
A3输入 =A1-A2
A4输入 =INT(A3)&"天"&TEXT(A3-INT(A3),"h时m分s秒")

A4为倒计时本回答被提问者采纳