Объект Availabilities (Project)

Статья
04/07/2023

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

Пример

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

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

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

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

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

Dim Avail As Availability  

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

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

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

Методы

Имя
Add

Свойства

Имя
Application
Count
Item
Parent

См. также

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

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

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

Поделиться через