从任务资源中获取价值

Question

我想制作宏来获取任务资源（“Eträge”和“Kosten”）的值并将这些值设置为变量，以便我可以使用它们来计算事物

我正在使用“For Each t In ActiveProject.Tasks”对所有任务执行相同的操作，我唯一的问题是我不知道如何从“Ressourcenamen”获取这些值。

我的计算示例代码：

Sub Macro1()

Dim E As Double
Dim A As Double
Dim test As Double

For Each t In ActiveProject.Tasks

test = E + A + test 

Debug.Print test

Next t
End Sub

“E”和“A”应该是资源。

Answer 1

我自己发现的

A = ActiveProject.Tasks(t).Assignments(1).Cost
E = ActiveProject.Tasks(t).Assignments(2).Cost