Years オブジェクト (Project)

Year オブジェクトのコレクションを格納します。

注釈

Projectの 年 のコレクションでは、1984 年に開始され、2149 の終了します。 プロジェクトの以前のバージョンでのスケジューリングを実行できます 1984 年から 2049 に。

例

Year オブジェクトの使い方

1 つの Year オブジェクトを返すには、Years ( Index) を使用します。Index は年インデックス番号です。 次の使用例は、選択したリソースごとに、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. 利用可能な年の一覧を取得する

プロパティ

名前
アプリケーション
Count
アイテム
Parent

関連項目

Project オブジェクト モデル

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。