Propiedad Assignments.Count (Project)

Obtiene el número de elementos de la colección de asignaciones. Long de sólo lectura.

Sintaxis

expresión. Contar

expresión Variable que representa un objeto "Assignments".

Ejemplo

En el siguiente ejemplo, se 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

Vea también

Assignments (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.