如何用EXCEL做倒计时
按下某一个按钮以后就开始倒计时(显示剩余天数)是用VBA还是用EXCEL自带的函数?要从按下按钮那一刻开始呢...?...
按下某一个按钮以后就开始倒计时 (显示剩余天数)
是用VBA 还是用EXCEL自带的函数?
要从按下按钮那一刻开始呢...? 展开
是用VBA 还是用EXCEL自带的函数?
要从按下按钮那一刻开始呢...? 展开
11个回答
展开全部
1.
A1 输入 2008-8-8 8:8:8
B1 输入 =NOW() 这是现在的时间实时变化的 可以不要这列
C1 输入 =B1-A1
D1 输入:
=INT(C1)&"天"&TEXT(C1-INT(C1),"h时m分s秒")
D1 便是倒计时
这是详细的分解了计算过程
你可以直接在
A1 输入 2008-8-8 8:8:8
B1 输入=INT(NOW()-A1)&"天"&TEXT(NOW()-A1-INT(NOW()-A1),"h时m分s秒")
就ok了
这样你每次打开文档都会更新时间
应为now()就是取现在的时间
注意:a1你要输入日期数据而不是你的那种 200,150 的
你说清单位的话可以转换
整列的话你只要向下托动单元格就可以了
2.
比方说你要设定一个到10:30的倒计时,用这个公式:
=TIMEVALUE("10:30:00")-TIMEVALUE(HOUR(NOW())&":"&MINUTE(NOW())&":"&SECOND(NOW()))
当然你还要把单元格格式设置为时间格式。
3.VBA做的
窗体上放一个label,一个HScrollbox,三个Commandbutton,一个timer
双击窗体,删掉别的代码,粘贴下面代码:
Dim Minute, Second As Long
Private Sub Command1_Click()
Minute = InputBox("输入分钟数", "倒计时时间")
Second = 60 * Minute
Label1.Caption = "倒计时时间为" & Minute & "分钟"
Command2.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
Label1.Caption = "已结束倒计时"
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Second < 0 Then
Timer1.Enabled = False
Else
Label1.Caption = IIf(Second \ 3600 = 0, "00", IIf(Second \ 3600 < 10, "0" & Second \ 3600, Second \ 3600)) & ":" & IIf(Second \ 60 Mod 60 = 0, "00", IIf(Second \ 60 Mod 60 < 10, "0" & Second \ 60 Mod 60, Second \ 60 Mod 60)) & ":" & IIf(Second Mod 60 Mod 60 = 0, "00", IIf(Second Mod 60 Mod 60 < 10, "0" & Second Mod 60 Mod 60, Second Mod 60 Mod 60))
HScroll1.Value = (60 * Minute - Second) / (60 * Minute) * HScroll1.Max
Second = Second - 1
End If
End Sub
A1 输入 2008-8-8 8:8:8
B1 输入 =NOW() 这是现在的时间实时变化的 可以不要这列
C1 输入 =B1-A1
D1 输入:
=INT(C1)&"天"&TEXT(C1-INT(C1),"h时m分s秒")
D1 便是倒计时
这是详细的分解了计算过程
你可以直接在
A1 输入 2008-8-8 8:8:8
B1 输入=INT(NOW()-A1)&"天"&TEXT(NOW()-A1-INT(NOW()-A1),"h时m分s秒")
就ok了
这样你每次打开文档都会更新时间
应为now()就是取现在的时间
注意:a1你要输入日期数据而不是你的那种 200,150 的
你说清单位的话可以转换
整列的话你只要向下托动单元格就可以了
2.
比方说你要设定一个到10:30的倒计时,用这个公式:
=TIMEVALUE("10:30:00")-TIMEVALUE(HOUR(NOW())&":"&MINUTE(NOW())&":"&SECOND(NOW()))
当然你还要把单元格格式设置为时间格式。
3.VBA做的
窗体上放一个label,一个HScrollbox,三个Commandbutton,一个timer
双击窗体,删掉别的代码,粘贴下面代码:
Dim Minute, Second As Long
Private Sub Command1_Click()
Minute = InputBox("输入分钟数", "倒计时时间")
Second = 60 * Minute
Label1.Caption = "倒计时时间为" & Minute & "分钟"
Command2.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
Label1.Caption = "已结束倒计时"
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Second < 0 Then
Timer1.Enabled = False
Else
Label1.Caption = IIf(Second \ 3600 = 0, "00", IIf(Second \ 3600 < 10, "0" & Second \ 3600, Second \ 3600)) & ":" & IIf(Second \ 60 Mod 60 = 0, "00", IIf(Second \ 60 Mod 60 < 10, "0" & Second \ 60 Mod 60, Second \ 60 Mod 60)) & ":" & IIf(Second Mod 60 Mod 60 = 0, "00", IIf(Second Mod 60 Mod 60 < 10, "0" & Second Mod 60 Mod 60, Second Mod 60 Mod 60))
HScroll1.Value = (60 * Minute - Second) / (60 * Minute) * HScroll1.Max
Second = Second - 1
End If
End Sub
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
2022-06-28 · 专注大学生职业技能培训在线教育品牌
关注
展开全部
用today()与你要判断的日期想减就可以看到天数了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用VBA吧,EXCEL自带的倒是能做出来倒计时,但加按钮还是要用到VBA
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看到你的名字,我就想起曾经的一个朋友,与你的名字只有第一个字的差别。是不是喜欢日系的人,都喜欢叫这样的名字呢?
你的问题,在EXCEL中,按天的显示函数。要用几个函数套用。可以达到你要的结果。但是要象显示一个时间值,在不停的倒计时的话。那就做不到了,如果你一定要用EXCEL来做的话。只能在EXCEL中插入对像,可以将FLASH的这样的动画插入在EXCEL中。
你的问题,在EXCEL中,按天的显示函数。要用几个函数套用。可以达到你要的结果。但是要象显示一个时间值,在不停的倒计时的话。那就做不到了,如果你一定要用EXCEL来做的话。只能在EXCEL中插入对像,可以将FLASH的这样的动画插入在EXCEL中。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询