會從 OverAllocatedAssignments 集合取得單一 Assignment 物件。 唯讀 工作分派 。
語法
表情。項目 (索引)
詞 一個回傳「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 支援與意見反應。