Свойство Months.Count (Project)

Получает количество элементов в коллекции "Месяцы " за указанный год в диапазоне с 1984 по 2149. Только для чтения, Integer.

Синтаксис

выражение. Число

выражение Переменная, представляющая объект Months.

Примеры

В следующем примере в окне интерпретации VBE возвращается значение 12 (количество месяцев в 2012 г.). Если установить год 1983 или 2150, результатом будет "Ошибка выполнения '1101'; этот аргумент недействителен».

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

В следующем примере показано использование свойства Count для объекта Assignments . Она предлагает пользователю назвать имя ресурса, а затем назначает этот ресурс задачам, у которых нет ресурсов.

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

См. также

Объект-коллекция "Месяцы"

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

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