Resource.CostRateTables 属性 (Project)

获取一个表示资源的成本费率表的 CostRateTables 集合。 只读的 CostRateTables 。

语法

expression。 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。