Application.ResourceAssignment メソッド (Project)

選択したタスクのリソースの割り当て、削除、置き換えを行います。また、リソースの単位数を変更します。

構文

式。ResourceAssignment (リソース、 操作、 使用)

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

パラメーター

名前 必須 / オプション データ型 説明
リソース 省略可能 String 割り当てられますが、リソースの名前は、削除、または選択したタスクに置き換えられます。

注釈 単位の値に桁区切り記号または小数点区切り記号が含まれている場合、Project はリソースを割り当てません。
操作 省略可能 Long [ 操作] を省略すると、選択したタスクにリソースが割り当てられます。 既定値は pjAssign です。 PjResAssignOperation 定数の 1 つを指定できます。
With 省略可能 String Operation の pjReplace 定数と共に使用すると、選択したタスクのリソースを置き換えるリソースの名前を指定します。

PjResAssignOperation 定数

定数 説明
pjAssign 選択したタスクに指定したリソースが割り当てられます。
pjRemove 選択したタスクから指定したリソースが削除されます。
pjReplace With で指定されたリソースは、Resources で指定されたリソースを置き換えます。
pjChange 指定したリソースの単位数が変更されます。 この定数は、単一のリソースでのみ使用できます。

戻り値

ブール型 (Boolean)

注釈

リソース パラメータを使用して 、リソース置換ウィザードの使用時にリソース割り当てを要求または要求するように指定します。 たとえば、次のマクロは、選択したタスクへの r1 の割り当てが要求された割り当てを指定します。

Sub RequestAssignment()
    ResourceAssignment Resources:="r1[100%, R]", Operation:=pjChange, With:="" 
End Sub

注:

このように Resources パラメーターを使用する場合、 D は "Demand"、 R は "Request"、 N は "None" を指定します。また、ユニット値と要求/要求値の間にスペースは使用できません。 例、 Resources:="100%,R"動作しますが、 Resources:="100%, R"をしていないのです。

リソースの切り替えウィザードでは、数量単価型リソースを置き換えることはできません。 したがって、 "リソース" パラメーターを使用して、特定の割り当ての資材リソースを要求または要求することはできません。

例

次の使用例は、リソース名の入力を求めるメッセージを表示し、そのリソースを選択したタスクに割り当てます。

Sub AssignResourceToSelectedTasks() 
 
    Dim Entry As String     ' The name of the resource to add to selected tasks 
    Dim R As Resource       ' Resource object used in For Each...Next loop 
    Dim Found As Boolean    ' Whether or not the resource is in the active project 
 
    Entry = InputBox$("Enter the name of the resource you want to add to the selected tasks.") 
     
    ' Assume resource doesn't exist in the active project. 
    Found = False 
 
    ' Look for the resource. 
    For Each R In ActiveProject.Resources 
        If Entry = R.Name Then Found = True 
    Next R 
 
    ' If the resource is found, then assign it to selected tasks. 
    If Found Then 
        ResourceAssignment Resources:=Entry, Operation:=pjAssign 
    ' Otherwise, tell user the resource doesn't exist. 
    Else 
        MsgBox ("There is no resource in the active project named " & Entry & ".") 
    End If 
     
End Sub

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

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

  • Last updated on