Project.SpreadPercentCompleteToStatusDate-Eigenschaft (Projekt)

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 Änderungen am gesamten Prozentsatz der abgeschlossenen Vorgänge auf das berechnete Beendigungsdatum der Aufgabe gestreut werden, fragt das Makro den Benutzer, ob Änderungen stattdessen auf ein Statusdatum übertragen werden sollen, und fragt in diesem Fall nach einem zu verwendenden Status-Datum.

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.