Az ütemezési és költségteljesítmény-index kiszámítása a Microsoft Project

Összegzés

Microsoft Project nem számítja ki az ütemterv teljesítményindexét vagy a költségteljesítmény-indexet (CPI). Ez a cikk egy olyan mintamak makrót tartalmaz, amely a projekt minden tevékenységéhez kiszámítja az ÉKK és a CPI függvényt.

MEGJEGYZÉS: Az EMTV az elvégzett munka és az ütemezett munka (EMTV/ÜMTV) hányadosa. A CPI a tervezett költségek és a tényleges költségek hányadosa (EMTVK/EMTVK).

További információ

MEGJEGYZÉS: A Microsoft csak illusztrációkhoz biztosít programozási példákat, jótállás kifejezett vagy vélelmezett nélkül. Ez többek között magában foglalja az adott célra való forgalomra vagy alkalmasságra vonatkozó vélelmezett garanciát. Ez a cikk abból indul ki, hogy Ön ismeri a bemutatott programnyelvet, valamint az eljárások létrehozására és a hibakeresésre használt eszközöket. A Microsoft támogatási szakemberei elmagyarázzák egy adott eljárás működését, de nem módosítják ezeket a példákat, hogy további funkciókat vagy az Ön igényeinek megfelelő eljárásokat építsen ki. 

Az alábbi makró kiszámítja az egyes tevékenységek ütemezési teljesítményindexét és költségindexét (CPI), és az eredményeket Numerikus mezőkbe írja. Az egyes tevékenységekHEZ az EMTV/EMTVK értéke. Az egyes tevékenységek CPI-értéke megegyezik az EMTV/ACWP értéknek.

A makró létrehozásához kövesse az alábbi lépéseket:

1. Az Eszközök menüben mutasson a Makró elemre, majd kattintson a Makrók lehetőségre. A Project 2010-ben a Nézet lapon kattintson a Makrók gombra.

2. A Makrónév mezőbe írja be a "Makrónév" CalcSPI_CPI, majd a Létrehozás gombra kattintva nyissa meg Visual Basic Szerkesztőt.

3. Hozza létre a makrót az alábbi subroutine beírásával.

   
   Sub CalcSPI_CPI() Dim t As Task
   Az ActiveProject.Tasks minden egyes t-hez
     If Not t Is Nothing Then
       Ha a t.ÜMTV <> 0, akkor
           t.Szám10 = t.EMTVK / t.TVK: 'ezzel a képletel számítja ki az ÜB.EMTV-t
       End If
       Ha t.ACWP <> 0 akkor
           t.Szám11 = t.EMTV / t.ACWP 'ez a számítás CPI-t
       End If
     End If
   Következő t
   Végösszeg
   
   megjegyzése: Ebben a példában a Szám10 és a Szám11 mezőt használjuk. Használhatja bármelyik másik elérhető numerikus és alfanumerikus mezőt. Az eredményeket a Formatfunction (Formátumfüv) segítségével is formázhatja.

4. A Visual Basic Szerkesztőben kattintson a Fájl menü Bezárás és visszatérés a Microsoft Project.

5. A Microsoft Project eszközök menüben mutasson a Makró elemre,majd kattintson a Makrók parancsra. A Project 2010-ben a Nézet lapon kattintson a Makrók gombra.

6. A makrólistában kattintson a MakrókCalcSPI_CPI. Kattintson az Indítás gombra.

A makró eredményeinek megtekintéséhez szúrja be a Szám10 és a Szám11 mezőt egy tevékenységtáblába. Ehhez kövesse az alábbi lépéseket:

1. A Beszúrás menüben kattintson az Oszlop elemre.
   
   2010 Project a Formátum lapon kattintson az Oszlop beszúrása gombra.

2. A Mezőnév listában kattintson a Szám10 elemre.

3. Kattintson az OK gombra.

4. Ismételje meg az 1–3. lépést a Szám11 mezőnél.