如何在excel中做一个精确到时分秒的时间倒计时？
1个回答
展开全部
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
如需停止倒计时, 要另多写一个宏
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
如需停止倒计时, 要另多写一个宏
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
