SplitPart 对象 (Project)

表示任务的某一部分。 SplitPart 对象是 SplitParts 集合的成员之一。

示例

使用 SplitPart 对象

使用 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 方法在 task 中创建拆分。) 以下示例在 2012 年 10 月的星期三到星期一的任务中创建拆分。

ActiveCell.Task.Split "10/3/2012", "10/8/2012"

方法

名称
Delete

属性

名称
Application
Finish
索引
Parent
Start

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。