Свойство Resource.MaxUnits (Project)

Получает или задает максимальный процент доступности ресурса. Для чтения и записи, Variant.

Синтаксис

выражение. MaxUnits

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

Примечания

Процент доступности указывается в столбце Units текущей строки сетки Resource Availability в диалоговом окне Resource Information . Текущая строка содержит текущую дату, в которой диапазон дат между столбцами "Доступно от " и " Доступен д ." включает текущую дату.

Свойство MaxUnits не возвращает никакой значимой информации о материальных ресурсах. Установка значения возвращает перехватываемую ошибку (код ошибки 1101) при применении к материальным ресурсам.

Пример

В следующем примере максимальное количество единиц каждого ресурса в активном проекте задается по числу, указанному пользователем.

Sub SetDefaultMaxUnits() 
 
 Dim Entry As String ' Maximum units specified by user 
 Dim R As Resource ' Resource object used in loop 
 
 Entry = InputBox$("Enter the default maximum units for each resource.") 
 
 If IsNumeric(Entry) Then 
 For Each R In ActiveProject.Resources 
 R.MaxUnits = Entry 
 Next R 
 Else 
 MsgBox ("You didn't enter a numeric value.") 
 End If 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.