Application.ResourceAssignment метод (Project)

Назначает, удаляет или заменяет ресурсы выбранных задач или изменяет количество единиц ресурса.

Синтаксис

выражение. ResourceAssignment (ресурсы, операция, с)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Ресурсы	Необязательный	String	Имена ресурсов, которые нужно назначить, удалить или заменить в выбранных задачах. Примечание Проект не будет назначать ресурс, если разделители групп разрядов или разделители дробной части включены в значения единиц измерения.
Операция	Необязательный	Long	Если опущен оператор , Project назначает ресурсы выбранным задачам. Значение по умолчанию — pjAssign. Может быть одной из констант PjResAssignOperation.
With	Необязательный	String	При использовании с константой pjReplace для операции указывает имена ресурсов, заменяющих ресурсы выбранных задач.

Константы PjResAssignOperation

Константа	Описание
pjAssign	Назначает указанные ресурсы выбранным задачам.
pjRemove	Удаляет указанные ресурсы из выбранных задач.
pjReplace	Ресурсы, указанные с помощью With , заменяют ресурсы, указанные в Resources.
pjChange	Изменяет единицы ресурса для указанного ресурса. Эту константу можно использовать только для одного ресурса.

Возвращаемое значение

Boolean

Примечания

Используйте параметр Resources , чтобы указать, что назначение ресурса запрашивается или запрашивается при использовании мастера замены ресурсов. Например, следующий макрос указывает, что назначение r1 выбранной задаче является запрошенным назначением.

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

Примечание.

При использовании таким образом параметра Resources D указывает "Спрос", R — "Запрос", а N — "Нет". Кроме того, не допускаются пробелы между значением единиц и значением запроса/требования. Например, 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 и обратная связь.