Table of contents
Collapse the table of content
Expand the table of content

Assignment.PercentWorkComplete Property (Project)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

Gets or sets the percentage of work complete for an assignment. Read/write Variant.


expression. PercentWorkComplete

expression A variable that represents an Assignment object.


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 
 T.Marked = False 
 End If 
 Next T 

End Sub
© 2018 Microsoft