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