Метод Application.ResourceAssignment (Project)

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

Синтаксис

expression. ResourceAssignment (Resources, Operation, With)

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

Параметры

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

Константы PjResAssignOperation

Константа	Описание
pjAssign	Назначает выбранным задачам указанные ресурсы.
pjRemove	Удаляет указанные ресурсы из выбранных задач.
pjReplace	Ресурсы, указанные в поле С , заменяют ресурсы, указанные в поле 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 и обратная связь.