Freigeben über


GroupCriterion2-Objekt (Project)

Stellt ein Kriterium in einer Gruppendefinition, in dem die Gruppenhierarchie verwaltet und die Zellfarbe ein Hexadezimalwert sein kann. GroupCriterion2 -Objekt ist ein Mitglied der GroupCriteria2 -Auflistung.

Beispiel

Verwenden des GroupCriterion2-Objekts

Verwenden Sie **GroupCriteria2(**Index), wobeiIndex der Kriterienindex ist, um ein einzelnes GroupCriterion2-Objekt zurückzugeben. Im folgende Beispiel wird die Zellfarbe für das erste Kriterium in der Ressourcengruppe Standard Rate auf Blau festgelegt.

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

Verwenden des GroupCriterion2-Objekts

Verwenden Sie die GroupCriteria -Eigenschaft, um eine GroupCriteria2 -Auflistung zurückzugeben. Im folgenden Beispiel wird eine Liste der Felder, die in der angegebenen Vorgangsgruppe als Kriterien verwendet werden, und deren Sortierreihenfolge (aufsteigend oder absteigend) angezeigt.

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

Verwenden Sie die AddEx-Methode, um der GroupCriteria2-Auflistung ein GroupCriterion2-Objekt hinzuzufügen, wobei CellColor ein Hexadezimalwert sein kann. Im folgenden Beispiel wird der angegebenen Ressourcengruppe ein weiteres Kriterium hinzugefügt, wobei die Ressourcen in aufsteigender Reihenfolge gemäß des Prozentsatzes der abgeschlossenen Arbeit (in Schritten von 25 %) gruppiert werden.

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

Methoden

Name
Delete

Eigenschaften

Name
Application
Aufsteigend
Assignment
CellColor
CellColorEx
FieldName
FontBold
FontColor
FontColorEx
FontItalic
FontName
FontSize
FontUnderLine
GroupInterval
GroupOn
Index
Parent
Pattern
StartAt

Siehe auch

Project-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.