Resource.MaxUnits プロパティ (Project)

  • [アーティクル]

取得またはリソースの最大のパーセントの可用性を設定します。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 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 のサポートおよびフィードバックを参照してください。