如何在excel中做一个时间倒计时,注意精确到秒数,而不是到天数!
2个回答
展开全部
在a1输入
="现在距离春节还剩"&text("2010-02-14"-now(),"d天h时m分s秒")
这个只有你重新打开或者按f9才能自动变化。
如果要自动倒计时,需右键点该工作表的名字(在excel窗口的下面),查看代码,粘贴以下代码:
private
sub
worksheet_calculate()
application.wait
now
+
timevalue("00:00:01")
range("a1").calculate
end
sub
会到excel中,按一次f9就可以了。
问题是,这时,你什么也干不了了,只能看着它变化。按esc停止。
="现在距离春节还剩"&text("2010-02-14"-now(),"d天h时m分s秒")
这个只有你重新打开或者按f9才能自动变化。
如果要自动倒计时,需右键点该工作表的名字(在excel窗口的下面),查看代码,粘贴以下代码:
private
sub
worksheet_calculate()
application.wait
now
+
timevalue("00:00:01")
range("a1").calculate
end
sub
会到excel中,按一次f9就可以了。
问题是,这时,你什么也干不了了,只能看着它变化。按esc停止。
展开全部
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
如需停止倒计时,
要另多写一个宏
输入
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
如需停止倒计时,
要另多写一个宏
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询