Объект доступности (проект)

Содержит коллекцию объектов доступности .

Пример

Использование коллекции "Доступность"

Используйте функцию Доступность( Индекс ), где Индекс — это номер индекса доступности, чтобы вернуть один объект доступности . В следующем примере возвращаются сведения о доступности указанного ресурса из первой строки сетки доступности ресурса .

MsgBox ActiveProject.Resources("Tom").Name & " is available from " & _  
    ActiveProject.Resources("Tom").Availabilities(1).AvailableFrom & " to " & _  
    ActiveProject.Resources("Tom").Availabilities(1).AvailableTo & "."  

Использование коллекции "Доступность"

Используйте свойство Availabilities для возврата коллекции Availables . В следующем примере отображается диапазон дат, в течение которых указанный ресурс доступен для работы.

Dim Avail As Availability  

For Each Avail In ActiveProject.Resources("Tom").Availabilities  
    MsgBox "From " & Avail.AvailableFrom & " to " & Avail.AvailableTo  
Next Avail

Используйте метод Add , чтобы добавить объект Availability в коллекцию Availability . В следующем примере в сетку доступности ресурса добавлена строка, показывающая, что указанный ресурс доступен только неполный рабочий день в течение апреля.

ActiveProject.Resources("Tom").Availabilities.Add "4/1/2012", "4/30/2012", 50

Методы

Имя
Add

Свойства

Имя
Application
Count
Item
Parent

См. также

Объектная модель Project

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

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