OverAllocatedAssignments オブジェクト (Project)

リソースが割り当て超過となっている Assignment オブジェクトのコレクションを表します。

注釈

OverAllocatedAssignments コレクションから単一の Assignment オブジェクトを取得するには、Item プロパティを使用します。

例

次の使用例は、割り当て超過のリソースを検索します。 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

プロパティ

名前
アプリケーション
Count
アイテム
Parent
TotalDetectedCount

関連項目

Project オブジェクト モデル

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。