Szerkesztés

Megosztás a következőn keresztül:

Resource.Overallocated property (Project)

  • Cikk

True if a resource is overallocated. Read-only Boolean.

Syntax

expression. Overallocated

expression A variable that represents a Resource object.

Remarks

The Overallocated property does not return any meaningful information for material resources.

Example

The following example displays the percentage of resources in the active project that are overallocated.

Sub DisplayOverallocatedPercentage() 
 
 Dim R As Resource ' Resource object used in For Each loop 
 Dim NOverallocated As Long ' Number of overallocated resources 
 
 For Each R In ActiveProject.Resources 
 If R.Overallocated Then NOverallocated = NOverallocated + 1 
 Next R 
 
 MsgBox (Str$((NOverallocated / ActiveProject.Resources.Count) * 100) _ 
 & " percent (" & Str$(NOverallocated) & "/" & Str$(ActiveProject.Resources.Count) _ 
 & ")" & " of the resources in this project are overallocated.") 
 
End Sub

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.