Объект GroupCriterion2 (Project)

  • Статья

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

Пример

Использование объекта 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

Методы

Имя
Delete

Свойства

Имя
Application
Ascending
Assignment
CellColor
CellColorEx
FieldName
FontBold
FontColor
FontColorEx
FontItalic
FontName
FontSize
FontUnderLine
GroupInterval
GroupOn
Index
Parent
Pattern
StartAt

См. также

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

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

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