Свойство Task.Summary (Project)
Значение True , если задача является суммарной задачей. Только для чтения, Boolean.
expression. Сводка
Выражение Переменная, представляющая объект Task .
В следующем примере проверяется, имеют ли сводные задачи в активном проекте назначения.
Примечание
Назначения не должны выполняться для суммарных задач.
Sub CheckAssignmentsOnSummaryTasks()
Dim tsk As Task
Dim message As String
Dim numAssignments As Integer
Dim numSummaryTasksWithAssignments As Integer
Dim msgStyle As VbMsgBoxStyle
message = ""
numSummaryTasksWithAssignments = 0
For Each tsk In ActiveProject.Tasks
If tsk.Summary Then
numAssignments = tsk.Assignments.Count
If numAssignments > 0 Then
message = message & "Summary task ID (" & tsk.ID & "): " & tsk.Name _
& ": " & numAssignments & " assignments" & vbCrLf
numSummaryTasksWithAssignments = numSummaryTasksWithAssignments + 1
End If
End If
Next tsk
If numSummaryTasksWithAssignments > 0 Then
message = "There are " & numSummaryTasksWithAssignments _
& " summary tasks that have assignments." & vbCrLf & vbCrLf & message
msgStyle = vbExclamation
Else
message = "No summary tasks have assignments."
msgStyle = vbInformation
End If
MsgBox message, msgStyle, "Summary Task Check"
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.