用EXCEL怎样做“倒计时牌”
http://school.cfan.com.cn/office/excel/2007-01-02/1167711690d34003.shtml网页上的公式输入好像不够正...
http://school.cfan.com.cn/office/excel/2007-01-02/1167711690d34003.shtml网页上的公式输入好像不够正确,例:=IF(D3,B3,"day") 是正确的,但=DATEDIF(D16,D3,"day")公式无误,可倒不出实际天数 & 这个符号是怎么运用到制作“倒计时牌”中,请大师指教指教
展开
7个回答
2015-10-14 · 知道合伙人软件行家
关注
展开全部
要做倒计时显示就需要知道具体的到期时间,建国是2013年月10月1日,以及巴西世界杯举行时间为2014年6月13日。需要用的是函数是day和today两个函数名。(date是指具体到期时间,而today则是指今天的时间),现在开始制作倒计时牌。首先点选单元格。
(倒计时日期=到期日期-今天的日期)在单元格编辑栏内输入函数名=date(2013,10,1)-today()&"天",有时需要在倒计时数字后面加个单位,很简单加个连字符&“单位符号”就可以了。
按回车确认得出距离建国还有74天。
以此类推,继续制作2014年巴西世界杯倒计时,同样我们先选定单元格后,在编辑栏内输入公式:=date(2014,6,13)-today()&"天",最后按回车确认。看,距离世界杯还有329天。
盖雅工场,全流程劳动力管理系统
2023-08-24 广告
2023-08-24 广告
作为苏州盖雅信息技术有限公司的工作人员,我可以向您介绍日历排班的一般方法。首先,需要确定排班的基本单位,例如以天、周或月为单位。然后,根据工作需要和员工排班的情况,将时间分配给不同的员工。可以根据不同的排班原则,例如轮班、固定班次、弹性工作...
点击进入详情页
本回答由盖雅工场,全流程劳动力管理系统提供
展开全部
具体办法是将在下载工具(比如说网际快车)里新建一个下载任务,将FLASH地址复制到任务设置里的网地址里就可以了,或者直接鼠标右键点我给的这个地址选择“目标另存为”更方便些! 其次,直接放置是不可能的,我们要借助第三方软件,这个软件的名字叫《身形百变桌面钟》去百度搜索一下,或者从这个地址下载: 下载完安装,然后在按以下文件夹顺序:身形百变桌面钟→SKINS→clock3文件夹下有个clock3的文件,将你刚才下载的“clockcpa”文件重命名为“clock3”剪切过来覆盖这个文件,下面的工作就是打开身形百变桌面钟,选择主题为:clock3,在软件设置里调节位置和大小,以及随WINDOWS同步启动就可以了! 现在,只要您的电脑开机,桌面上就会有一个倒计时
我回答的很辛苦的。挺好的呀,2011/10/2 18:08:08
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Alt+F11调出VBA编辑器,插入一个模块,将下列代码粘贴进去,试一下世界末日倒计时的效果。
时间及节日请自行修改,再将相关单元格的格式设置得美观一些。
您可以在主窗口插入两个命令按钮控件,一个调用StartTimer()过程以开始执行,一个调用StopTimer()过程以停止计时。当然您也可以只用一个按钮来调用,这可能需要您进行技术性的处理。
'以下为需要复制的代码:
Option Explicit
'声明变量
Private theTime As Date
Private Const SpecialDate As Date = #12/21/2012#
Private Const SpecialTime As Date = #12:00:01 AM#
Sub StartTimer()
'开始倒计时
With Sheet1.Range("B9") '倒计时名称
.Value = "世界末日倒计时"
End With
Exit Sub
Call TimeOn
End Sub
Sub StopTimer()
'停止倒计时
On Error Resume Next
Application.OnTime theTime, "TimeOn", , False
End Sub
Sub TimeOn()
'显示倒计时
Dim d As Integer
Dim nowTime As Date
nowTime = Now()
If nowTime >= SpecialDate + SpecialTime Then
Sheet1.Range("B10:B11").Value = 0
MsgBox "时间到!", vbExclamation
Exit Sub
End If
If TimeValue(nowTime) > SpecialTime Then d = 1
With Sheet1.Range("B10") 'B10倒计时天数
.NumberFormat = "0"
.Value = SpecialDate - Date - d
End With
With Sheet1.Range("B11") 'B11倒计时时间
.NumberFormat = "hh:mm:ss"
.Value = SpecialTime - TimeValue(nowTime) + d * 86400
End With
theTime = nowTime + TimeValue("0:0:1")
Application.OnTime theTime, "TimeOn"
End Sub
时间及节日请自行修改,再将相关单元格的格式设置得美观一些。
您可以在主窗口插入两个命令按钮控件,一个调用StartTimer()过程以开始执行,一个调用StopTimer()过程以停止计时。当然您也可以只用一个按钮来调用,这可能需要您进行技术性的处理。
'以下为需要复制的代码:
Option Explicit
'声明变量
Private theTime As Date
Private Const SpecialDate As Date = #12/21/2012#
Private Const SpecialTime As Date = #12:00:01 AM#
Sub StartTimer()
'开始倒计时
With Sheet1.Range("B9") '倒计时名称
.Value = "世界末日倒计时"
End With
Exit Sub
Call TimeOn
End Sub
Sub StopTimer()
'停止倒计时
On Error Resume Next
Application.OnTime theTime, "TimeOn", , False
End Sub
Sub TimeOn()
'显示倒计时
Dim d As Integer
Dim nowTime As Date
nowTime = Now()
If nowTime >= SpecialDate + SpecialTime Then
Sheet1.Range("B10:B11").Value = 0
MsgBox "时间到!", vbExclamation
Exit Sub
End If
If TimeValue(nowTime) > SpecialTime Then d = 1
With Sheet1.Range("B10") 'B10倒计时天数
.NumberFormat = "0"
.Value = SpecialDate - Date - d
End With
With Sheet1.Range("B11") 'B11倒计时时间
.NumberFormat = "hh:mm:ss"
.Value = SpecialTime - TimeValue(nowTime) + d * 86400
End With
theTime = nowTime + TimeValue("0:0:1")
Application.OnTime theTime, "TimeOn"
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Excel怎么制作项目倒计时?这个视频告诉你!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
倒计时,从未来的某一时点计算时间,用来表示距离某一期限还有多少时间(多含剩余时间越来越少,越来越紧迫的意思)。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询