2023-01-27 03:51来源:m.sf1369.com作者:宇宇
打开Excel表格,先输入自己需要倒计时的日期(假如输在了A1单元格)。
然后我们在单元格中,输入公式【=DATE(A1)-TODAY()】按下回车键即可
解释:DATE表示指定的日期,DATE(2022,10,1)即为2022年10月1日,大家也可以根据自己的需要,自行修改指定的日期,TODAY表示当前的日期。用2022.10.1减去当前日期,也就是倒计时剩余天数。
第一步:打开Excel表格,先点需要填写倒计时的单元格,再点编辑栏
第二步:在编辑栏中输入=date函数,双击系统提示的DATE
第三步:将2020年高考时间输入。既2020,6,7 最后添上右括号
第四步:编辑栏中输入-today 并双击系统提示的TODAY
第五步:补上右括号按回车键Enter即可
第一步:打开Excel表格,先点需要填写倒计时的单元格,再点编辑栏
第二步:在编辑栏中输入=date函数,双击系统提示的DATE
第三步:将2020年高考时间输入。既2020,6,7 最后添上右括号
第四步:编辑栏中输入-today 并双击系统提示的TODAY
第五步:补上右括号按回车键Enter即可
Sub 倒计时() [a1].NumberFormatLocal = "h:mm:ss;@" [a1] = [a1] - 1 / 3600 / 24 '减去1秒 If [a1] 0 Then Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.倒计时", , True '每过一秒调用本程序一次 Else [a1] = "00:00:00" End If End SubALT+F11,双击右边sheet1后粘贴代码。最好建一命令按钮,单击开始运行Sheet1.倒计时。
Private Sub CommandButton1_Click()Sheet1.倒计时End Sub
A1 输入 2008-8-8 8:8:8 A2 输入 =NOW() A3 输入 =A1-A2 A4 输入: =INT(A3)&"天"&TEXT(A3-INT(A3),"h时m分s秒") A4 便是倒计时 如要倒计时每秒运行, 便要执行宏, VBA代码: Sub Olympic() ActiveSheet.Calculate Application.OnTime Now + TimeValue("00:00:01"), "Olympic" End Sub 如需停止倒计时, 要另多写一个宏