Свойство Resource.PayRates (Project)

Возвращает коллекцию PayRates , представляющую различные ставки оплаты в таблице ставки затрат для ресурса. PayRates только для чтения.

Синтаксис

выражение. PayRates

Выражение Переменная, представляющая объект Resource .

Замечания

Для объекта Resource свойство PayRates возвращает ставки оплаты для таблицы затрат A, таблицы по умолчанию.

Пример

В следующем примере перечислены стандартные ставки оплаты для всех таблиц затрат ресурса в активной ячейке.

Sub ListPayRates() 
 Dim CRT As CostRateTable, PR As PayRate 
 Dim Rates As String 
 
 For Each CRT In ActiveCell.Resource.CostRateTables 
 For Each PR In CRT.PayRates 
 Rates = Rates & "CostRateTable " & CRT.Name & ": " & _ 
 PR.StandardRate & " (Effective " & PR.EffectiveDate & _ 
 ")" & vbCrLf 
 Next PR 
 Next CRT 
 
 MsgBox Rates 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.