请教excel高手,请问怎样设置时间倒计时

已举报 回答 关注
请教excel高手,请问怎样设置时间倒计时
问在线客服
扫码问在线客服
  • 回答数

    5

  • 浏览数

    8,171

5个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳

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
第一行输入倒计时时间,表格上放置两个按钮可控制开始和终止倒计时
取消 评论
这个应该调成文本格式 你试试在日期的最前面加一个英文下的单引号。
取消 评论
把格子拉长就好了,是显示不下了
取消 评论
用工具伪激活的? 现在还管用的就是kms+wmc 和密钥加电话激活是永久的 激活不会失效 重新激活即可
取消 评论
什么灰了
背景嘛
你可以下载 软媒 网 win8魔方 调节的
取消 评论
ZOL问答 > 键鼠套装 > 其他 > 请教excel高手,请问怎样设置时间倒计时

相关产品

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫,关注我们
提示

确定要取消此次报名,退出该活动?