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