Resource.PercentWorkComplete 属性 (Project)
获取或设置资源已完成工时的百分比。 只读变体。
语法
expression。 PercentWorkComplete
表达 一个代表 Resource 对象的变量。
示例
下面的示例对于活动项目中其完成工作的百分比超过用户指定百分比的每个任务将 Marked 属性设置为 True 。
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
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。