Объект OverAllocatedAssignments (Project)

Статья
04/07/2023

Представляет коллекцию объектов Assignment , в которых ресурс является общим.

Замечания

Используйте свойство Item , чтобы получить один объект Assignment из коллекции OverAllocatedAssignments .

Пример

В следующем примере выполняется поиск назначений, в которых ресурс является общим. Если аргумент 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 overPeak As Boolean  
  
    overPeak = False  
  
    For Each t In ActiveProject.Tasks  
        If t.Overallocated Then  
            Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak)  
            numOver = overAlloc.Count  
            totalNumOver = overAlloc.TotalDetectedCount  
  
            For Each a In overAlloc  
                Debug.Print "Resource: " & a.Resource.Name & " is overallocated on task: " & t.Name  
                Debug.Print vbTab & "Number of overallocated assignments: " & numOver  
            Next a  
        End If  
    Next t  
End Sub

Свойства

Имя
Application
Count
Item
Parent
TotalDetectedCount

См. также

Объектная модель Project

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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