Project.StatusDate プロパティ (Project)

取得またはプロジェクトの現在の状況報告日を設定します。 状況報告日がない場合は、"NA"を返します。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 StatusDate

式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 のサポートおよびフィードバックを参照してください。