Task.GroupBySummary プロパティ (Project)

True を指定 すると、タスク ビューで選択した項目がグループのサマリー行に含まれます。それ以外の場合は False。 読み取り専用の Boolean です。

構文

式。 GroupBySummary

式Task オブジェクトを表す変数。

注釈

タスク ビューに グループ化のコマンドを適用すると、グループ サマリー行は、[ タスク名] 列のグループ定義を表示します。 選択したセルがグループ サマリー行である場合は、 GroupBySummary プロパティが True にします。

GroupBySummary プロパティは、プロパティの ActiveCell.Taskから、 ActiveProject.Tasks(x)ではなくアクセスできます。

例

次の例は、[ガント チャート] ビューに "Duration" グループを適用した後、ビューの各行の最初のセルを選択し、その行がグループ サマリー行かどうかを調べます。 この処理は空の行が見つかるまで続行され、各行の調査結果を示すメッセージ ボックスが表示されます。

Sub ShowGroupByItems() 
 Dim isValid As Boolean 
 Dim tsk As Task 
 Dim rowType As String 
 Dim msg As String 
 
 isValid = True 
 msg = "" 
 
 ActiveProject.Views("Gantt Chart").Apply 
 GroupApply Name:="Duration" 
 Application.SelectBeginning 
 
 ' When a cell in an empty row is selected, accessing the ActiveCell.Task 
 ' property results in error 1004. 
 On Error Resume Next 
 
 ' Loop until a cell in an empty row is selected. 
 While isValid 
 Set tsk = ActiveCell.Task 
 
 If Err.Number > 0 Then 
 isValid = False 
 Debug.Print Err.Number 
 Err.Number = 0 
 Else 
 If tsk.GroupBySummary Then 
 rowType = "' is a group-by summary row." 
 Else 
 rowType = "' is a task row." 
 End If 
 
 msg = msg & "Task name: '" & tsk.Name & rowType & vbCrLf 
 SelectCellDown 
 End If 
 Wend 
 
 MsgBox msg, vbInformation, "GroupBy Summary for Tasks" 
 
End Sub

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

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