次の方法で共有

Application.ResourceAssignment メソッド (Project)

  • [アーティクル]

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

構文

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

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

パラメーター

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

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

PjResAssignOperation 定数

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

戻り値

ブール型 (Boolean)

注釈

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

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

注:

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

リソースの切り替えウィザードでは、数量単価型リソースを置き換えることはできません。 そのため、 Resources パラメーターを使用して、特定の割り当てに対してマテリアル リソースを要求したり要求したりすることはできません。

例

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

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