Project (的 PayRate 物件)
代表資源成本比率表某一行的比率。 PayRate 物件是 PayRates 集合的成員。
使用 PayRate 物件
使用 PayRates (Index ) ,其中Index 是要傳回有效費率的支付率索引編號或日期,可傳回單一 PayRate 物件。 下列範例會傳回 Tamara 的第一列率的標準工資率在成本比率表 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 集合。 下列範例會將一條線新增至 Tamara 的成本比率表每小時、 每小時 $60.00 加班工資率和每次使用成本 $0"C"具有有效的日期 2012 年 9 月 1 日的 $40.00 標準工資率。
ActiveProject.Resources("Tamara").CostRateTables("C").PayRates.Add "9/1/2012", "$40/h", "$60/h", "$0"
名稱 |
---|
Delete |
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。