Объект GroupCriterion (Project)

Представляет критерий в определении группы. Объект GroupCriterion является членом коллекции GroupCriteria .

Замечания

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

Пример

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

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

ActiveProject.ResourceGroups("Standard Rate").GroupCriteria(1).CellColor = pjBlue

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

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

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

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

ActiveProject.ResourceGroups("Response Pending").GroupCriteria.Add "% Work Complete", True, CellColor:=pjRed, GroupOn:=pjGroupOnPct1_25

Методы

Имя
Delete

Свойства

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

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

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