OverAllocatedAssignments.Item-Eigenschaft (Project)

Artikel
04/07/2023

Ruft ein einzelnes Assignment -Objekt aus der OverAllocatedAssignments -Auflistung ab. Read-only Zuordnung.

Syntax

Ausdruck. Element (Index)

Ausdruck Ein Ausdruck, der ein OverAllocatedAssignments-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Long	Die Indexnummer des zurückzugebenden Zuordnung.

Beispiel

Das folgende Beispiel sucht Zuordnungen, in dem die Ressource überlastet ist. Wenn das Argument OverPeak auf False festgelegt ist, ist die Überlastung nicht größer als die maximale Zeit (100 %). Wenn Sie OverPeak auf True festlegen, sucht das Beispiel überlastete Zuordnungen, die maximale Zeit zur Verfügung, wie etwa 150 % überschreiten.

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

Siehe auch

OverAllocatedAssignments-Auflistung (Objekt)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über