Как да изчислите индекса на производителността на графика и разходите в Microsoft Project

Резюме

Microsoft Project изчислява индекса на производителността на графика (SPI) или индекса на производителността на разходите (CPI). Тази статия съдържа примерен макрос, който изчислява SPI и CPI за всяка задача в проект.

ЗАБЕЛЕЖКА: SPI е съотношението на извършената работа към планираната работа (BCWP/BCWS). ИПЦ е съотношението на бюджетните разходи към действителните разходи (BCWP/ACWP).

Повече информация

ЗАБЕЛЕЖКА: Microsoft предоставя примери за програмиране само за илюстрация, без гаранция, изразена или подразбирана. Това включва, но не се ограничава до подразбите гаранции за продаваемост или годност за определена цел. Тази статия предполага, че сте запознати с езика за програмиране, който се демонстрира, и с инструментите, които се използват за създаване и за отстраняване на грешки. Инженерите по поддръжката на Microsoft могат да ви помогнат да обясните функционалността на определена процедура, но те няма да променят тези примери, за да предоставят допълнителна функционалност или да изграждат процедури, за да отговорят на вашите конкретни изисквания. 

Макросът по-долу изчислява индекса на производителността на графика (SPI) и индекса на производителността на разходите (CPI) за всяка задача и поставя резултатите в числови полета. SPI за всяка задача е равна на BCWP/BCWS. CPI за всяка задача е равна на BCWP/ACWP.

За да създадете този макрос, изпълнете следните стъпки:

1. В менюто Инструменти посочете Макрос ислед това щракнете върху Макроси. За Project 2010 отидете на раздела Изглед и щракнете върху бутона Макроси.

2. В полето Име на макрос въведете "CalcSPI_CPI", след което щракнете върху Създаване, за да отворите Visual Basic редактора.

3. Създайте макроса, като въведете следната подпрограма.

   
   Sub CalcSPI_CPI() Dim t As Task
   За всеки t в ActiveProject.Tasks
     Ако не е нищо, тогава
       Ако t.BCWS <> 0 След това
           t.Number10 = t.BCWP / t.BCWS 'това изчислява SPI
       Край Ако
       Ако t.ACWP <> 0 След това
           t.Number11 = t.BCWP /t.ACWP 'това изчислява CPI
       Край Ако
     Край Ако
   Напред t
   End Sub
   
   NOTE: Този пример използва полетата "Число10" и "Число11". Можете да използвате всяко от другите налични числови и буквено-цифрови полета. Можете също да използвате formatfunction, за да форматирате резултатите си.

4. В редактора Visual Basic, в менюто Файл щракнете върху Затвори и се върни към Microsoft Project.

5. В Microsoft Project, в менюто Инструменти посочете Макрос ислед това щракнете върху Макроси. За Project 2010 отидете на раздела Изглед и щракнете върху бутона Макроси.

6. В списъка с макроси щракнете върху CalcSPI_CPI. Щракнете върху Изпълни.

За да видите резултатите от макроса, вмъкнете полето Число10 и Число11 в таблица на задача. За да направите това, изпълнете следните стъпки:

1. В менюто Вмъкване щракнете върху Колона.
   
   За Project 2010 отидете на раздела Формат и щракнете върху бутона Вмъкване на колона.

2. В списъка Име на поле щракнете върху Число10.

3. Щракнете върху OK.

4. Повторете стъпки от 1 до 3 за полето Число11.