Объект 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 и обратная связь.