用EXCEL怎样做“倒计时牌”

发布网友 发布时间：2022-04-24 02:46

我来回答

共5个回答

懂视网 时间：2022-07-29 17:04

1、打开excel2013，在E2：F4中输入显示牌除时间外的内容。

2、为了突出显示效果，我们要将网格线进行取消，打开【视图】选项卡下的【显示】选项，将【网格线】前面的勾去掉，这样，网格线就取消了。

3、将光标定位在F3中，单击编辑栏前面的插入函数图标，在弹出的【插入函数】列表中选择DATE函数。

4、在【函数参数】对话框中，从上到下依次输入2008,1,1，三个参数，然后单击确定，这样到期时间就设置好了。

5、插入当前的时间，利用today函数就能实现了，然后在编辑栏输入好的公式后面用连接符&加上一个天字。同样，春节倒计时制作也一样，只是春节时间和元旦时间进行下修改就行了。

6、再对字体和对齐方式进行下设置，倒计时显示牌就做好了。

热心网友 时间：2022-07-29 14:12

要做倒计时显示就需要知道具体的到期时间，建国是2013年月10月1日，以及巴西世界杯举行时间为2014年6月13日。需要用的是函数是day和today两个函数名。（date是指具体到期时间，而today则是指今天的时间），现在开始制作倒计时牌。首先点选单元格。

（倒计时日期=到期日期-今天的日期）在单元格编辑栏内输入函数名=date(2013,10,1)-today()&"天"，有时需要在倒计时数字后面加个单位，很简单加个连字符&“单位符号”就可以了。

按回车确认得出距离建国还有74天。

以此类推，继续制作2014年巴西世界杯倒计时，同样我们先选定单元格后，在编辑栏内输入公式:=date(2014,6,13)-today()&"天"，最后按回车确认。看，距离世界杯还有329天。

热心网友 时间：2022-07-29 15:30

具体办法是将在下载工具(比如说网际快车)里新建一个下载任务,将FLASH地址复制到任务设置里的网地址里就可以了，或者直接鼠标右键点我给的这个地址选择“目标另存为”更方便些！ 其次,直接放置是不可能的,我们要借助第三方软件,这个软件的名字叫《身形百变桌面钟》去百度搜索一下，或者从这个地址下载： 下载完安装，然后在按以下文件夹顺序：身形百变桌面钟→SKINS→clock3文件夹下有个clock3的文件，将你刚才下载的“clockcpa”文件重命名为“clock3”剪切过来覆盖这个文件，下面的工作就是打开身形百变桌面钟，选择主题为：clock3，在软件设置里调节位置和大小，以及随WINDOWS同步启动就可以了！ 现在，只要您的电脑开机，桌面上就会有一个倒计时我回答的很辛苦的。挺好的呀,2011/10/2 18:08:08

热心网友 时间：2022-07-29 17:05

　　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

热心网友 时间：2022-07-29 19:46

给你举个例子吧
a1输入2008-8-88:8:8
b1输入=now()这是现在的时间实时变化的可以不要这列
c1输入=b1-a1
d1输入:
=int(c1)&"天"&text(c1-int(c1),"h时m分s秒")
d1便是倒计时
这是详细的分解了计算过程
你可以直接在
a1输入2008-8-88:8:8
b1输入=int(now()-a1)&"天"&text(now()-a1-int(now()-a1),"h时m分s秒")
就ok了
这样你每次打开文档都会更新时间
应为now（）就是取现在的时间
注意：a1你要输入日期数据而不是你的那种200，150的
你说清单位的话可以转换
整列的话你只要向下托动单元格就可以了