通过

Project.SpreadPercentCompleteToStatusDate 属性 (Project)

  • 项目

如此 如果对总任务完成百分比的编辑扩展到状态日期或当前日期当状态日期是"NA"。 假 如果编辑扩展到计算的终止日期的任务。 读/写 Boolean。

语法

expression。 SpreadPercentCompleteToStatusDate

表达 一个代表 Project 对象的变量。

示例

以下示例将检查活动项目的状态日期。 如果该状态日期一直使用默认值，而对任务总完成百分比的编辑扩展到了状态日期，则宏将询问要使用的状态日期。 如果对总任务完成百分比的编辑分散到任务的计算停止日期，则宏会询问用户是否应将编辑扩展到状态日期，如果是，则要求使用状态日期。

Sub SpreadPercentComplete() 
 Dim NewStatus As Date, AskToSpread As Long 
 
 With ActiveProject 
 If .StatusDate = "NA" And .SpreadPercentCompleteToStatusDate Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 MsgBox "The status date was set to " & .StatusDate & "." 
 ElseIf .SpreadPercentCompleteToStatusDate = False Then 
 AskToSpread = MsgBox("Should changes to total task percent complete" & _ 
 " be spread to a status date?", vbYesNo) 
 If AskToSpread = vbYes Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 .SpreadPercentCompleteToStatusDate = True 
 MsgBox "The status date was set to " & .StatusDate & "." 
 End If 
 End If 
 End With 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。