Jak vypočítat index výkonu plánu a nákladů v Microsoft Project

Shrnutí

Microsoft Project nepočítá index výkonu plánu (SPI) ani index nákladové výkonnosti (CPI). Tento článek obsahuje ukázkové makro, které vypočítá spi a CPI pro každý úkol v projektu.

POZNÁMKA: Spi je poměr provedených prací k plánované práci (BCWP/BCWS). CPI je poměr rozpočtových nákladů ke skutečným nákladům (BCWP/ACWP).

Další informace

POZNÁMKA:Microsoft nabízí příklady programování jenom pro ilustraci bez výslovné nebo předpokládané záruky. To zahrnuje mimo jiné předpokládané záruky prodejnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že znáte předvedený programovací jazyk a nástroje, které se používají k vytváření a ladění postupů. Technici podpory Microsoftu vám můžou pomoct vysvětlit funkčnost určitého postupu, ale tyto příklady neupraví tak, aby poskytovali další funkce nebo sestavují postupy, které splňují vaše konkrétní požadavky. 

Následující makro vypočítá index výkonu plánu (SPI) a index nákladového výkonu (CPI) pro každý úkol a výsledky umístí do číselných polí. Spi pro každý úkol se rovná BCWP/BCWS. Cpi pro každý úkol se rovná BCWP/ACWP.

Toto makro vytvoříte takto:

1. V nabídce Nástroje přejděte na Makro a potom klikněte na Makra. V Project 2010 přejděte na kartu Zobrazení a klikněte na tlačítko Makra.

2. Do pole Název makra zadejte "CalcSPI_CPI" a potom kliknutím na Vytvořit otevřete editor Visual Basic maker.

3. Makro vytvoříte zadáním následujícího podprogramu.

   
   Sub CalcSPI_CPI() Dim t As Task
   Pro každou t v ActiveProject.Tasks
     If Not t Is Nothing Then
       Pokud t.BCWS <> 0 Pak
           t.Number10 = t.BCWP / t.BCWS 'vypočítá SPI
       Ukončit, pokud
       Pokud t.ACWP <> 0 Pak
           t.Number11 = t.BCWP / t.ACWP 'vypočítá CPI
       Ukončit, pokud
     Ukončit, pokud
   Další t
   End Sub
   
   NOTE: V tomto příkladu se používají pole Číslo10 a Číslo11. Můžete použít libovolná jiná číselná a alfanumerická pole, která jsou k dispozici. K formátování výsledků můžete také použítfunkční formát.

4. V Visual Basic editoru klikněte v nabídce Soubor na Zavřít a vrátit se Microsoft Project.

5. V Microsoft Project v nabídce Nástroje přejděte na Makro apotom klikněte na Makra. V Project 2010 přejděte na kartu Zobrazení a klikněte na tlačítko Makra.

6. V seznamu maker klikněte na CalcSPI_CPI. Klikněte na Spustit.

Pokud chcete zobrazit výsledky makra, vložte do tabulky úkolů pole Číslo10 a Číslo11. Postupujte takto:

1. V nabídce Insert (Vložení) klikněte na Column (Sloupec).
   
   V Project 2010 přejděte na kartu Formát a klikněte na tlačítko Vložit sloupec.

2. V seznamu Název pole klikněte na Číslo10.

3. Klikněte na OK.

4. Opakujte kroky 1 až 3 pro pole Číslo11.