次の方法で共有


Project.LevelToDate プロパティ (Project)

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

構文

LevelToDate

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

注釈

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

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

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