Свойство OverAllocatedAssignments.Item (Project)

Статья
04/07/2023

Возвращает один объект Assignment из коллекции OverAllocatedAssignments . Назначение только для чтения.

Синтаксис

expression. Item (Index)

Выражение Выражение, возвращающее объект OverAllocatedAssignments.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	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 и обратная связь.

Поделиться через