在甘特图视图中创建自定义字段,并希望显示在资源使用情况视图中

时间:2014-10-14 15:40:55

标签: custom-fields ms-project microsoft-project-vba

我正在使用MS Project列出我所在部门正在进行的所有项目和工作。我在甘特图视图中为每个任务和子任务创建了自定义字段(Text 1(proj name)Text 2 (proj number))。如何在我的资源使用情况视图中创建一个宏来显示我在“甘特图”视图中输入的所有数据?我想查看所有资源的列表,它们分配给哪些任务,并查看每个任务的自定义字段。谢谢。

2 个答案:

答案 0 :(得分:1)

有两组针对作业的自定义字段。 Resource.assignments和task.assignments。

如果您通过VBA中的任务集合或客户端中的任务使用情况视图引用分配,那么您将更新task.assignment字段。

如果您通过资源集合或资源使用情况视图访问分配,那么它就是您正在更新的resource.assignments字段。

如果你想让它们都对齐,你需要一个例程来逐步完成所有任务,然后每个任务的每个任务,然后通过资源集合找到相同的任务,并设置task.assignments.text21 = resources.assignments .text21(例如)。

这是我在2007年推出的 - 不被微软视为一个错误,只是一个新功能。

答案 1 :(得分:0)

您在“资源使用情况”视图中看到的“任务”数据和您在“任务分配状况”视图中看到的“资源”数据实际上是分配数据。

更新

感谢@Andrew关于分配的两组自定义文本字段的说明,我更新了代码,以便任务的Text1字段在Task Usage视图和Resource Usage视图中都可见。

这是一个用任务的Text1字段更新Assignment Text1字段的宏:

Sub UpdateAssignmentInfo()
    Dim tsk As Task
    Dim asn As Assignment
    For Each tsk In ActiveProject.Tasks
        For Each asn In tsk.Assignments
            asn.Text1 = tsk.Text1
        Next asn
    Next tsk
    Dim res As Resource
    For Each res In ActiveProject.Resources
        For Each asn In res.Assignments
            asn.Text1 = asn.Task.Text1
        Next asn
    Next res
End Sub