作者：绿色风
分类：
时间：2022-08-18
浏览：119
楼主
传递 |
通过WORD文档制作倒计时效果。
比如，距离高考还有几天几分几秒。
由于WORD没有函数，因此，制作起来，非得使用VBA不可。
首先，新建一个新的WORD文档，然后，按下 ALT+F11 键，进入到Microsoft visual basic界面。
之后，选择界面中的Project下面的Thisdocumet 点击右键，选择“查看代码”，会弹出一个编写代码的白色小窗体。
之后，在小窗体里面，直接输入如下的VBA代码：- Sub Timer()
- ss = DateDiff("s", Now, DateSerial(2012, 6, 6) + TimeSerial(24, 0, 0))
- If ss >= 0 Then
- dd = ss \ 86400
- ss = ss - dd * 86400
- hh = ss \ 3600
- ss = ss - hh * 3600
- mm = ss \ 60
- ss = ss - mm * 60
- Selection.HomeKey Unit:=wdStory
- Selection.EndKey Unit:=wdStory, Extend:=wdExtend
- Selection.Text = "距离2012年高考还有：" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"
- Selection.Collapse Direction:=wdCollapseEnd
- Application.OnTime Now + TimeValue("00:00:01"), "Timer"
- End If
- End Sub
之后，关闭Microsoft visual basic界面，回到WORD界面。
最后，在WORD界面中，执行菜单操作：
“工具”→“宏”→“宏”，选择列表中的“Timer”，最后点击“运行”按钮，这样，距离高考还有几天几小时几分几秒的提示，就出现了，并且，还是动态的，随时会更新天小时分秒哦
如果您想制作距离其它的时间倒计时，只需要修改上述的两个地方：
①2012, 6, 6，修改此目标日期
②"距离2012年高考还有："，修改此文字的提示
其它地方均不需要修改。
 距离2012年高考还有.rar
|
2楼
lrlxxqxa |
vba能做的事真的是太多啦
 |
3楼
eliane_lei |
老哥 你牛
 |
4楼
lg7998 |
学委，拜师。。 |
5楼
罗奥奥 |
必须mark! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一