次の方法で共有

Project.SpreadPercentCompleteToStatusDate プロパティ (Project)

  • [アーティクル]

True 編集タスク全体の達成率を分散している場合、状況報告日または現在の日付を状況報告日が"NA"である場合。 False の編集は、タスクの実績期間の終了日までの場合です。 読み取り/書き込みが可能な Boolean です。

構文

式。 SpreadPercentCompleteToStatusDate

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

例

次の使用例は、まず、作業中のプロジェクトの状況報告日を調べます。 既定の設定のまま、タスク全体の期間達成率の入力結果を状況報告日までとする場合は、状況報告日を入力するようにマクロで求めます。 タスクの合計達成率に対する編集がタスクの計算された終了日に分散されている場合、マクロは、編集を代わりに状態日付に分散させる必要があるかどうかをユーザーに求め、その場合は、使用する状態の日付を求めます。

Sub SpreadPercentComplete() 
 Dim NewStatus As Date, AskToSpread As Long 
 
 With ActiveProject 
 If .StatusDate = "NA" And .SpreadPercentCompleteToStatusDate Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 MsgBox "The status date was set to " & .StatusDate & "." 
 ElseIf .SpreadPercentCompleteToStatusDate = False Then 
 AskToSpread = MsgBox("Should changes to total task percent complete" & _ 
 " be spread to a status date?", vbYesNo) 
 If AskToSpread = vbYes Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 .SpreadPercentCompleteToStatusDate = True 
 MsgBox "The status date was set to " & .StatusDate & "." 
 End If 
 End If 
 End With 
 
End Sub

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

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