Свойство Task. Фикседкост (Project)Task.FixedCost property (Project)

Получает или задает фиксированные затраты для задачи.Gets or sets a fixed cost for a task. Для чтения и записи, Variant.Read/write Variant.

СинтаксисSyntax

выражение.expression. FixedCost

Expression (выражение ) Переменная, представляющая объект Task .expression A variable that represents a Task object.

ПримерExample

В приведенном ниже примере зафиксированные затраты на отмеченные задачи увеличиваются на сумму, указанную пользователем.The following example increases the fixed costs of marked tasks by an amount specified by the user.

Sub IncreaseFixedCosts() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Entry As String ' Amount to add to any existing fixed cost 
 
 Entry = InputBox$("Increase the fixed costs of marked tasks by what amount?") 
 
 ' If entry is invalid, display error message and exit Sub procedure. 
 If Not IsNumeric(Entry) Then 
 MsgBox ("You didn't enter a numeric value.") 
 Exit Sub 
 End If 
 
 ' Increase the fixed costs of marked tasks by the specified amount. 
 For Each T In ActiveProject.Tasks 
 If T.Marked Then 
 T.FixedCost = T.FixedCost + Val(Entry) 
 End If 
 Next T 
 
End Sub

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.