Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Project.SpreadPercentCompleteToStatusDate (projeto)Project.SpreadPercentCompleteToStatusDate Property (Project)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

True se edições à porcentagem do total da tarefa concluída estão espalhadas a data de status ou à data atual, se a data de status for "NA". False se edições são estendidas até a data de término calculada da tarefa. Leitura/gravação booleano.True if edits to total task percent complete are spread to the status date, or to the current date if the status date is "NA". False if edits are spread to the calculated stop date of the task. Read/write Boolean.

SintaxeSyntax

expressão. SpreadPercentCompleteToStatusDateexpression. SpreadPercentCompleteToStatusDate

expressão Uma variável que representa um objeto Project .expression A variable that represents a Project object.

ExemploExample

O exemplo a seguir verifica a data de status do projeto inteiro. Se seu valor padrão nunca tiver sido alterado, mas as edições feitas no percentual total concluído da tarefa se estenderem até a data de status, a macro solicitará uma data de status a ser utilizada. Se as edições feitas no percentual total concluído da tarefa se estenderem até a data de término calculada da tarefa, a macro perguntará ao usuário se elas devem ser estendidas a uma data de status e, se for o caso, solicitará uma data de status a ser utilizada.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. If edits to total task percent complete are spread to the calculated stop date of the task, the macro asks the user if edits should be spread to a status date instead and, if so, asks for a status date to use.

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
© 2018 Microsoft