會取得代表資源成本比率表的 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 支援與意見反應。