Freigeben über


Month.Working Property (Project)

True, Wenn ein beliebiger Tag im Monat einen Arbeitstag ist. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Working

Ausdruck Eine Variable, die ein Month-Objekt darstellt.

Beispiel

Im folgenden Beispiel werden Juni, Juli und August für Ressourcen der Gruppe Student des aktiven Projekts als arbeitsfreie Monate festgelegt.

Sub GiveStudentsSummerOff() 
 
 Dim R As Resource ' Resource object used in For Each loop 
 Dim Y As Year ' Year object used in For Each loop 
 
 ' Look for resources in the "Student" group of the active project. 
 For Each R In ActiveProject.Resources 
 
 ' Give the summer off to resources in the "Student" group. 
 If R.Group = "Student" Then 
 For Each Y In R.Calendar.Years 
 Y.Months("June").Working = False 
 Y.Months("July").Working = False 
 Y.Months("August").Working = False 
 Next Y 
 End If 
 
 Next R 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.