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 のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示