项目管理软件：MS Project二次开发_（8）.自定义视图和报表设计.docx

PAGE1

PAGE1

自定义视图和报表设计

在项目管理中，视图和报表是展示项目数据和状态的重要工具。MicrosoftProject提供了一些预定义的视图和报表，但这些往往不能完全满足所有项目管理的需求。因此，了解如何自定义视图和报表设计，可以极大地提高项目管理的效率和灵活性。本节将详细介绍如何使用MicrosoftProject的二次开发功能来自定义视图和报表，包括使用VBA（VisualBasicforApplications）来实现更多的定制化需求。

1.自定义视图

1.1视图的基本概念

在MicrosoftProject中，视图是项目数据的不同展示方式。常见的视图包括甘特图、资源工作表、任务分配工作表等。视图可以帮助项目经理从不同的角度查看和分析项目数据，从而更好地进行项目管理。

1.2使用VBA创建自定义视图

通过VBA，我们可以创建自定义视图，以满足特定的项目管理需求。以下是一个简单的例子，展示如何使用VBA创建一个自定义甘特图视图。

1.2.1创建自定义甘特图视图

SubCreateCustomGanttView()

创建一个新的甘特图视图

DimcustomViewAsView

SetcustomView=ActiveProject.Views.Add(CustomGanttView,pjGanttChart)

设置视图的显示字段

customView.Table=TaskUsage

添加自定义列

DimtableAsTable

Settable=ActiveProject.Tables(TaskUsage)

table.FieldNamesToVisibleText1,任务备注

table.FieldNamesToVisibleText2,任务优先级

设置列的顺序和宽度

table.SetColumnPosition任务备注,1

table.SetColumnPosition任务优先级,2

table.SetColumnWidth任务备注,150

table.SetColumnWidth任务优先级,100

应用自定义视图

ActiveProject.CurrentView=CustomGanttView

EndSub

1.3自定义视图的高级功能

除了创建基本的自定义视图，VBA还提供了许多高级功能，例如设置视图的过滤器、分组和排序。以下是一个例子，展示如何设置一个过滤器，只显示关键任务。

1.3.1设置关键任务过滤器

SubCreateCriticalTasksFilter()

创建一个新的过滤器

DimcriticalTasksFilterAsFilter

SetcriticalTasksFilter=ActiveProject.Filters.Add(CriticalTasksFilter,pjTask)

设置过滤器条件

criticalTasksFilter.Condition=[Critical]=Yes

应用过滤器到当前视图

ActiveProject.CurrentView=CustomGanttView

ActiveProject.ViewApplyName:=CustomGanttView,FilterName:=CriticalTasksFilter

EndSub

1.4自定义视图的分组和排序

分组和排序可以帮助更好地组织和展示项目数据。以下是一个例子，展示如何在自定义甘特图视图中按任务优先级分组，并按任务开始日期排序。

1.4.1按任务优先级分组并排序

SubGroupAndSortByPriority()

创建一个新的分组

DimgroupByPriorityAsGroup

SetgroupByPriority=ActiveProject.Groups.Add(GroupbyPriority,pjTask)

设置分组字段

groupByPriority.Field=Text2

创建一个新的排序

DimsortByStartDateAsSort