Объект SplitParts (Project)
Содержит коллекцию объектов SplitPart .
Пример
Использование объекта коллекции SplitParts
Используйте SplitParts (Index ), гдеIndex — это номер индекса задачи, чтобы вернуть один объект SplitPart . В следующем примере перечислены время начала и окончания каждой части задачи в активной ячейке.
Dim Part As Long, Portions As String
For Part = 1 To ActiveCell.Task.SplitParts.Count
With ActiveCell.Task
Portions = Portions & "Task portion " & Part & ": Start on " & _
.SplitParts(Part).Start & ", Finish on " & _
.SplitParts(Part).Finish & vbCrLf
End With
Next Part
MsgBox Portions
Использование коллекции SplitParts
Используйте свойство SplitParts , чтобы вернуть коллекцию SplitParts . В следующем примере возвращается количество частей задачи для каждой задачи в активном проекте.
Dim T As Task
For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
MsgBox T.Name & ": " & T.SplitParts.Count
End If
Next T
Используйте метод Split (объект Task ), чтобы добавить объект SplitPart в коллекцию SplitParts . (Метод Split создает разделение в задаче.) В следующем примере создается разделение задачи со среды на понедельник.
ActiveCell.Task.Split "10/2/02", "10/7/02"
Методы
| Имя |
|---|
| Add |
Свойства
| Имя |
|---|
| Application |
| Count |
| Item |
| Parent |
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.