Свойство Cell.Task (Project)
Возвращает объект Task, представляющий задачу в активной ячейке. Задача только для чтения.
выражение. Task
Выражение Переменная, представляющая объект Cell .
В следующем примере отображаются имена всех задач на том же уровне структуры, что и выбранная задача.
Sub Siblings()
Dim MyParent As Task
Dim Sibling As Task
Dim Temp As String
Set MyParent = ActiveCell.Task.OutlineParent
For Each Sibling In MyParent.OutlineChildren
Temp = Sibling.Name & ListSeparator & " " & Temp
Next Sibling
Temp = Left$(Temp, Len(Temp) - Len(ListSeparator & " "))
MsgBox Temp
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.