Project.LevelFromDate プロパティ (Project)

  • [アーティクル]

取得または割り当て超過のリソースを平準化範囲の開始日を設定します。 既定ではプロジェクトの開始日または最後に入力された日付値です。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 LevelFromDate

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

注釈

リソースの平準化] ダイアログ ボックスで、 LevelFromDate プロパティを設定することもできます。 設定にアクセスするに、リボンの [ リソース] タブの [ 平準化のオプションをクリックして レベルのオプションをクリックし 、 日付を設定します。

例

次の使用例は、現在の平準化範囲がプロジェクトの開始日で始まる場合、またはプロジェクトの終了日で終わる場合に、平準化を実行する平準化範囲をユーザーが変更できるようにします。

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 End If 
 End If 
 End With 
 
End Sub

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

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