OverAllocatedAssignments 物件 (Project)

代表資源已過度分派之 Assignment 物件的集合。

註解

使用 Item 屬性可以從 OverAllocatedAssignments 集合取得單一 Assignment 物件。

範例

下列範例會尋找工作分派之資源所在過度分派。 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 overPeak As Boolean  
  
    overPeak = False  
  
    For Each t In ActiveProject.Tasks  
        If t.Overallocated Then  
            Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak)  
            numOver = overAlloc.Count  
            totalNumOver = overAlloc.TotalDetectedCount  
  
            For Each a In overAlloc  
                Debug.Print "Resource: " & a.Resource.Name & " is overallocated on task: " & t.Name  
                Debug.Print vbTab & "Number of overallocated assignments: " & numOver  
            Next a  
        End If  
    Next t  
End Sub

屬性

名稱
Application
數目
項目
Parent
TotalDetectedCount

另請參閱

Project 物件模型

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。