Свойство Task. Перцентворккомплете (Project)Task.PercentWorkComplete property (Project)

Получает или задает процент завершения по трудозатратам для задачи.Gets or sets the percentage of work complete for a task. Только для чтения для суммарных задач.Read-only for summary tasks. Для чтения и записи, Variant.Read/write Variant.

СинтаксисSyntax

выражение.expression. PercentWorkComplete

Expression (выражение ) Переменная, представляющая объект Task .expression A variable that represents a Task object.

ПримерExample

В следующем примере показано, как задать для свойства помечено значение true для каждой задачи в активном проекте с процентом выполнения трудозатрат, превышающим процентное отношение, заданное пользователем.The following example sets the Marked property to True for each task in the active project with a percentage of work complete that exceeds the percentage specified by the user.

Sub MarkTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Entry As String ' Percentage entered by user 
 
 ' Prompt user for a percentage. 
 Entry = InputBox$("Mark tasks that exceed what percentage of work complete? (0-100)") 
 
 If Not IsNumeric(Entry) Then 
 MsgBox ("Please enter a number only.") 
 Exit Sub 
 ElseIf Entry < 0 Or Entry > 100 Then 
 MsgBox ("You did not enter a percentage from 0 to 100.") 
 Exit Sub 
 End If 
 
 ' Mark tasks with percentage of work complete greater than user entry. 
 For Each T In ActiveProject.Tasks 
 If T.PercentWorkComplete > Val(Entry) Then 
 T.Marked = True 
 Else 
 T.Marked = False 
 End If 
 Next T 
 
End Sub

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.