加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

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

(2013-02-05 21:47:00)
分类: 薄表文档

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

点击…>3,就可以进入:江海明子的博文3

点击…>1…>2就可以进入江海明子的博文1海明子的博文2

点击页面上的:江海明子的博客http://blog.sina.com.cn/jshmxyming

就可以进入我的博客首页。

百度中搜索“江海明子的博客”,就能搜索到“江海明子_新浪博客

百度中搜索:如何用excel制作春节倒计时牌

就能搜索到:如何用excel制作春节倒计时牌_江海明子_新浪博客 

 

 

1、打开excel工作薄。

2、在B1中输入文字:现在距离2014年春节还有。

3、在工作薄中,Alt+F11Alt+IM,在弹出的窗口中复制如下代码:



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这一步。
    4、在“工程-VBAProject”下,双击“ThisWorkbook,复制如下代码:
Private Sub Workbook_Open()
Timer
 End Sub 

代码中的Timer是3中的宏名

 这一步操作完后,每次打开工作薄时倒计时钟是动态的。

5、回到刚才的excel工作薄中,运行宏“Timer”,Alt+TMM,执行(R),在B2单元格中是不是出现了倒计时钟(关键是动态的)?

6、如果您有兴趣,可以插入您喜欢的图片,制成精美的倒计时牌。

7、如果事件已过,就会显示成如下形式:

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



 

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有