Свойство Task.FixedCost (Project)
Возвращает или задает фиксированные затраты для задачи. Для чтения и записи, Variant.
выражение. FixedCost
Выражение Переменная, представляющая объект Task .
В следующем примере фиксированные затраты на помеченные задачи увеличиваются на сумму, указанную пользователем.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.