Propiedad Months.Count (Project)

Obtiene el número de elementos de la colección de meses de un año específico de 1984 2149. Integer de solo lectura.

Sintaxis

expresión. Contar

Expresión Variable que representa un objeto 'Months'.

Ejemplos

El ejemplo siguiente en la ventana inmediato de VBE devuelve 12, el número de meses en 2012. Si se establece el año en 1983 o 2150, el resultado es "error en tiempo de ejecución '1101'; el argumento no es válido."

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

El ejemplo siguiente muestra el uso de la propiedad Count para el objeto Assignments. Solicita al usuario el nombre de un recurso y, a continuación, se asigna dicho recurso a las tareas que no tienen ningún 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

Consulte también

Months (objeto de colección)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.