1.怎样用word制作一个倒计时日历的表格？2.帮我做成倒计时日历（表格 可以打印的那种）
发布网友
发布时间：2022-04-23 08:44
共3个回答
热心网友
时间：2023-10-08 22:18
Sub Timer()
s = DateDiff("s", Now, DateSerial(2010, 12, 31) + TimeSerial(24, 0, 0))
dd = Int(s / (86400))
s = s - dd * 86400
hh = Int(s / 3600)
s = s - hh * 3600
mm = Int(s / 60)
s = s - mm * 60
ss = s
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 Sub
此外：你还可以在word里面插入一个文本框，将结果输出到文本框中，就不影响word的正常使用了，（备注要停止运行，在sub前面加个“'”）代码改为：
Sub Timer()
s = DateDiff("s", Now, DateSerial(2010, 12, 31) + TimeSerial(24, 0, 0))
dd = Int(s / (86400))
s = s - dd * 86400
hh = Int(s / 3600)
s = s - hh * 3600
mm = Int(s / 60)
s = s - mm * 60
ss = s
TextBox1.Value = "距离2010年元旦还有" & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"
Application.OnTime Now + TimeValue("00:00:01"), "Timer"
End Sub追问你能不能直接做一个WORD表格发到我邮箱？
热心网友
时间：2023-10-08 22:18
具体要做什么样的 怎么用这个日历 要有什么功能追问内容是 剩下 “多少天”
类似高考倒计时日历
制成表格，就像日历那样，6、7、8月共三个表格
追答这东西 细心搜的话 能搜到吧 这东西我感觉做起来比较麻烦 但是不困难
热心网友
时间：2023-10-08 22:19
