Resource.MaxUnits 屬性 (Project)

取得或設定資源的最大百分比可用性。 讀取/寫入 Variant 。

語法

expression。 MaxUnits

表達 代表 Resource 物件的變數。

註解

可用性百分比會在 [資源資訊] 對話方塊中， [資源可用性] 格線之目前列的 [單位] 欄中指定。 目前列是 [可用起始] 及 [可用截止] 欄之間的日期範圍包含目前日期的位置。

MaxUnits 屬性不會傳回對材料資源有意義的任何資訊。 設定值會傳回可截獲的錯誤 (錯誤代碼 1101年) 套用於材料資源時。

範例

下面範例將使用中專案每一資源的最大可用量設定為使用者指定的數值。

Sub SetDefaultMaxUnits() 
 
 Dim Entry As String ' Maximum units specified by user 
 Dim R As Resource ' Resource object used in loop 
 
 Entry = InputBox$("Enter the default maximum units for each resource.") 
 
 If IsNumeric(Entry) Then 
 For Each R In ActiveProject.Resources 
 R.MaxUnits = Entry 
 Next R 
 Else 
 MsgBox ("You didn't enter a numeric value.") 
 End If 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。