次の方法で共有

OverAllocatedAssignments.Item プロパティ (Project)

  • [アーティクル]

OverAllocatedAssignments コレクションから 1 つの 割り当て オブジェクトを取得します。 読み取り専用で 割り当て 。

構文

式。Item (インデックス)

式 '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 のサポートおよびフィードバックを参照してください。