Project) (SplitPart 物件

代表任務部分。 SplitPart 物件是 SplitParts 集合的成員。

範例

使用 SplitPart 物件

使用 SplitParts (索引 ) ， 其中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

使用 Task 物件) (Split 方法，將 SplitPart 物件新增至 SplitParts 集合。 (Split 方法會在工作中建立分割。) 下列範例會在 2012 年 10 月的工作中建立從星期三到星期一的分割。

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

方法

屬性

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。