Свойство Project.SpreadPercentCompleteToStatusDate (Project)

Значение true , если изменения в общем проценте завершения задачи распределяются по дате состояния или к текущей дате, если дата состояния имеет значение "NA". Значение false , если изменения распространяются на вычисленную дату остановки задачи. Для чтения и записи, Boolean.

Синтаксис

выражение. 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 и обратная связь.