Propriedade Assignment.ActualCost (Project)

Obtém ou define o custo real da atribuição. Leitura/gravação Variant.

Sintaxe

expression. ActualCost

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

Comentários

A propriedade ActualCost pode ser definida para os objetos e a atribuição de tarefa (mas não para tarefas de resumo) se a caixa de seleção os custos reais são sempre calculados pelo Project estiver desmarcada na guia agenda da caixa de diálogo Opções do projeto.

Os custos reais também ficam disponíveis para tarefas e recursos. Se a caixa de seleção Custos reais são sempre calculados pelo Project estiver marcada, o Project calculará o custo real atual referente à atribuição a partir de tabelas de taxa de custo de recursos e do trabalho real que o recurso atribuído concluiu. Para obter acesso via programação às tabelas de taxa de custo de recursos, use a coleção CostRateTables.

Exemplo

O exemplo a seguir solicita ao usuário os custos reais de tarefas sem recurso algum no projeto ativo. Ele considera que a caixa de seleção Custos reais são sempre calculados pelo Project esteja desmarcada.

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

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.