Question

我需要弄清楚如何自动更新powerpoint 2013中的日期范围。目前从2017年1月至2017年3月31日，但每个月我需要更新日期以完成上个月的结束。所以对于五月，我需要2017年1月1日到2017年4月30日。

Answer 1

为了能够运行它，你应该在幻灯片母版中有一个名为“date”的形状。

Sub showDate()
Dim date1, date2, d1, y1, d2 As Date
Dim m1, m2 As String

date1 = DateSerial(Year(Now), Month(Now) - 4, 1)
date2 = DateSerial(Year(Now), Month(Now), 0)

d1 = Day(date1)
m1 = MonthName(Month(date1))
y1 = Year(date1)

d2 = Day(date2)
m2 = MonthName(Month(date2))

ActivePresentation.SlideMaster.Shapes("date").TextFrame.TextRange = m1 & " " & d1 & ", " & y1 & " - " & m2 & " " & d2 & ", " & Year(date2)
End Sub

Answer 2

Public Sub BuildDateRange()

    Dim dateFrom As Date
        dateFrom = DateValue("01/01/2017")

    Dim dateTo As Date
        dateTo = DateAdd("y", -1, DateSerial(Year(Date), Month(Date), 1))

    While dateFrom <= dateTo

        'add <dateFrom> to your date range...

        dateFrom = DateAdd("y", 1, dateFrom)
    Wend

End Sub

如何自动将powerpoint中的日期更新为上个月的最后一天

2 个答案: