Обчислення індексу графіка та продуктивності Microsoft Project

Зведення

Microsoft Project обчислення індексу продуктивності графіка (SPI) і індексу продуктивності витрат (CPI). Ця стаття містить зразок макросу, який обчислює SPI та CPI для кожного завдання проекту.

ПРИМІТКА. SPI – це співвідношення виконаної роботи до запланованої роботи (BCWP/BCWS). CPI – це співвідношення бюджетних витрат до фактичних витрат (ПВВР/ACWP).

Додаткові відомості

ПРИМІТКА. Корпорація Майкрософт надає приклади програмування лише для ілюстрації без жодних підзавдання або вираження неявних гарантій. Це стосується непрямих гарантій придатності до продавців або придатності для певної мети. У цій статті припускається, що ви знайомі з мовою програмування, яка демонструється, а також інструментами, які використовуються для створення та налагодження процедур. Інженери служби підтримки Корпорації Майкрософт можуть допомогти пояснити функціональність певної процедури, але вони не змінюють ці приклади, щоб надати додаткові функції або конструктивні процедури відповідно до ваших вимог. 

Наведений нижче макрос обчислює плановий індекс продуктивності (SPI) і індекс продуктивності витрат (CPI) для кожного завдання та розміщує результати в числових полях. SpI для кожного завдання дорівнює ПВВР/ПВЗР/ПВЗР. CPI для кожного завдання дорівнює плановій вартість послуг ПВВР/ДВВР.

Щоб створити цей макрос, виконайте такі дії:

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". Можна використовувати будь-які інші доступні числові та числові поля. Ви також можете відформатувати результати за допомогою формату.

4. У меню Visual Basic Файл клацніть Закрити та повернутися Microsoft Project.

5. У Microsoft Project меню Знаряддя наведіть вказівник миші на пункт Макросі виберіть Макроси. Якщо Project 2010, перейдіть на вкладку Подання та натисніть кнопку Макроси.

6. У списку макросів виберіть пункт CalcSPI_CPI. Виберіть команду Виконати.

Щоб переглянути результати макросу, вставте в таблицю завдання поле "Число10" і "Число11". Ось як це зробити:

1. У меню Insert (Вставлення) виберіть Column (Стовпець).
   
   Якщо Project 2010, перейдіть на вкладку Формат і натисніть кнопку Вставити стовпець.

2. У списку Ім'я поля виберіть число10.

3. Натисніть кнопку OK.

4. Повторіть кроки 1–3 для поля "Число11".