Task.WBSSuccessors プロパティ (Project)
作業内訳の区切り記号で区切られた、タスクの後続タスクの構造 (WBS) コードを取得します。 読み取りのみ可能な String 値です。
構文
式。 WBSSuccessors
式Task オブジェクトを表す変数。
例
次の使用例は、タスク ID を入力すると、そのタスクの後続タスクの WBS 番号を示します。
Sub EnumerateSuccessors()
Dim Task As Task
Dim SuccTasks As Tasks
Dim ID As Long
Dim Successors 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 SuccTasks = Task.SuccessorTasks
Successors = Task.WBSSuccessors
Count = 1
If SuccTasks.Count = 0 Then
List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no successors."
Else
List = "Successors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf
Do While InStr(Successors, ListSeparator) <> 0
List = List & SuccTasks(Count).Name & ": " & Mid$(Successors, 1, InStr(Successors, ListSeparator) - 1) & vbCrLf
Successors = Right$(Successors, Len(Successors) - InStr(Successors, ListSeparator))
Count = Count + 1
Loop
List = List & SuccTasks(Count).Name & ": " & Successors
End If
MsgBox List
Set SuccTasks = Nothing
Set Task = Nothing
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示