Объект GroupCriteria2 (Project)

Содержит коллекцию объектов GroupCriterion2 , где можно поддерживать иерархию групп, а цвет ячейки может быть шестнадцатеричным значением.

Пример

Использование объекта GroupCriterion2

Используйте **GroupCriteria2(**Index), гдеIndex — индекс критерия, чтобы вернуть один объект GroupCriterion2 . В следующем примере цвет ячейки для первого критерия в группе ресурсов Standard Rate задается синим.

ActiveProject.ResourceGroups2("Standard Rate").GroupCriteria2(1).CellColor = &HFF0000

Использование коллекции GroupCriteria2

Используйте свойство GroupCriteria , чтобы вернуть коллекцию GroupCriteria2 . В следующем примере отображается список полей, используемых в качестве критериев в указанной группе задач, и показано, отсортированы ли они по возрастанию или убыванию.

Dim GC2 As GroupCriterion2  
Dim Fields As String  
  
For Each GC2 In ActiveProject.TaskGroups2("Priority Keeping Outline Structure").GroupCriteria  
    If GC2.Ascending = True Then  
       Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in ascending order." _
           & vbCrLf  
    Else  
        Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in descending order." _
           & vbCrLf  
    End If  
Next GC2  

MsgBox Fields

Используйте метод AddEx , чтобы добавить объект GroupCriterion2 в коллекцию GroupCriteria2 , где CellColor может быть шестнадцатеричным значением. В следующем примере добавляется еще одно условие к указанной группе ресурсов, группируя ресурсы в порядке возрастания, определяемом процентом выполнения их работы (с шагом в 25 процентов).

ActiveProject.ResourceGroups2("Response Pending").GroupCriteria2.AddEx "% Work Complete", True, _  
    CellColor:=&H0101FF, GroupOn:=pjGroupOnPct1_25

Методы

Имя
Add
AddEx

Свойства

Имя
Application
Count
Item
Parent

См. также

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

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

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