Propriedade Months.Count (Project)

  • Artigo

Obtém o número de itens na coleção meses de um ano especificado do 1984-2149. Integer somente leitura.

Sintaxe

expressão. Contar

Expressão Uma variável que representa um objeto 'Months'.

Exemplos

O exemplo a seguir na janela imediato do VBE retorna 12, o número de meses no 2012. Se você definir o ano 1983 ou 2150, o resultado é o "erro de tempo de execução '1101'; o argumento não é válido."

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

O exemplo a seguir mostra o uso da propriedade Count para o objeto Assignments. Ele solicita ao usuário o nome de um recurso e, em seguida, atribui esse recurso às tarefas sem nenhum recurso.

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

Confira também

Objeto Months Collection

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.