Propriedade Resource.CostRateTables (Project)

Obtém uma coleção CostRateTables que representam as tabelas de taxas de custo do recurso. Somente leitura CostRateTables.

Sintaxe

expression. CostRateTables

Expressão Uma variável que representa um objeto Resource .

Exemplo

O exemplo a seguir lista as remunerações padrão para todas as tabelas de taxas de custo do recurso na célula ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.