次の方法で共有


Resource.Level メソッド (Project)

リソースを平準化します。

構文

Level

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

次の使用例は、選択されているタスクのリソースを平準化します。

Sub LevelResourcesInSelectedTasks() 
    Dim T As Task ' Task object used in For Each loop 
    Dim A As Assignment ' Assignment object used in For Each loop 
 
    For Each T In ActiveSelection.Tasks 
        For Each A In T.Assignments 
            If ActiveProject.Resources(A.ResourceID).Overallocated Then 
                ActiveProject.Resources(A.ResourceID).Level 
            End If 
        Next A 
    Next T 
End Sub

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

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