Project (的 GroupCriteria2 物件)

會包含 GroupCriterion2 物件的集合，其中的群組階層可以維護且儲存格色彩可以是十六進位值。

範例

使用 GroupCriterion2 物件

使用 **GroupCriteria2 (**Index) ，其中Index是準則索引，可傳回單一GroupCriterion2物件。 下列範例會設定為藍色標準工資率資源群組中的第一個準則的儲存格色彩。

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
數目
項目
Parent

另請參閱

Project 物件模型

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。