(Project) 的 Months 物件
包含 Month 物件的集合。
使用 Months (Index ) ,其中Index 是月份索引編號、月份名稱或 PjMonth 常數,可傳回單一 Month 物件。
使用 Months 集合物件
下列範例會計算每個月的 2012年針對每個選定資源的工作天數目。
Dim R As Resource
Dim D As Integer, M As Integer, WorkingDays As Integer
For Each R In ActiveSelection.Resources()
WorkingDays = 0
With R.Calendar.Years(2012)
For M = 1 To .Months.Count
WorkingDays = 0
For D = 1 To .Months(M).Days.Count
If .Months(M).Days(D).Working = True Then
WorkingDays = WorkingDays + 1
End If
Next D
MsgBox "There are " & WorkingDays & " working days in " & _
.Months(M).Name & " for " & R.Name & "."
Next M
End With
Next R
使用 Months 集合物件
使用 Months 屬性可傳回 Months 集合。 下列範例會計算 2012年中的月數。
ActiveProject.Calendar.Years(2012).Months.Count
名稱 |
---|
Application |
數目 |
項目 |
Parent |
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。