Propriedade OverAllocatedAssignments.Item (Project)

Artigo
04/07/2023

Obtém um único objeto Assignment da coleção OverAllocatedAssignments. Somente leitura atribuição.

Sintaxe

expressão. Item (Índice)

Expressão Uma expressão que retorna um objeto 'OverAllocatedAssignments'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	O número de índice de atribuição a ser retornado.

Exemplo

O exemplo a seguir localiza atribuições onde o recurso está superalocado. Quando o argumento overPeak for False, a superalocação não for maior do que o tempo de recurso máximo disponível (100%). Se você definir overPeak como True, o exemplo localiza atribuições superalocadas que excedem o tempo de recurso máximo disponível, como 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

Confira também

Objeto da coleção OverAllocatedAssignments

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via