Свойство 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 и обратная связь.