Compartir a través de


Propiedad OverAllocatedAssignments.Item (Project)

Obtiene un único objeto de asignación de la colección OverAllocatedAssignments. Sólo lectura de la asignación.

Sintaxis

expresión. Elemento (índice)

Expresión Expresión que devuelve un objeto "OverAllocatedAssignments".

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Index Obligatorio Long El número de índice de la asignación para devolver.

Ejemplo:

En el ejemplo siguiente se busca asignaciones donde el recurso está sobreasignado. Cuando el argumento overPeak es False, la sobreasignación no es mayor que el tiempo máximo de recursos disponible (100%). Si overPeak se establece en True, el ejemplo busca sobreasignadas asignaciones que superan el tiempo máximo de recursos disponible, como el 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

Consulte también

Objeto de colección OverAllocatedAssignments

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.