Объект PayRates (Project)
Содержит коллекцию объектов PayRate .
Использование объекта PayRate
Используйте PayRates (Index ), гдеIndex — это номер индекса ставки оплаты или дата, для которой возвращаются ставки, чтобы вернуть один объект PayRate . В следующем примере возвращается стандартная ставка оплаты для первой строки ставок Тамары в таблице ценовых ставок C.
ActiveProject.Resources("Tamara").CostRateTables("C").PayRates(1).StandardRate
Использование коллекции PayRates
Используйте свойство PayRates , чтобы вернуть коллекцию PayRates . В следующем примере перечислены стандартные ставки оплаты для всех таблиц затрат ресурса в активной ячейке.
Dim CRT As CostRateTable
DIM 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 & vbCrLf
Next PR
Next CRT
MsgBox Rates
Используйте метод Add , чтобы добавить объект PayRate в коллекцию PayRates . В следующем примере в таблицу затрат Тамары "C" добавляется строка с датой вступления в силу 1 сентября 2012 г., стандартной ставкой 40,00 долл. США в час, ставкой сверхурочных 60,00 долл. США в час и стоимостью использования в размере 0 долл. США.
ActiveProject.Resources("Tamara").CostRateTables("C").PayRates.Add "9/1/2012", "$40/h", "$60/h", "$0"
Имя |
---|
Add |
Имя |
---|
Application |
Count |
Item |
Parent |
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.