Months.Count プロパティ (Project)

1984 年から 2149 年の間で指定された年の Months コレクションの、アイテム数を取得します。 整数型 (Integer) の値を使用します。

構文

式。カウント

式 'Months' オブジェクトを表す変数。

例

VBE の [イミディエイト] ウィンドウの次の例では、2012 年の月数である 12 が返されます。 年を 1983 または 2150 に設定した場合、結果は "ランタイム エラー '1101" になります。引数が無効です。

? activeproject.Resources(1).Calendar.Years(2012).Months.Count

次の使用例は、 Assignments オブジェクトの Count プロパティの使用方法を示します。 ユーザーにリソースの名前を入力するように求めるメッセージを表示し、そのリソースをリソースが割り当てられていないタスクに割り当てます。

Sub AssignResource()  
    Dim T As Task ' Task object used in For Each loop  
    Dim R As Resource ' Resource object used in For Each loop  
    Dim Rname As String ' Resource name  
    Dim RID As Long ' Resource ID  
  
    RID = 0  
    RName = InputBox$("Enter the name of a resource: ")  
  
    For Each R in ActiveProject.Resources  
        If R.Name = RName Then  
            RID = R.ID  
            Exit For  
        End If  
    Next R  
  
    If RID <> 0 Then  
        ' Assign the resource to tasks without any resources.  
        For Each T In ActiveProject.Tasks  
            If T.Assignments.Count = 0 Then  
                T.Assignments.Add ResourceID:=RID  
            End If
        Next T
    Else  
        MsgBox Prompt:=RName & " is not a resource in this project.", buttons:=vbExclamation
    End If
End Sub

関連項目

Months コレクション オブジェクト

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

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