Свойство Task. Граупбисуммари (Project)Task.GroupBySummary property (Project)

Имеет значение true , если выбранный элемент в представлении задач находится в суммарной строке группы; в противном случае — false.True if the selected item in a task view is in a group summary row; otherwise, False. Только для чтения, Boolean.Read-only Boolean.

СинтаксисSyntax

выражение.expression. GroupBySummary

Expression (выражение ) Переменная, представляющая объект Task .expression A variable that represents a Task object.

ПримечанияRemarks

При применении команды Group By к представлению задач в суммарных строках группы отображается определение группы в столбце Название задачи .When you apply a Group by command to a task view, the group summary rows show the group definition in the Task Name column. Если выбранная ячейка находится в строке суммарной задачи группы, свойство граупбисуммари имеет значение true.If a selected cell is in a group summary row, the GroupBySummary property is True.

Свойство граупбисуммари доступно через ActiveCell.Task свойство, а не с помощью ActiveProject.Tasks(x).The GroupBySummary property is accessible through the ActiveCell.Task property, not through ActiveProject.Tasks(x).

ПримерExample

В приведенном ниже примере применяется группировка по продолжительности в представлении диаграммы Ганта, после чего выбирается первая ячейка в каждой строке представления и проверяется, является ли строка суммарной.The following example applies the Duration grouping to the Gantt Chart view, and then selects the first cell in each row of the view and tests whether the row is a group summary. Процесс продолжается до тех пор, пока строка не будет пустой, а затем отображает окно сообщения с результатами проверки для каждой строки.The process continues until the row is empty, and then shows a message box with the test results for each row.

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

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.