Excel单元格显示倒计时代码

Sub Timer()
ss=DateDiff("s", Now, "2019-11-11 00: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") = "距离双十一活动开始还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"
Application.OnTime Now + TimeValue("00:00:01"), "Timer"
End Sub

这里会显示A1单元格离设定的某一天,还差多少天,多少小时,多少分钟

© 版权声明
THE END
喜欢就支持一下吧
点赞11赞赏 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片