Project.SpreadPercentCompleteToStatusDate 屬性 (Project)

True 是表示 如果對全部任務完成百分比會展現在狀態日期，或目前日期如果狀態日期為"NA"。 False 表示展現任務計算的停止日期。 可讀寫的 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 支援與意見反應。