Project.SpreadPercentCompleteToStatusDate property (Project)

True, wenn Bearbeitung von abgeschlossenen Vorgängen zum Statusdatum oder auf das aktuelle Datum verteilt sind, wenn Statusdatum "NV" ist. False, wenn Bearbeitungsvorgänge bis zum berechneten Endtermin des Vorgangs verteilt werden. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. SpreadPercentCompleteToStatusDate

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

Beispiel

The following example checks the status date of the active project. If it has never changed from the default, but edits to total task percent complete are spread to the status date, the macro asks for a status date to use. Wenn Die Bearbeitungen der gesamt abgeschlossenen Aufgabe in Prozent auf das berechnete Enddatum des Vorgangs verteilt werden, fragt das Makro den Benutzer, ob Die Bearbeitungen stattdessen auf ein status Datum verteilt werden sollen, und wenn ja, fragt das Makro nach einem status Datum für die Verwendung.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.