專案) (Years 物件
包含 Year 物件的集合。
Project中的 Years 集合開始於 1984 年,結束 2149年中。 在舊版的專案、 排程可以執行從 1984年 2049年。
使用 Year 集合物件
使用 Years ( Index) ,其中 Index 是年份索引編號,可傳回單一 Year 物件。 下列範例會計算每個選定資源 2012 年 9 月中的工作天數目。
Dim r As Resource
Dim d As Integer
Dim workingDays As Integer
Dim theMonth As PjMonth
theMonth = pjSeptember
For Each r In ActiveSelection.Resources()
workingDays = 0
With r.Calendar.Years(2012).Months(theMonth)
For d = 1 To .Days.Count
If .Days(d).Working = True Then
workingDays = workingDays + 1
End If
Next d
End With
MsgBox "There are " & workingDays & " working days in " _
& r.Name & "'s calendar for month " & theMonth
Next r
使用 Years 集合
使用 Years 屬性,可以傳回一個 Years 集合。 下面範例列出使用中專案行事曆的所有年份。
Sub CountYears()
Dim c As Long
Dim temp As String
For c = 1 To ActiveProject.Calendar.Years.Count
temp = temp & ListSeparator & " " & _
ActiveProject.Calendar.Years(c + 1983).Name
Next c
MsgBox Right$(temp, Len(temp) - Len(ListSeparator & " "))
End Sub
圖 1 顯示的 CountYears巨集的結果。
圖 1: 取得可用年份的清單
名稱 |
---|
Application |
數目 |
項目 |
Parent |
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。