在MS Project(2013)中,任何人都可以向我展示如何将资源自定义字段(从资源视图选项卡)复制到子项目任务的自定义字段(任务视图选项卡)?找到以下内容从分配字段(资源使用视图)复制到任务字段但我不知道如何处理资源字段...
Sub CopyAssignmentFieldToTask()
Dim t As Task
Dim ts As Tasks
Dim a As Assignment
Set ts = ActiveProject.Tasks
For Each t In ts
If Not t Is Nothing Then
t.Text5 = ""
For Each a In t.Assignments
'change the following line to use
'for a different custom field
t.Text5 = t.Text5 & ", " & a.Text5
Next a
End If
Next t
End Sub
来源:http://zo-d.com/blog/archives/programming/working-with-task-and-assignment-fields-vba.html
编辑:非常感谢Rachel ......对于未来的参考,这里是完整的答案,循环子项目:
Sub CopyResourceUnitstoTasksv2()
Dim t As Task
Dim a As Assignment
Dim mProj As Project
Set mProj = ActiveProject
For Each Subproject In mProj.Subprojects
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
For Each a In t.Assignments
t.Number2 = a.Resource.Number1
Next a
End If
Next t
Next Subproject
End Sub