Свойство Task.PercentComplete (Project)
Возвращает или задает процент завершения задачи. Для чтения и записи, Variant.
Синтаксис
выражение. PercentComplete
Выражение Переменная, представляющая объект Task .
Пример
В следующем примере удаляется ресурс из задач, которые имеют два или более ресурсов и выполняются на 85 процентов.
Sub ReallocateResource()
Dim Entry As String ' The name of the resource to remove
Dim T As Task ' The task object used in For loop
Dim RA As Assignment ' The resource assignment object to the task
Entry = InputBox$("Enter a resource name:")
' Remove the resource from 85 percent complete tasks with 2+ resources.
For Each T In ActiveProject.Tasks
If T.PercentComplete >= 85 And T.Resources.Count >= 2 Then
For Each RA In T.Assignments
If UCase(Entry) = UCase(RA.ResourceName) Then
RA.Delete
End If
Next
End If
Next T
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.