Task.WBSPredecessors プロパティ (Project)

作業内訳の区切り記号で区切られた、タスクの先行タスクの構造 (WBS) コードを取得します。 読み取りのみ可能な String 値です。

構文

式。 WBSPredecessors

式Task オブジェクトを表す変数。

例

次の使用例は、タスク ID を入力すると、そのタスクの先行タスクの WBS 番号を示します。

Sub EnumeratePredecessors() 
 Dim Task As Task 
 Dim PredTasks As Tasks 
 Dim ID As Long 
 Dim Predecessors As String 
 Dim List As String 
 Dim Count As Integer 
 
 ID = CLng(InputBox$("Enter the ID number of the task you wish to examine:")) 
 
 Set Task = ActiveProject.Tasks(ID) 
 Set PredTasks = Task.PredecessorTasks 
 Predecessors = Task.WBSPredecessors 
 Count = 1 
 
 If PredTasks.Count = 0 Then 
 List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no predecessors." 
 Else 
 List = "Predecessors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf 
 Do While InStr(Predecessors, ListSeparator) <> 0 
 List = List & PredTasks(Count).Name & ": " & Mid$(Predecessors, 1, InStr(Predecessors, ListSeparator) - 1) & vbCrLf 
 Predecessors = Right$(Predecessors, Len(Predecessors) - InStr(Predecessors, ListSeparator)) 
 Count = Count + 1 
 Loop 
 List = List & PredTasks(Count).Name & ": " & Predecessors 
 End If 
 
 MsgBox List 
 
 Set PredTasks = Nothing 
 Set Task = Nothing 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。