Grafika un izmaksu veiktspējas indeksa aprēķināšana programmā Microsoft Project

Kopsavilkums

Microsoft Project aprēķina grafika veiktspējas indeksu (SPI) vai izmaksu veiktspējas indeksu (CPI). Šajā rakstā ir iekļauts makro paraugs, kas aprēķina SPI un CPI katram uzdevumam projektā.

PIEZĪME. SPI ir darba ar ieplānoto darbu attiecība (BCWP/BCWS). CPI ir budžeta izmaksu un faktisko izmaksu attiecība (BCWP/ACWP).

Papildinformācija

PIEZĪME. Microsoft nodrošina programmēšanas piemērus tikai ilustrācijai, bet nekādas garantijas nav izteiktas vai netiešas. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek demonstrēta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētas procedūras funkcionalitāti, bet tie nemodificēs šos piemērus, lai nodrošinātu papildu funkcionalitāti vai uzbūves procedūras, kas atbilst jūsu konkrētajām vajadzībām. 

Šis makro aprēķina grafika veiktspējas indeksu (Schedule Performance Index — SPI) un izmaksu veiktspējas indeksu (CpI) katram uzdevumam un ievieto rezultātus skaitliskos laukos. Katra uzdevuma SPI ir vienāds ar BCWP/BCWS. Katra uzdevuma CPI ir vienāds ar BCWP/ACWP.

Lai izveidotu šo makro, veiciet tālāk norādītās darbības.

1. Izvēlnē Rīki norādiet uz Makro un pēctam noklikšķiniet uz Makro. Lai Project 2010, dodieties uz cilni Skats un noklikšķiniet uz pogas Makro.

2. Laukā Makro nosaukums ierakstiet "Makro" CalcSPI_CPI pēc tam noklikšķiniet uz Izveidot, lai atvērtu Visual Basic redaktoru.

3. Izveidojiet makro, ierakstot šādu apakšrutīnas nosaukumu.

   
   Sub CalcSPI_CPI() Dim t As Task
   Katram t In ActiveProject.Tasks
     Ja nekas nav pieejams, tad
       Ja t.BCWS <> 0 Tad
           t.Skaitlis10 = t.BCWP / t.BCWS ', tiek aprēķināts SPI
       Beigt, ja
       Ja t.ACWP <> 0 Tad
           t.Number11 = t.BCWP / t.ACWP 'tiek aprēķināts CPI
       Beigt, ja
     Beigt, ja
   Nākamais t
   Beigu
   
   apakšATSKAITE. Šajā piemērā tiek izmantoti lauki Skaitlis10 un Skaitlis11. Varat izmantot jebkuru citu pieejamo skaitļa un burtciparu lauku. Varat arī izmantot formatēšanas taustiņu, lai formatētu rezultātus.

4. Redaktora Visual Basic izvēlnē Fails noklikšķiniet uz Aizvērt un atgriezties cilnē Microsoft Project.

5. Cilnes Microsoft Project izvēlnē Rīki norādiet uz Makro un pēctam noklikšķiniet uz Makro. Lai Project 2010, dodieties uz cilni Skats un noklikšķiniet uz pogas Makro.

6. Makro sarakstā noklikšķiniet uz Rediģēt CalcSPI_CPI. Noklikšķiniet uz Izpildīt.

Lai skatītu makro rezultātus, uzdevumu tabulā ievietojiet lauku Skaitlis10 un Skaitlis11. Lai to izdarītu, izpildiet šādas darbības:

1. Izvēlnē Ievietošana noklikšķiniet uz Kolonna.
   
   Lai Project 2010, dodieties uz cilni Formatēšana un noklikšķiniet uz pogas Ievietot kolonnu.

2. Sarakstā Lauka nosaukums noklikšķiniet uz Skaitlis10.

3. Noklikšķiniet uz Labi.

4. Atkārtojiet 1.–3. darbību laukā Skaitlis11.