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 方法會在 task.) 中建立分割。下列範例會在星期三到星期一的工作中建立分割。

ActiveCell.Task.Split "10/2/02", "10/7/02"

方法

名稱
Add

屬性

名稱
Application
數目
項目
Parent

另請參閱

Project 物件模型

支援和意見反應

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