从 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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。