通过

OverAllocatedAssignments.Item 属性 (Project)

  • 项目

从 OverAllocatedAssignments 集合中获取单个 工作分配 对象。 只读的 工作分配 。

语法

表达式。项 (索引)

表达 返回“OverAllocatedAssignments”对象的表达式。

参数

名称 必需/可选 数据类型 说明
Index 必需 Long 返回 工作分配 的索引号。

示例

下面的示例查找工作分配过度分配资源所在。 OverPeak 参数为 False ，过度分配时不大于可用资源的最大时间 （100%)。 如果将 overPeak 设置为 True ，则查找过度分配的工作分配超过可用，如 150%的资源的最大时间。

Sub FindOverallocatedAssignments() 

 Dim t As Task 

 Dim a As Assignment 

 Dim overAlloc As OverAllocatedAssignments 

 Dim numOver As Long 

 Dim i As Long 

 Dim overPeak As Boolean 

 

 overPeak = True 

 

 For Each t In ActiveProject.Tasks 

 If t.Overallocated Then 

 Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak) 

 numOver = overAlloc.Count 

 totalNumOver = overAlloc.TotalDetectedCount 

 

 For i = 1 To numOver 

 Set a = overAlloc.Item(i) 

 Debug.Print "Task: " & t.Name & " - Overallocated resource: " _ 

 & a.ResourceName 

 Debug.Print vbTab & "Resource peak: " & a.Peak 

 Next i 

 End If 

 Next t 

End Sub

另请参阅

OverAllocatedAssignments 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。