Microsoft Project:将Task字段中的数据汇总到Resource字段中?

时间:2017-05-27 17:44:06

标签: ms-project microsoft-project-vba

在任务表中,我有一个名为“Jellybeans”的自定义Numbers列。每个任务都附加了一个资源,并且一些bean被输入到该字段中。所以你有类似

的东西

任务:释放fnord 资源:爱丽丝 Jellybeans:5

任务:打开商店 资源:爱丽丝 Jellybeans:3

任务:关闭它 资源:鲍勃: Jellybeans:4

现在,在资源工作表中,我创建了另一个自定义数字字段“Total Jellybeans”。我想要这个字段来汇总附加到任务表中资源的所有软糖。所以你有

资源:爱丽丝 总豆形软糖:8

资源:鲍勃 总豆形软糖:4

- 我无法弄清楚如何做到这一点 - 。任务和资源似乎并没有像我期望的那样彼此交谈,而且我无法找到关于公式构建的良好方法,因为我认为我需要如何处理这个问题。是否有一种简单的方法可以做到这一点,我错过了,还是过于复杂?

1 个答案:

答案 0 :(得分:1)

您可以通过Project方式执行此操作:

  • 确保您的自定义字段汇总为“组摘要行”
  • 根据资源
  • 对视图进行分组(或创建分组视图!)

enter image description here

每个任务只有一个资源时有效。共享任务将获得他们自己的组 - 并共享Jellybeans!

或者你可以用VBA方式做到:

  • 如您所见,我假设Jellybean Custom Field是任务和资源的字段Number1(两个单独的字段)
  • 在这个模型中,所有的资源都获得了所有的Jellybeans,但你可以在那里添加计算

    Sub SumUpJellybeans()
    
    Dim vResource As Resource
    Dim vAssignment As Assignment
    Dim vJellybeans As Long
    
    For Each vResource In ActiveProject.Resources
    
    For Each vAssignment In vResource.Assignments
    
        vJellybeans = vJellybeans + vAssignment.Task.Number1
    
    Next vAssignment
    
        vResource.Number1 = vJellybeans
        vJellybeans = 0
    
    Next vResource
    
    End Sub
    

enter image description here