摘要
Microsoft Project不会计算计划性能索引 (SPI) 或成本性能索引 (CPI) 。 本文包含一个示例宏,用于计算项目中每个任务的 SPI 和 CPI。
注意: SPI 是 BCWP/BCWS 作业中 (工作的比率) 。 CPI 是 BCWP/ACWP (预算成本与实际成本) 。
详细信息
注意:Microsoft 仅提供演示编程示例,没有明示或默示的担保。 这包括但不限于对特定用途的可商家性或适用性的默示保证。 本文假定你熟悉正在演示的编程语言以及用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能,但他们不会修改这些示例以提供附加功能或构造过程以满足您的特定要求。
以下宏计算每个任务的"计划性能索引 (SPI) 和成本性能索引 (CPI) ,将结果放入数字字段。 每个任务的 SPI 等于 BCWP/BCWS。 每个任务的 CPI 等于 BCWP/ACWP。
若要创建此宏,请执行以下步骤:
-
在“工具”菜单上,指向“宏”,然后单击“宏”。 对于 Project 2010,请转到"视图"选项卡,然后单击"宏"按钮。
-
在"宏名称"字段中,键入"CalcSPI_CPI",然后单击"创建"打开"Visual Basic编辑器"。
-
通过键入以下子程序创建宏。
Sub CalcSPI_CPI() 将 t 变暗为任务
对于 ActiveProject.Tasks 中的每个 t
如果没有,则没有
如果 t.BCWS <> 0,则
t.Number10 = t.BCWP / t.BCWS 'this calculates SPI
End If
如果 t.ACWP <> 0,则
t.Number11 = t.BCWP / t.ACWP 'this calculates CPI
End If
End If
下一个 t
End Sub
NOTE:此示例使用 Number10 和 Number11 字段。 可以使用任何其他可用的数字和字母数字字段。 您可能还希望使用 Formatfunction 来设置结果的格式。 -
在"Visual Basic编辑器"的"文件"菜单上,单击"关闭并返回到Microsoft Project"。
-
在Microsoft Project"菜单上,指向"宏",然后单击"宏"。 对于 Project 2010,请转到"视图"选项卡,然后单击"宏"按钮。
-
在宏列表中,单击"CalcSPI_CPI"。 单击“运行”。
若要查看宏的结果,请将 Number10 和 Number11 域插入任务表中。 请按以下步骤完成此操作:
-
在"插入"菜单上,单击"列"。
对于 Project 2010,请转到"格式"选项卡,然后单击"插入列"按钮。 -
在"字段名称"列表中,单击"数字 10"。
-
单击“确定”。
-
对 Number11 字段重复步骤1-3。