word如何往表格里的某一列填入連續的日期（如何在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小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。