word如何往表格里的某一列填入连续的日期
- 2022-05-21
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 182 次浏览
今天需要制作如图所示的这样一份表格，需要在表格的第一列填入一系列的日期，从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
