次の方法で共有

Resource.CostPerUse プロパティ (Project)

  • [アーティクル]

取得またはリソースの導入コストを設定します。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 CostPerUse

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

例

次の使用例は、作業中のプロジェクトにおける各リソースの導入コストの合計を表示します。

Sub TotalCostPerUse() 
 
 Dim R As Resource ' Resource object used in For Each loop 
 Dim TotalCostPerUse As Double ' The total cost per use 
 
 ' Add up the cost per use of each resource. 
 For Each R In ActiveProject.Resources 
 TotalCostPerUse = TotalCostPerUse + R.CostPerUse 
 Next R 
 
 ' Display the total cost per use. 
 MsgBox ("Sum of the cost per use of each resource in this project: " & TotalCostPerUse) 
 
End Sub

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

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