共用方式為

Project) (Availabilities 物件

  • 發行項

會包含 Availability 物件的集合。

範例

使用 Availabilities 集合

使用 Availabilities ( 索引 ） ，其中 Index 是可用的索引編號，可傳回單一的 可用性 物件。 下列範例會從指定之資源的 資源可用性 格線的第一行傳回的可用性資訊。

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

使用 Availabilities 集合

使用 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
數目
項目
Parent

另請參閱

Project 物件模型

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。