MS Project VBA 复制完成日期到完成 1

【问题标题】：MS Project VBA Copy Finsh Date to Finsh 1MS Project VBA 复制完成日期到完成 1
【发布时间】：2021-11-29 19:17:30
【问题描述】：

我是 VBA 新手，正在寻找一个简单的代码来复制说，我当前的完成和开始日期为 finish1 和 start1

这样我就可以跟踪变化趋势

【问题讨论】：

标签： vba ms-project

【解决方案1】：

这是一个简单的过程，它遍历活动计划中的任务并将开始/完成日期复制到 start1/finish1。

Sub CopyDates()

    Dim t As Task
    For Each t In ActiveProject.Tasks
        t.Start1 = t.Start
        t.Finish1 = t.Finish
    Next t
    
End Sub

【讨论】：

查看带有ms-project 标记的问题，以找到更多关于您可以使用 vba 做什么的示例。

【解决方案2】：

除了 Rachel 提供的方法外，您还可以使用 MS Project Application 对象的BaselineSave 方法。尽管它被称为 BaselineSave，但该方法具有可选参数，允许您将当前日期复制到任何开始/结束字段中，而无需设置任务的实际基线。我更喜欢这种方法，因为它可以在一行中完成。

Sub CopyDates()

    Application.BaselineSave All:=True, Copy:=pjCopyCurrent, Into:=pjIntoStart_Finish1

End Sub

【讨论】：