首先,打开Excel2010工作簿,在A1处输入标题日期,在A2输入本日日期,然后向下填充至春节的日期。
接下来在B1输入标题日,在B2输入获取日号并转为文本的公式=TEXT(A2,"dd日"),并向下填充。
请点击输入图片描述
在C1输入标题月,亮大在C2输入获取月份并转为文本的公式=TEXT(A2,"mm月"),并向下填充。
请点击输入图片描述
在D1输入标题星期,在D2输入获取星期并转为文本的公式=TEXT(A2,"[DBNum1]aaaa"),并向下填充。
请点击输入图片描述
在E1输入标题倒计时,在E2输入计算所剩天数的公式="2018/2/16"-A2,得出来的结果是个日期,要在开始选项卡数字功能区设置下格式为常规,再向下填充。保存工作簿关闭待用。
请点击输入图片描述
接下来打开Word2010,输入好其他衬托文字。然后点击邮件选项卡,再点击功能区中的选择收件人,点选使用现有列表。
请点击输入图片描述
找到上面保存好的Excel工作簿打开,点选数据所在的工作表标签名,确定。
请点击输入图片描述
然后光标定位在要放置倒计时天数的位置,点击邮件选项卡,在编写和插入域中点击插入合并域旁的小三角,选择倒计时。
请点击输入图片描述
同上面一样定位好光标,再插入月,日,星期。再点击功能区的完空键早成并合并。
请点击输入图片描述
点选编辑单个文档,按确定就制作出了每一页的倒计时,再打印出来装订好就可以了。
请点击输入图片描述
在Word中制作倒计时钟,主要利用VBA所提供的定时器功能。下面以2010年元旦为粗兆例。步骤如下:
1、打开Word,新建一个空白文档,设置好字体、字形、字号等格式;
2、按隐纯下“Alt+F11”组合键,进入VBA编辑器;
3、按下“Ctrl+R”组合键,d出工程资源管理器窗口,双击“Project”下的“ThisDocument”,打开代码窗口,输入以下灶凳咐代码:
Sub Timer()
ss=DateDiff(“s”, Now, “2010-12-31 24:00:00”)
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=“距离2010年元旦还有” &vbCrLf &dd &“天”&hh &“小时”&mm &“分钟”&ss &“秒”
Selection.Collapse Direction:=wdCollapseEnd
Application.OnTime Now+TimeValue(“00:00:01”), “Timer”
End If
End Sub
4、按下“Alt+F8”组合键,打开“宏”,选中“Timer”,单击“运行”按钮返回,文档中即可出现一个倒计时钟了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)