次の方法で共有

GroupCriteria オブジェクト (Project)

GroupCriterion オブジェクトのコレクションを格納します。

解説

グループ階層を維持し、セルの色を 16 進値で指定するグループの場合は、 GroupCriteria2 コレクション オブジェクトを使用します。

例

GroupCriterion オブジェクトを使用する

単一の GroupCriterion オブジェクトを返すには、**GroupCriteria(**Index)を使用します。Index は基準インデックスです。 青に標準単価リソース グループ内の最初の条件のセルの色を設定する例を次にします。

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

GroupCriteria コレクションに GroupCriterion オブジェクトを追加するには、Add メソッドを使用します。 次の例は、指定したリソース グループに新しいグループ化条件、つまり、作業時間の達成率 25% ごとにグループ化し、昇順に並べ替えるという条件を追加します。

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

メソッド

名前
Add

プロパティ

名前
アプリケーション
Count
アイテム
Parent

関連項目

Project オブジェクト モデル

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。