Свойство 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 и обратная связь.