次の方法で共有


Month.Working プロパティ (Project)

該当 月の任意の日付が稼働日である場合。 読み取り/書き込みが可能な Boolean です。

構文

Working

Month オブジェクトを表す変数。

次の使用例は、作業中のプロジェクトの "Student" グループのリソースに対して、6 月、7 月、および 8 月をすべて非稼働日にします。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。