word如何往表格里的某一列填入连续的日期

今天需要制作如图所示的这样一份表格，需要在表格的第一列填入一系列的日期，从7月2日到8月31日（后续的日期做在另一个文件）。在制作这份表格的时候，总结出了3种方法，掌握了一些技巧，效率提高了很多。

这份表格制作重点在那一些列日期上面。

方法一：

如果急着要用，如果一时想不到快速的办法，那么就采用“复制一片，再逐个修改”的方法。其实也慢不到哪里去！

方法二：

使用填充“编号”的方法，然后修改“编号”的格式。到“８月１日”再重新定义一个编号即可。

方法三：

编写宏代码——编写代码花了些时间，但是却感觉非常方便，只要改个数字，就能瞬间生成一系列日期！

Sub table_Date()

‘

‘ 请预先插入一个3列2行的表格

‘ 下面的宏代码的作用：在表格的第一列里填入日期

‘

Set objTable = ActiveDocument.Tables(1)

objTable.Cell(1, 1).Range.Text = "日期"

objTable.Cell(1, 2).Range.Text = "值班人员"

objTable.Cell(1, 3).Range.Text = "工程进度情况"

dtmDate = #7/2/2011#

dtmMonth = Month(dtmDate)

dtmDay = Day(dtmDate)

i = 2

Do While True

objTable.Cell(i, 1).Range.Text = Month(dtmDate) & "月" & Day(dtmDate) & "日"

dtmDate = dtmDate + 1

If Month(dtmDate) > 8 Then

Exit Do

End If

i = i + 1

objTable.Rows.Last.Select

Selection.InsertRowsBelow 1

Loop

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。