Assignment.ActualCost 属性 (Project)

获取或设置工作分配的实际成本。 读/写 Variant。

语法

expression。 ActualCost

表达 一个代表 Assignment 对象的变量。

备注

ActualCost 属性可以设置为 工作分配 和 任务 对象 (而不是摘要任务) 如果 总是由 Project 自动计算实际成本是复选框中清除 项目选项对话框中的 日程安排选项卡上。

实际成本也适用于任务和资源。 如果选中了 "Project 自动计算实际成本" 复选框，Project 会根据资源成本费率表及分配的资源已完成的实际工时为工作分配计算当前实际成本。 若要以编程的方式访问资源成本费率表，请使用 CostRateTables 集合。

示例

以下示例将提示用户输入活动项目中不包含资源的任务的实际成本。 它假定已清除 "总是由 Project 计算实际成本" 复选框。

Sub GetActualCostsForTasks() 
 
 Dim Entry As String ' User input 
 Dim T As Task ' Task object used in For Each loop 
 
 ' Count the resources of each task in the active project. 
 For Each T In ActiveProject.Tasks 
 
 ' If a task has no resources, then prompt user for actual cost. 
 If T.Resources.Count = 0 Then 
 
 Do While 1 
 Entry = InputBox$("Enter the cost for " & T.Name & ":") 
 
 ' Exit loop if user enters number or clicks Cancel. 
 If IsNumeric(Entry) Or Entry = Empty Then 
 Exit Do 
 
 ' User didn't enter a number; tell user to try again. 
 Else 
 MsgBox ("You didn't enter a number; try again.") 
 End If 
 Loop 
 
 ' If user didn't click Cancel, assign actual cost to task. 
 If Not StrComp(Entry, Empty, 1) = 0 Then T.ActualCost = Entry 
 End If 
 
 Next T 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。