如何用excel制作春节倒计时牌

分类: 薄表文档 |
点击…>1或…>2就可以进入江海明子的博文1或江海明子的博文2
点击页面上的:江海明子的博客或http://blog.sina.com.cn/jshmxyming,
就可以进入我的博客首页。
在百度中搜索“江海明子的博客”,就能搜索到“江海明子_新浪博客”
在百度中搜索:如何用excel制作春节倒计时牌
就能搜索到:如何用excel制作春节倒计时牌_江海明子_新浪博客
1、打开excel工作薄。
2、在B1中输入文字:现在距离2014年春节还有。
3、在工作薄中,Alt+F11,Alt+I,M,在弹出的窗口中复制如下代码:
Sub Timer()
ss=DateDiff("s", Now, "2014-1-31 00:00:00")
dd=ss\86400
ss=ss-dd*86400
hh=ss\3600
ss=ss-hh*3600
mm=ss\60
ss=ss-mm*60
ActiveSheet.Range("B2") = dd & "天" & hh & "小时" & mm & "分" & ss & "秒"
Application.OnTime Now + TimeValue("00:00:01"), "Timer"
End Sub
代码中红色部分是事件的日期和时间,
蓝色部分是倒计时所在的单元格,
如果倒计时钟是静止的,请重新运行一下宏,即再操作<5这一步。
Timer
代码中的Timer是3中的宏名
5、回到刚才的excel工作薄中,运行宏“Timer”,Alt+T,M,M,执行(R),在B2单元格中是不是出现了倒计时钟(关键是动态的)?
6、如果您有兴趣,可以插入您喜欢的图片,制成精美的倒计时牌。
7、如果事件已过,就会显示成如下形式:
前一篇:怎样才能方便地去除商品条码
后一篇:二款不错的倒计时器