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

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

Синтаксис

выражение. CostRateTables

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

Пример

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

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